Question

vb中怎么让WindowsMediaPlayer1一开始就播放并循环

代码是这样的

Private Sub Form_Load()
WindowsMediaPlayer1.URL = ("D:\叶子\音乐.mp3")

End Sub

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 1 Then
WindowsMediaPlayer1.Controls.play
End If
End Sub
可是不行，，哪位高手看一下指点指点

Answer 1

你试试不要用PlayStateChange事件，改成timer控件去判断If NewState = 1 then 再进行播放。

Answer 2

Private Sub WindowsMediaPlayer1_StatusChange()
If WindowsMediaPlayer1.playState = 1 Then WindowsMediaPlayer1.Controls.play
End Sub