Keskustelu: Ohjelmointikysymykset: VB6: Stop

'Tarvittavat funktiot WAVE tiedoston soittamiseen
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_SYNC = &H0
Public Sub PlayWave(W$)
    StopWave
    Dim i As Long, RS As String, cb As Long
    RS = Space$(128)
    i = mciSendString("open waveaudio!" & W$ & " alias sound", RS, 128, cb)
    If i Then MsgBox "An Error has occured!"
    i = mciSendString("play sound", RS, 128, cb)
End Sub
Public Sub StopWave()
    Dim i As Long, RS As String, cb As Long
    RS = Space$(128)
    i = mciSendString("stop sound", RS, 128, cb)
    i = mciSendString("close sound", RS, 128, cb)
End Sub
Public Sub Pysäytä()
'tämä ei suostu toimimaan...
Dim i As Long, RS As String, cb As Long
    RS = Space$(128)
    i = mciSendString("close sound", RS, 128, cb)

End Sub