Visual Basic Programming Code Examples Visual Basic > Multimedia Animation and Sound Code Examples How to play a WAV file with VB. How to play a WAV file with VB. Sub PlayWav(SoundName As String) Dim tmpSoundName As String Dim wFlags%, X% ' declare statements (Place in a bas module.) '#If Win32 Then 'Public Declare Function sndPlaySound& Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) '#Else 'Public Declare Function sndPlaySound% Lib "mmsystem.dll" (ByVal lpszSoundName As String, ByVal uFlags As Integer) '#End If 'WIN32 ' ' WAV Sound values 'Global Const SND_SYNC = &H0 'Global Const SND_ASYNC = &H1 'Global Const SND_NODEFAULT = &H2 'Global Const SND_LOOP = &H8 'Global Const SND_NOSTOP = &H10 ' *** pathWavFiles is a var with the subDir where ' the sound files are stored tmpSoundName = pathWavFiles & SoundName wFlags% = SND_ASYNC Or SND_NODEFAULT X% = sndPlaySound(tmpSoundName, wFlags%) End Sub
