play wav's

[crptcblade]

How do i get a .wav sound to play, I've tried this:

In the general declarations:
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H1
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

and in the form_load:

strWavFile = App.Path & "\mywavfile.wav"
Call sndPlaySound(strWavFile, SND_ASYNC And SND_NODEFAULT)

end it doesn't seem to work. Can anyone help?

[HeSaidJoe]

'Play A sound
'Paste this code into a bas module
'
'API Function to play the sound
'
Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
'
' play synchronously (default)
    Public Const SND_SYNC = &H0
' play asynchronously
    Public Const SND_ASYNC = &H1
' loop the sound until next
    Public Const SND_LOOP = &H8

'=====================================================

'Paste this code into the main
'from your main program (button or load or whatever):
'call the function using your wave file & location..replace "A:\whoosh.wav"
'
 Call sndPlaySound(ByVal "a:\whoosh.wav", SND_ASYNC)
'to stop it playing
 call sndPlaySound("")

Use the PlaySound api function instead of the sndPlaySound api function.

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 wav
    PlaySound "C:\MyFile.wav", 0&, &H1

End Sub

Private Sub Command2_Click()
    'Stop wav
    PlaySound "C:\MyFile.wav", 0&, &H4
    'or is it:
    'PlaySound " ", 0&, &H1
End Sub

[HeSaidJoe]

There is no difference in the sound effect..just that playsound is the latter version destined to replace sndSound
The same deal as [Let X = 12] and [x = 12]..both work..one is just old...I must be showing my age..using old code.

[da_silvy]

they both work fine, it's just a choice of your preference!

i think that's tautology?!?

i.e

it's free and complimentary?

[Wak]

I don't know if this has any relevence, but it's qiute obvious that the PlaySound function is a superset of the old sndPlaySound function involved with the early 16 bit windows. And when they made PlaySound it was made 32 bit. So you ask what the difference is, I tell you. sndPlaySound : 16 bit, PLaySound : 32 bit.

[Megatron]

Use the PlaySound api function instead of the sndPlaySound api function.

There's no difference in simply playing a WAV file. The main difference is that PlaySound lets you play sounds stored as resources.