Private Sub Command1_Click()
Me.WindowsMediaPlayer1.Controls.pause
End Sub
Private Sub Command2_Click()
Me.WindowsMediaPlayer1.Controls.play
End Sub
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 1 Then '1为停止(一曲播完)
WindowsMediaPlayer1.Controls.play '再播放
End If
End Sub
不知道你的是怎么情况，我运行时一切正常
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024