VB.NET2005 AxWindowsMediaPlayer1連續播放問題解決

window|解決|問題

實際上就是先定義一個WMP的播放清單:

 Dim CurrentList As WMPLib.IWMPPlaylist = Me.AxWindowsMediaPlayer1.currentPlaylist
        Dim Media As WMPLib.IWMPMedia

        '這裡可以使用數組迴圈,從而得到播放清單
        Media = Me.AxWindowsMediaPlayer1.newMedia("K:\娛樂休閑\mp3\寂寞的季節.mp3")
        CurrentList.appendItem(Media)
        Media = Me.AxWindowsMediaPlayer1.newMedia("K:\娛樂休閑\mp3\IBelieve.mp3")
        CurrentList.appendItem(Media) 

重複播放

 Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
        AxWindowsMediaPlayer1.Ctlcontrols.play()
    End Sub