Att spela upp en ljudfil får jag funka , men att stänga av ljudfilen
med Command2_Click() - vad skriver jag för kod ?
(har sökt och provat men är enlare att fråga)



********* Modul ************
Option Explicit
Public Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
------------------------------------------------------------------
Public Sub PlaySound(strFileName As String)
sndPlaySound strFileName, 1 Or 8
End Sub

********** end modul ********************


************ Form ***********

...Command1_Click()

PlaySound App.Path & "\ljud.wav"


..Command2_Click()


--- Här skulle jag vilja skriva koden för att stänga av ljudet -----


************** end Form ***********

//E

Form: Form1
<code>
Option Explicit

Private Const SND_ASYNC As Long = &H1&
Private Const SND_LOOP As Long = &H8&

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

'Plays sound
Private Sub Command1_Click()
PlaySound "C:\WINDOWS\Media\chimes.wav", 0&, SND_ASYNC Or SND_LOOP
End Sub

'Stop sound
Private Sub Command2_Click()
PlaySound vbNullString, 0&, 0&
End Sub
</code>

Funkar bra , tack för det.

//E