'再加两个事件就行了
'当文件改变时刷新播放
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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024