sndPlaySound

[bonjour]

How is sndPlaySound used?

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Global Const SND_ASYNC = &H1
Global Const SND_NODEFAULT = &H2

Sub Playwav(file)
SoundName$ = file
wFlags% = SND_ASYNC Or SND_NODEFAULT
X% = sndPlaySound(SoundName$, wFlags%): NoFreeze% = DoEvents()
End Sub

Use PlaySound instead. It's slightly more flexible.

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Sub Command1_Click()

    'Play the WAV
    PlaySound "C:\MyFile.wav", 0&, &H1

End Sub

[HeSaidJoe]

'same dog different sled
'added how to stop the file from playing

' bas module code

'API Function to play the sound 
' 
Public Declare Function sndPlaySound Lib "winmm" Alias _ 
"sndPlaySoundA" (ByVal lpszSoundName As String, _ 
ByVal uFlags As Long) As Long 
' 
' play synchronously (default)..music finishes first 
Public Const SND_SYNC = &H0 
' play asynchronously 
Public Const SND_ASYNC = &H1 
' loop the sound until next 
Public Const SND_LOOP = &H8 

'<<<<<  form code  >>>>>>>>

'this one plays and allows other events to take place
'ie form can change and music will still be playing
Private Sub Command1_Click()
   Call sndPlaySound(ByVal "c:\yourfolder\yourfile.wav", SND_ASYNC) 
End Sub 

'to stop it you send it nothing as a parameter
Private Sub Command2_Click() 
   Call sndPlaySound(0,0)  
End Sub