play a wave sound, then stop playing it

[MrDoc]

Hello,
I'm using this simple code to play a wav file I loaded into a worksheet:
ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb = xlclose
I attached the macro to a button and it works. Now I need to stop the wave sound playing, by attaching another macro to a button. Is that possible? What syntax shall I use to stop playing the sound?
Thank you for any help.
Regards,
MrDoc

 

[ecowar]

My code is as follows:

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

Sub PlayWav()
Dim WavFile As String
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_LOOP = &H8
Const SND_FILENAME = &H20000

On Error Resume Next
WavFile = "\\dsintserver4\v01\brandonsave\sound bytes\jeopardy.WAV"
Call PlaySound(WavFile, 0&, SND_ASYNC Or SND_LOOP)

End Sub

I have no problem playing the wav file. I added the SND_LOOP to keep the file playing until another macro is finished running. My problem is that it doesn't want to stop unless I close the spreadsheet or go into the vb editor and stop the macro manually. I've tried passing a value(wavfile name) as a string and then passing a vbNullString value when I want it to stop. Problem with that is that as soon as I add arguments to the call function I get errors.
Help!!

 

[Ivan F Moala]

My code is as follows:

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

Sub PlayWav()
Dim WavFile As String
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_LOOP = &H8
Const SND_FILENAME = &H20000

On Error Resume Next
WavFile = "\\dsintserver4\v01\brandonsave\sound bytes\jeopardy.WAV"
Call PlaySound(WavFile, 0&, SND_ASYNC Or SND_LOOP)

End Sub

I have no problem playing the wav file. I added the SND_LOOP to keep the file playing until another macro is finished running. My problem is that it doesn't want to stop unless I close the spreadsheet or go into the vb editor and stop the macro manually. I've tried passing a value(wavfile name) as a string and then passing a vbNullString value when I want it to stop. Problem with that is that as soon as I add arguments to the call function I get errors.
Help!!

you need to subst. your Wavefilename with Vbnullstring

 

[ecowar]

Problem solved. I was passing the variable incorrectly. Thanks.

 

[flyinghigher13]

Dam would have been nice to have seen the finished code

 

[DuncR6]

Dam would have been nice to have seen the finished code

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub Play_The_Sound()
    Call sndPlaySound("C:\Users\DuncR6\Desktop\Test.wav", 1)
    MsgBox "Click OK to stop the sound..."
    Call sndPlaySound(0, 0)
End Sub

The above will start playing the code and put up a simple message box. When "OK" on the message box is clicked it stops the sound. A single windows "ding" sound plays when the sound file is stopped.

I saw one person saying that the function wouldn't work with Windows 7 64-bit, but this indeed does work. They said to use: "Public Declare PtrSafe Function..." so if it doesn't work then give that a shot. I also tried PtrSafe and both ways worked for me.