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

• #13599 Delila_1 veterán psg5 #13598

  Új Válasz 2012-04-26 15:37:08 #13599

  Ú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

  

  Delila_1

  veterán

  válasz psg5 #13598 üzenetére

  Régebbi hozzászólásokból tallóztam össze.

  Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long
  
  Const SND_SYNC = &H0
  Const SND_ASYNC = &H1
  Const SND_FILENAME = &H20000
  
  Sub PlayWAV()
  utvonal = "E:\Utvonal\" 'Itt módosíts
  WAVFile = utvonal & "\" & "Fáljnév.wav" 'meg itt is
  Call PlaySound(WAVFile, 0&, SND_SYNC Or SND_FILENAME)
  End Sub

  A most PlayWAV rutin sorait eseményvezéreltként vidd be.

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