Need to know the VB code of how to stop Playing sound through a click button

[Benzerari]

Hi All;

Please, if any one knows the visual basic code, to be added to a Stop button in order to stop playing some sound of (*.Wav) type. I have achieved to find the code for start playing sound or music which is:

OLE.DoVerb (vbOLEPrimary)

But the one to stop or interupt the sound I could not find it.

Please let know

Thank you in advance

M C Benzerari

[Dököll]

Hi All;

Please, if any one knows the visual basic code, to be added to a Stop button in order to stop playing some sound of (*.Wav) type. I have achieved to find the code for start playing sound or music which is:

OLE.DoVerb (vbOLEPrimary)

But the one to stop or interupt the sound I could not find it.

Please let know

Thank you in advance

M C Benzerari

Give this a whirl, Benzerari:

 
Private Sub Form_Load()
Dim app_path As String
 
    app_path = App.Path
    If Right$(app_path, 1) <> "\" Then app_path = app_path _
        & "\"
    txtFile.Text = app_path & "Alice_Cooper-Gimmie.mp3"
 
    ' Prepare the audio control.
    mmcAudio.Notify = False
    mmcAudio.Wait = True
    mmcAudio.Shareable = False
    mmcAudio.Command = "Close"
End Sub
 
' Play the MP3 file.
Private Sub cmdPlay_Click()
    If cmdPlay.Caption = "Play" Then
        mmcAudio.FileName = txtFile.Text
        mmcAudio.Command = "Open"
        mmcAudio.Command = "Play"
        cmdPlay.Caption = "Stop"
    Else
        mmcAudio.Command = "Stop"
        mmcAudio.Command = "Close"
    End If
End Sub
 
Private Sub mmcAudio_StatusUpdate()
    lblAudio.Caption = mmcAudio.Position & "/" & _
        mmcAudio.Length
End Sub
 
' Prepare the control to play again.
Private Sub mmcAudio_Done(NotifyCode As Integer)
    mmcAudio.Command = "Close"
    lblAudio.Caption = ""
    cmdPlay.Caption = "Play"
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    ' Close the multimedia device.
    mmcAudio.Command = "Close"
End Sub
 
 

Hopefully this is what you wanted. Let us know if it works, just found this one...

[Benzerari]

Give this a whirl, Benzerari:

 
Private Sub Form_Load()
Dim app_path As String
 
    app_path = App.Path
    If Right$(app_path, 1) <> "\" Then app_path = app_path _
        & "\"
    txtFile.Text = app_path & "Alice_Cooper-Gimmie.mp3"
 
    ' Prepare the audio control.
    mmcAudio.Notify = False
    mmcAudio.Wait = True
    mmcAudio.Shareable = False
    mmcAudio.Command = "Close"
End Sub
 
' Play the MP3 file.
Private Sub cmdPlay_Click()
    If cmdPlay.Caption = "Play" Then
        mmcAudio.FileName = txtFile.Text
        mmcAudio.Command = "Open"
        mmcAudio.Command = "Play"
        cmdPlay.Caption = "Stop"
    Else
        mmcAudio.Command = "Stop"
        mmcAudio.Command = "Close"
    End If
End Sub
 
Private Sub mmcAudio_StatusUpdate()
    lblAudio.Caption = mmcAudio.Position & "/" & _
        mmcAudio.Length
End Sub
 
' Prepare the control to play again.
Private Sub mmcAudio_Done(NotifyCode As Integer)
    mmcAudio.Command = "Close"
    lblAudio.Caption = ""
    cmdPlay.Caption = "Play"
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    ' Close the multimedia device.
    mmcAudio.Command = "Close"
End Sub
 
 

Hopefully this is what you wanted. Let us know if it works, just found this one...

Thank you very much for this reply, I did know it is so long like that, the code to start play some sound of ( .WAV ) type, uses OLE control, I though it is similar for stoping it too?

but any way I am going to try it and let you know

Thank you

M C Benzerari

[Benzerari]

Sorry! I wanted to say:

Thank you very much for this reply, I did NOT know it is so long like that, the code to start play some sound of ( .WAV ) type, uses OLE control, I though it is similar for stoping it too?

but any way I am going to try it and let you know


As there is no way to correct a thread once added...

Thank you

M C Benzerari

[Benzerari]

Give this a whirl, Benzerari:

 
Private Sub Form_Load()
Dim app_path As String
 
    app_path = App.Path
    If Right$(app_path, 1) <> "\" Then app_path = app_path _
        & "\"
    txtFile.Text = app_path & "Alice_Cooper-Gimmie.mp3"
 
    ' Prepare the audio control.
    mmcAudio.Notify = False
    mmcAudio.Wait = True
    mmcAudio.Shareable = False
    mmcAudio.Command = "Close"
End Sub
 
' Play the MP3 file.
Private Sub cmdPlay_Click()
    If cmdPlay.Caption = "Play" Then
        mmcAudio.FileName = txtFile.Text
        mmcAudio.Command = "Open"
        mmcAudio.Command = "Play"
        cmdPlay.Caption = "Stop"
    Else
        mmcAudio.Command = "Stop"
        mmcAudio.Command = "Close"
    End If
End Sub
 
Private Sub mmcAudio_StatusUpdate()
    lblAudio.Caption = mmcAudio.Position & "/" & _
        mmcAudio.Length
End Sub
 
' Prepare the control to play again.
Private Sub mmcAudio_Done(NotifyCode As Integer)
    mmcAudio.Command = "Close"
    lblAudio.Caption = ""
    cmdPlay.Caption = "Play"
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    ' Close the multimedia device.
    mmcAudio.Command = "Close"
End Sub
 
 

Hopefully this is what you wanted. Let us know if it works, just found this one...

Please can you send me a sketch of how the form related to the above code looks like, with enough details,...also you can send it as an attachement to [e-mail]. as there is no way to attach it in the forum

Thank you

M C Benzerari