Question

VB中的WindowsMediaPlayer自动播放下一首

我是想用Listview来作为WindowsMediaPlayer的播放列表，当双击Listview后，开始播放Listview1.selectedItem.SubItems(1)所对应的歌曲，可怎么自动播放下一首呢？网上的代码搜索了很多，貌似都不行，而且几乎用的都是List控件，哪位能帮帮我，这问题卡了我一个星期了。。。最好写上代码，先谢了

Answer 1

'再加两个事件就行了
'当文件改变时刷新播放
Private Sub WindowsMediaPlayer1_MediaChange(ByVal Item As Object)
WindowsMediaPlayer1.Controls.play
End Sub
'设定重新开始播放的环境
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
Select Case NewState
Case Is = wmppsMediaEnded '当播放结束时
WindowsMediaPlayer1.Controls.play '继续播放文件列表中的下一个
'这里添加你的播放代码
End Select
End Sub