Greetings.. every one..
hope all are fine..
i m facing a wired issue :(
i am trying to play the next music/song after the current one. So, i use windows media player end of stream events. It's works very fine in XP, but not works on windows 7 :(
for your information, i use (msdxm.ocx not wmp.dll).
and after some debugging, it's seems on windows 7, at endOfstream events it's just stop the play after i change the music.
Here is my current source code:
i hope i have provided sufficient information..so, any help would be highly appreciated :)
thanks in advance to all of you (active use on this forum)
best regards
hope all are fine..
i m facing a wired issue :(
i am trying to play the next music/song after the current one. So, i use windows media player end of stream events. It's works very fine in XP, but not works on windows 7 :(
for your information, i use (msdxm.ocx not wmp.dll).
and after some debugging, it's seems on windows 7, at endOfstream events it's just stop the play after i change the music.
Here is my current source code:
Code:
Private Sub mPlay_EndOfStream(ByVal Result As Long)
On Error GoTo Zakir_mPlay_EndOfStream
If CInt(lstMusics.Tag) = lstMusics.ListCount - 1 Then
lstMusics.Tag = "0"
mPlay.FileName = Mid(lstMusics.List(CInt(lstMusics.Tag)), CLng(InStr(1, lstMusics.List(CInt(lstMusics.Tag)), Space(125) & "//")) + 127)
Rem MsgBox "Test-1" ' if i uncomment this line then, on win 7 keep playing new song while the message window is showing, but it stop just after i click on message box ok button
Else
lstMusics.Tag = CStr(CInt(lstMusics.Tag) + 1)
mPlay.FileName = Mid(lstMusics.List(CInt(lstMusics.Tag)), CLng(InStr(1, lstMusics.List(CInt(lstMusics.Tag)), Space(125) & "//")) + 127)
Rem MsgBox "Test-2" ' if i uncomment this line then, on win 7 keep playing new song while the message window is showing, but it stop just after i click on message box ok button
End If
Exit Sub
Zakir_mPlay_EndOfStream:
sErrorHandeler Me, "mPlay_EndOfStream", Err.Number, Err.Description
Exit Sub
End Subthanks in advance to all of you (active use on this forum)
best regards