[VB5] Lista di Filmati da eseguire

[MdE2005]

Ciao..per gestire gli mp3 avevo scritto un progetto e anche io ebbi questa tua necessità. Usai un modulo di classe per la gestione del suono e tutto ciò prevedeva tra le altre due proprietà, chiamate "IsPlaying" e "EndOfSong". Nel tuo caso occorre verificare se questa proprietà esiste (solitamente in questo tipo di controlli esiste, quantomeno qualcosa di simile; bisogna vedere il tipo di controllo che usi): ammesso che tu la possiedi potresti fare così:

Private Sub Timer1_Timer()
On Error Resume Next
If MM.IsPlaying = False Then Exit Sub
   If MM.EndOfSong = True Then
      If List1.ListCount = 1 Then
         Exit Sub
      Else
      List1.ListIndex = Val(List1.ListIndex) + 1
      End If
  End If
End Sub

Con il timer impostato ogni secondo (o 500 millisecondi..)

fammi sapere..

ciao