Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Allora prova a cambiare la disposizione del codice cioè:
Codice sorgente - presumibilmente Plain Text
axwidowsmediaplayer1.url = listbox2.selcteditem
msgbox(axwindowsmediaplayer1.url)
axwindowsmediaplayer1.cttcontrol.play()
Ho provato tutte le combinazioni! Fa sempre lo stesso lavoro: Inizia a eseguire la canzone, visualizza la msgbox e poi quando premo su ok interrompe la riproduzione!!
PrivateSub WindowsMediaPlayer1_PlayStateChange(ByVal sender AsObject, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent)Handles WindowsMediaPlayer1.PlayStateChange
If WindowsMediaPlayer1.playState= WMPLib.WMPPlayState.wmppsMediaEndedThen
WindowsMediaPlayer1.URL= ListBox2.SelectedItem
WindowsMediaPlayer1.Ctlcontrols.play()
MsgBox(WindowsMediaPlayer1.URL)
EndIf
EndSub
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!