Sounds in Visual Basic 6.0 (1 Viewer)

[lawrencema_1985]

Just a quick question...how do you play sounds (*.wav) in response to events such as a mouse button click in visual basic 6.0?

I'm making a clay pigeon shooter game and i just want to add sound to the shots being fired and the pigeons being hit.

Cheers.

 

[:: ck ::]

i think theres two ways.. api call function n some other way... can't remember sorry

 

[Ragerunner]

Try using this module.

I used it to get my sound to work in my Major Project

http://users.on.net/unix/Module2.bas

 

[Kn1ght_M4r3]

the multimedia control would work would it not? i believe that works .

 

[Winston]

it's better to use the winnm.dll call


search it up on google

 

[Fosweb]

Yeah - go with winmm.dll (typo above winston)

' Put these in the form (general) (declarations)
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib "winmm" () As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
'
' Put this in a command button click event or whatever event you need the sound to play under
Private Sub Command1_Click()
Dim ret, flags As Integer
Dim soundfilename As String
soundfilename = "c:\whatever.wav"
flags = SND_ASYNC Or SND_NODEFAULT
ret = waveOutGetNumDevs()
If ret > 0 Then
  ret = sndPlaySound(soundfilename, flags)
Else
  MsgBox "NO SOUND DEVICE"
End If
End Sub

 

[Winston]

Originally posted by Fosweb
Yeah - go with winmm.dll (typo above winston)

' Put these in the form (general) (declarations)
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib "winmm" () As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
'
' Put this in a command button click event or whatever event you need the sound to play under
Private Sub Command1_Click()
Dim ret, flags As Integer
Dim soundfilename As String
soundfilename = "c:\whatever.wav"
flags = SND_ASYNC Or SND_NODEFAULT
ret = waveOutGetNumDevs()
If ret > 0 Then
  ret = sndPlaySound(soundfilename, flags)
Else
  MsgBox "NO SOUND DEVICE"
End If
End Sub

oops must of been high yesterday lol...

and if you wanna stop the sound, you just need to provide a Null source, and play it

 

[lawrencema_1985]

thanks guys, esp fosweb...that worked.

What about playing two sounds at the same time?

 

[Fosweb]

You wont be able to do that with winmm.dll i think.

If its really important, then maybe look up using DirectSound (i've never done this - i think there was a thread on it before though - in which i said exactly the same thing...)

Edit: It was in a thread called "Format C: in VB", but dont bother with that.

There are some fairly simple controls floating around that will do the job for you. I also havent tried this one, but check it out: http://www.a1vbcode.com/app.asp?ID=1680
Just download...

 

[Winston]

Originally posted by Fosweb
You wont be able to do that with winmm.dll i think.

If its really important, then maybe look up using DirectSound (i've never done this - i think there was a thread on it before though - in which i said exactly the same thing...)

Edit: It was in a thread called "Format C: in VB", but dont bother with that.

There are some fairly simple controls floating around that will do the job for you. I also havent tried this one, but check it out: http://www.a1vbcode.com/app.asp?ID=1680
Just download...

There may be a work around in VB 6, which will require alot of researching, but in .NET it's fairly powerful to the level you can actually play two sounds at once using that API call, providing you know how to use your delegates and threading.

 

[Comedy_Al]

Direct Sound is a really good way to go- its worth learning how to use all the Direct stuff.