Új hozzászólás Aktív témák

• #13044 VGYke addikt Fire/SOUL/CD #13042

  Új Válasz 2012-03-01 21:52:57 #13044

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  VGYke

  addikt

  válasz Fire/SOUL/CD #13042 üzenetére

  Még nagy hirtelen csak annyit: plagizáltam egy midi fájl lejátszás makrót. Ebben van játszás, leállítás, de nincs benne a 64-bit Hát ha valaki hasznát veszi...
  Private Declare Function mciExecute Lib "winmm.dll" _
  (ByVal lpstrCommand As String) As Long
  Sub PlayMIDI()
  MIDIFile = "xfiles.mid"
  MIDIFile = ThisWorkbook.Path & "\" & MIDIFile
  mciExecute ("play " & MIDIFile)
  End Sub

  Sub StopMIDI()
  MIDIFile = "xfiles.mid"
  MIDIFile = ThisWorkbook.Path & "\" & MIDIFile
  mciExecute ("stop " & MIDIFile)
  End Sub

Új hozzászólás Aktív témák