|
Título: Media player End of stream Publicado por: bautistasbr en 12 Septiembre 2006, 17:07 pm Ola de nuevo :D
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 Título: Re: Media player End of stream Publicado por: bautistasbr en 13 Septiembre 2006, 09:04 am nadie sabe q le pasa? :-(
Título: Re: Media player End of stream Publicado por: bautistasbr en 15 Septiembre 2006, 15:52 pm Ninguno de ustedes sabe decirme que es lo q le pasa?
|