Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
MUDANÇA DE FAIXA NA...
 
Notifications
Clear all

MUDANÇA DE FAIXA NA PLAYLIST

 
2024 - VBA & Macros
Post Recente por serdu 8 anos atrás
4 Posts
2 Usuários
0 Reactions
907 Visualizações
RSS
 serdu
(@serdu)
Posts: 0
New Member
Topic starter
 

Senhores estou finalizando um player no Excel com o VBA e enfrento o seguinte problema, para a passagem de uma musica para a outra automaticamente, a macro que criei pula uma música, segue abaixo as linhas da programação, onde peço a gentileza de me ajudarem, desde já agradeço pela atenção.

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = WMPLib.WMPPlayState.wmppsMediaEnded Or _
NewState = WMPLib.WMPPlayState.wmppsStopped Then
Me.ListBox1.ListIndex = Me.ListBox1.ListIndex + 1
Me.WindowsMediaPlayer1.Controls.Play
End If
End Sub

 
Postado : 20/03/2017 1:09 pm
 brunoxro
(@brunoxro)
Posts: 0
New Member
 

Boa tarde serdu,

Disponibilize uma planilha de exemplo, assim fica mais fácil ajudar.

att,

 
Postado : 21/03/2017 3:55 pm
 serdu
(@serdu)
Posts: 0
New Member
Topic starter
 

Ok segue o formulário, coloquei algumas instruções, poderá ver ao abrir o formulário. Se observar vai notar que o programa pula uma faixa ao terminar uma música.
Peço desculpas mas não sou profissional da programação, portanto não sigo as regras como nomear textbox e etc, faço do meu jeito, as vezes funciona...kkk, fico grato pela atenção.

 
Postado : 22/03/2017 2:03 pm
 serdu
(@serdu)
Posts: 0
New Member
Topic starter
 

Olá amigos, consegui resolver a minha dúvida, o comando fica conforme abaixo:

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
'\\passar para a próxima música automaticamente
       
If NewState = WMPLib.WMPPlayState.wmppsStopped Then

   Me.ListBox1.ListIndex = Me.ListBox1.ListIndex + 1
   Me.WindowsMediaPlayer1.Controls.Play

End If

End Sub

Esta funcionando perfeitamente agora.

 
Postado : 14/04/2017 4:29 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico