VB.NET2005 AxWindowsMediaPlayer1连续播放问题解决

实际上就是先定义一个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