實(shí)際上就是先定義一個(gè)wmp的播放列表:

 dim currentlist as wmplib.iwmpplaylist = me.axwindowsmediaplayer1.currentplaylist
        dim media as wmplib.iwmpmedia

        '這里可以使用數(shù)組循環(huán),從而得到播放列表
        media = me.axwindowsmediaplayer1.newmedia("k:/娛樂休閑/mp3/寂寞的季節(jié).mp3")
        currentlist.appenditem(media)
        media = me.axwindowsmediaplayer1.newmedia("k:/娛樂休閑/mp3/ibelieve.mp3")
        currentlist.appenditem(media) 

重復(fù)播放

 private sub axwindowsmediaplayer1_playstatechange(byval sender as object, byval e as axwmplib._wmpocxevents_playstatechangeevent) handles axwindowsmediaplayer1.playstatechange
        axwindowsmediaplayer1.ctlcontrols.play()
    end sub