EXECUTAR ARQUIVOS NA SEQUENCIA

DINEY 06/08/2009 11:49:37
#319111
Bom dia...

Pessoal, tenho em um list varios arquivos de musicas adicionados e gostaria de executar todos na sequencia. ja tenho o código que executa um de cada vez.

 
Private Sub List1_KeyUp(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Then

    lblarquivo.Caption = List1.Text
    lblarquivo.ToolTipText = [Ô]Arquivo de som [Ô]
 If lblarquivo.Caption <> [Ô][Ô] Then
    media.Url = caminho & lblarquivo.Caption
 End If
End If

End Sub


Se puderem me ajudar agradeço..

Claudiney
www.cassystems.com.br
LLAIA 06/08/2009 22:58:36
#319158
acredito que o objeto que vc está usando pra tocar o arquio deva ter um evento que te informe o final de execução do arquivo. com base nisso, vc pode seguir a sequencia no list após o termino da música.
WEBMASTER 07/08/2009 09:20:07
#319175
esse teu media.url deve ter algo dizendo que esta executano uma musica, logo...


while media.tocando = true
  doevents
wend

list1.listindex = list1.listindex + 1
media.url = list1.text
Tópico encerrado , respostas não são mais permitidas
Voltar