Ú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

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

  Új Válasz 2012-03-01 21:24:08 #13043

  Ú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

  Nagyon köszönöm hogy írtál! Eddigi ügyeket szabadidőnben, a munkahelyen kreáltam. Most otthon akartam volna folytatni és éppen a hajamat téptem, hogy itthoni próbálkozásnál, Office 2010 (64bit) alatt mi a baj ezzel: Private Declare Function PlaySound Lib.... a "PtrSafe" titokra soha nem jöttem volna rá! A többit majd holnap próbálom, dolgozóba kell menni reggel.

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