VB中如何向MEDIA PLAYER 9。0 的控件中添加播放列表

Question

VB中如何向MEDIA PLAYER 9。0 的控件中添加播放列表，非文件方式

Answer 1

Dim oWMP As WindowsMediaPlayer
Dim oMedia As IWMPMedia3
Dim oPlaylist As IWMPPlaylistSet oWMP = WindowsMediaPlayer1
Set oMedia = oWMP.newMedia("E:\music\test.wma")
Set oPlaylist = oWMP.playlistCollection.newPlaylist("列表1")
oPlaylist.appendItem oMedia

Answer 2

Dim oWMP As WindowsMediaPlayer
Dim oMedia As IWMPMedia3
Dim oPlaylist As IWMPPlaylistSet oWMP = WindowsMediaPlayer1
Set oMedia = oWMP.newMedia("E:\music\test.wma")
Set oPlaylist = oWMP.playlistCollection.newPlaylist("我的列表")
oPlaylist.appendItem oMedia