急救！急救！哪位高手知道VB播放器中如何实现单曲循环？

留下Email给你发一个
已发!

这个通过WMP的PlayStateChange（播放状态改变）事件来控制。

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