VB中的WindowsMediaPlayer自动播放下一首

2024年12月01日 04:56

有1个网友回答

网友（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