Ola de nuevo
En mi reproductor estoy usando el componente de windows media 10. Quiero que cuando acabe de reproducir una cancion,pase a la siguiente de la lista,y si no hay mas,q pare.Pero no se como hacerlo.Encontre este code pero no me funciona
Private Sub wmpTemp_EndOfStream(ByVal Result As Long) 'Go on to next Mp3 when done with Current one
On Error Resume Next
If List1.ListIndex = List1.ListCount - 1 Then
If Check2.Value = 1 Then
List1.ListIndex = 0
wmpTemp.URL = List1.Text
wmpTemp.Controls.play
Else
List1.ListIndex = 0
End If
Else
List1.ListIndex = List1.ListIndex + 1
wmpTemp.URL = List1.Text
wmpTemp.Controls.play
End If
End Sub
el check seria pa repetir la lista entera.
Lo q pasa es q no pasa solo d cancion,el code creo q esta bien.
Gracias