PROBLEMA COM O LISTBOX

GABYS 09/09/2010 20:26:24
#352550
Bom o erro tah dandoo na hora de passar para o proximo da lista
o codigo eh este

Private Sub WindowsMediaPlayer1_EndOfStream(ByVal Result As Long)
If List1.ListCount > List1.ListIndex + 1 Then
File1.ListIndex = List1.ListIndex + 1
Else
List1.ListIndex = 0
End If
End Sub
TECLA 09/09/2010 20:35:35
#352551
Qual é a descrição do erro?
Qual é a linha marcada pelo compilador no ato do erro?
GABYS 09/09/2010 20:42:21
#352555
ela so ñ funcionaa
Num vai para o proximo item da listaa...
queroo q vai para o proximo item da lista
TECLA 09/09/2010 21:05:45
#352559 Resposta escolhida
O evento que está usando não está certo.
Tente assim:

Private Sub WindowsMediaPlayer1_StatusChange()
If WindowsMediaPlayer1.playState = wmppsMediaEnded Then
    MsgBox [Ô]Fim da Música[Ô]
End If
End Sub
GABYS 09/09/2010 22:32:08
#352569
eh que eu queroo ir pra proxima musica da listaa tendeu?
por exemploo ta tocandoo uma quandoo acabar vai pra proxima e assim sucessivamentee
Tópico encerrado , respostas não são mais permitidas
Voltar