vb mediaplayer控件自动播下一首

来源：百度知道 编辑：UC知道 时间：2024/07/07 10:22:49
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If WindowsMediaPlayer1.playState = wmppsMediaEnded Then
Call Image2_Click
MediaPlayer1.play
End If
那里出错的,我意思是当一首歌曲播放完后,自动调用Call Image2_Click ,可是当执行这个事件时MediaPlayer1.play 系统提示'424'对象错误,我是想把这个错误改过来了.
MediaPlayer1.play 如果不加这个，就不会自动播放下一首，
如果改成WindowsMediaPlayer1.Controls.play就不播放下一首了，播放只会在准备就绪状态。

楼上的
MediaPlayer和WindowsMediaPlayer两个控件是有区别的！用法不一样的

liang7886087 用的是WindowsMediaPlayer控件，所以想播放下一首时
直接把WindowsMediaPlayer.URL="你的歌曲.mp3"就可以了，这样就会自动播放
播放完后再来一遍只要输入下面的
WindowsMediaPlayer1..Controls.play'再播放

Private Sub MediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 1 Then'1为停止(一曲播完)
MediaPlayer1.Controls.play'再播放
End If
End Sub