VBA/Excel/Access/Word/Windows API/Wav Sound

Материал из VB Эксперт
Перейти к: навигация, поиск

Adding Sound to a VBA Program

   <source lang="vb">

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Sub playSound()

   sndPlaySound "C:\myWave.wav file", 1
   returnVal = sndPlaySound("C:\myWave.wav", 0)

End Sub

</source>
   
  


Call windows API to play a sound

   <source lang="vb">

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Sub PlaySound(SoundFile As String)

   sndPlaySound SoundFile, 1

End Sub

</source>