[Resolved] mediaplayer1 repeat

[Mariuswb]

This is my code, and i dont get repeat to work.
I think i did something wrong with last code.

Option Explicit
 
Private Sub Command1_Click() ' Browse button (works perfectly)
    Me.CommonDialog1.Filter = "MP3 Files (*.mp3)|*.mp3|WAV Files (*.wav)|*.wav|MPG Movies (*.mpg)|*.mpg|AVI Movies (*.avi)|*.avi"
    Me.CommonDialog1.ShowOpen
    If Me.CommonDialog1.FileName <> "" Then
        Me.MediaPlayer1.FileName = Me.CommonDialog1.FileName
        Me.MediaPlayer1.Play
    Else
        MsgBox "Select a file first."
    End If
End Sub
 
Private Sub Command2_Click() ' Hides the window
    music.Hide
End Sub
 
 
Private Sub command3_click() ' Changes caption when click repeat box
    If (Command3.Caption = "Repeat (off)") Then
        Command3.Caption = "Repeat (on)"
    ElseIf (Command3.Caption = "Repeat (on)") Then
        Command3.Caption = "Repeat (off)"
    End If
End Sub
 
Private Sub mediaplayer1_done() ' Should repeat, but wont work :S
If (Me.Command3.Caption = "Repeat (off)") Then
    Me.MediaPlayer1.Stop
ElseIf (Me.Command3.Caption = "Repeat (on)") Then
    Me.MediaPlayer1.FileName = Me.CommonDialog1.FileName
    Me.MediaPlayer1.Play
End If
End Sub

Thanks,
Marius

[drivenbywhat]

If your button only says "repeat (on)" or "repeat (off)", then perhaps try getting rid of the ElseIf. In that line, just put ELSE and continue with code.

[Mariuswb]

Does not work

Here is my project.

[Fazi]

You need to validate the repeat in MediaPlayer1_EndOfStream event

[Fazi]

This works

Private Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
    Me.MediaPlayer1.Stop
    If (Me.Command3.Caption = "Repeat (off)") Then
        Me.MediaPlayer1.Stop
    Else
        Me.MediaPlayer1.FileName = Me.CommonDialog1.FileName
        Me.MediaPlayer1.Play
    End If

End Sub

[Mariuswb]

thank you very much Fazi

[drivenbywhat]

Yes, that worked. I was beginning to think he didn't have it in the right event but I couldn't get his project to work for me because we have different versions of MP installed. How can one get the old MP control on vb if you have the latest MP installed that replaces the old control?

[Fazi]

DrivenByWat, i also had the media player 10.
so i downlod and registred the msdxm.ocx from http://www.ocxdump.com/ocxfiles/M/msdxm.ocx
, to register this ocx, open your Run dialog, type Regsvr32 and leave a space, now drag and drop the downloded file in to your Run Dialog. so the path is auto completed. say ok. a message sould appear 'Registration of OCX Succesfull'.

Thank you for your effort tooo to solve his issue.

[Fazi]

This ocx does not overwrite your previous one

[Mariuswb]

yes. thats what i used

[Mariuswb]

Well. The question is answered now
Thanks