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