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