Question

vb音乐播放器循环播放。

我想用两个单选控件实现单曲循环和全部循环？
窗体1：Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If Option1 Then
WindowsMediaPlayer1.Settings.playCount = 99999
End If
End Sub

Private Sub Command1_Click()
Form2.Show
End Sub
窗体2：

Private Sub Command1_Click()
Form1.Text1.Text = Dir1.Path & "\" & File1.filename
Form1.WindowsMediaPlayer1.URL = Form1.Text1.Text
Form1.WindowsMediaPlayer1.Controls.Play
Form2.Hide
End Sub

Private Sub Command2_Click()

Form2.Hide
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub File1_DblClick()
Form1.Text1.Text = Dir1.Path & "\" & File1.filename
Form1.WindowsMediaPlayer1.URL = Form1.Text1.Text
Form1.WindowsMediaPlayer1.Controls.Play
Form2.Hide
End Sub

Private Sub Form_Load()

End Sub

Answer 1

可以在WindowsMediaPlaye的事件中状态判断WindowsMediaPlaye的状态，如果放完判断单选控件值，是就放原来的，不是就放下一曲