24/06/09 15:59
Postato originariamente da LittleHacker:
Posta il codice che provo a dagli un'occhiata...
come posta il codice?? è lì.
cmq lo riposto:
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles WindowsMediaPlayer1.PlayStateChange
If WindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then
WindowsMediaPlayer1.URL = ListBox2.SelectedItem
WindowsMediaPlayer1.Ctlcontrols.play()
MsgBox(WindowsMediaPlayer1.URL)
End If
End Sub
il risultato è sempre lo stesso: quando finisce di riprodurre il file precedente avvia la riproduzione di quello nuovo, visualizza la msgbox ma quando premo su ok ferma la riproduzione!