MediaPlayer怎么不能自动播放下一首

1、首先就是再加两个事件就法骸瘁缴诓剂搭烯但楼行当文件改变时刷新播放。

2、然后就是打上Private Sub WindowsMediaPlayer1_MediaChange(ByVal Item As Object)。

3、别忘了WindowsMediaPlayer1.Controls.playEnd Sub。

4、'还有就是设定重新开始播放的环竟Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)。

5、还有就是要打出·Select Case NewStateCase Is = wmppsMediaEnded 媪青怍牙'当播放结束WindowsMediaPlayer1.Controls.play '继续播放文件列表中的下一个。

6、最后还有就是这里添加你的播放代码End SelectEnd Sub。