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

• #13042 Fire/SOUL/CD félisten VGYke #13041

  Új Válasz 2012-03-01 20:47:29 #13042

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz VGYke #13041 üzenetére

  Készítettem 2 parancsgombot

  Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long
  
  Private Sub Play_Click()
  
  Const SND_ASYNC = &H1
  Const SND_FILENAME = &H20000
  
  WAVFile = "D:\test.wav"
  Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
  
  End Sub
  
  
  Private Sub Stop_Click()
  Call PlaySound(vbNullString, 0&, SND_ASYNC Or SND_FILENAME)
  End Sub

  Megjegyzés
  A deklarációba bekerült nálam a PtrSafe, mert x64-es a rendszerem. 32 bites rendszernél nincs rá szükség.

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