PROXIMA MUSICA

SOBERASSL 09/09/2010 21:43:00
#352564
Nao esta dando certo!!!
No F8 ele chega a reproduzir a musica... soh que a linha volta para o comendo e para!!! :S

Private Sub WindowsMediaPlayer1_StatusChange()
If WindowsMediaPlayer1.playState = wmppsMediaEnded Then
If List1.ListIndex = List1.ListCount - 1 Then Exit Sub
List1.ListIndex = List1.ListIndex + 1
List1_dblClick
End If
End Sub


Private Sub List1_dblClick()

If tab_musica.State = adStateOpen Then tab_musica.Close
tab_musica.Open [Ô]select * from musica where nome_musica = [ô][Ô] & List1 & [Ô][ô][Ô]

WindowsMediaPlayer1.URL = tab_musica!caminho

End Sub

Alguem pode me ajudar.... ou se tem outra forma sei la!!

BOA NOITE
TECLA 11/09/2010 13:45:55
#352726 Resposta escolhida
Veja se é isso:

  • Screenshot

  • Link
    http://programacaoonline.4shared.com
    •
    Tópico encerrado , respostas não são mais permitidas
    Voltar