[Resolvido] Objeto WindowsMediaPlayer

[POLACK 0]

Pessoal é o seguinte:

Tenho um pequeno projeto, que reproduz vídeos:

Nele eu uso um DriverListBox, Um FileListBox e Um WindowsMediaPlayer .

Quando eu Clico na FileList o Media Player reproduz o vídeo, até aqui tudo bem.

 

O que eu quero fazer é o seguinte:

 

Que eu clique na FileList, e ele reproduza o vídeo, e quando o vídeo chegar ao fim, o próprio MediaPlayer detecte o fim do video e passe para o próximo vídeo, até reproduzir todos os vídeos da FileList.

 

O que eu tenho até agora é isso:

Private Sub CmdFechar_Click()
End

End Sub

Private Sub Dir1_Click()
File1.Path = Dir1.Path

End Sub

Private Sub File1_Click()
Wmplayer.URL = Dir1.Path & "\" & File1.FileName

End Sub

Private Sub Form_Load()
Dir1.Path = App.Path & "\Videos"
File1.Path = Dir1.Path

End Sub

Já baixei vários projetos de cdplayers, e mp3 players para ter uma idéia de como fazer mais não consegui nada ainda, se alguém saber como fazer por favor!

 

 

Obrigado desde já!

[POLACK 0]

Aee galera achei exatamento oq eu precisava, se for do interesse de alguem ai vai o link:

 

http://www.linhadecodigo.com.br/Artigo.aspx?id=389

 

obrigado a todos que leram o post..! abraços

 

[Resolvido]

[scorpio 7]

obrigado por compartilhar a solução POLACK..

 

 

abraços!