展开全部
这个通过WMP的PlayStateChange（播放状态改变）事件来控制。
Private Sub MediaPlayer1_PlayStateChange(ByVal NewState As Long)
'当播放器的播放状态变为"停止"时,再次播放
If NewState = 1 Then '1为停止(一曲播完)
MediaPlayer1.Controls.play '再播放
End If
End Sub
Private Sub MediaPlayer1_PlayStateChange(ByVal NewState As Long)
'当播放器的播放状态变为"停止"时,再次播放
If NewState = 1 Then '1为停止(一曲播完)
MediaPlayer1.Controls.play '再播放
End If
End Sub
追问
不要直接复制粘贴！注意！我说了我用的是winmm.dll
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
