Question

vb中WMP怎样全部循环

Private Sub Command1_Click()
WindowsMediaPlayer1.URL = List1.list(List1.ListIndex)
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Form2.Hide
Form3.Hide
Form1.Show
End Sub

Private Sub Form_Load()
Dim a()
Form1.AutoRedraw = True
File1.Path = "D:\新年音乐"
File1.Pattern = "*.mp3;*.wma"
ReDim a(0 To File1.ListCount - 1)

For i = 0 To File1.ListCount - 1
a(i) = File1.Path & "\" & File1.list(i)
List1.AddItem a(i)
Next

List1.ListIndex = 0
End Sub

Private Sub Timer1_Timer()
If List1.ListIndex = List1.ListCount - 1 Then Exit Sub
If WindowsMediaPlayer1.playState = wmppsStopped Then
List1.ListIndex = List1.ListIndex + 1
Command1_Click
End If
End Sub

我想让LIST里的歌曲全部循环

Answer 1

Private Sub Timer1_Timer()
If WindowsMediaPlayer1.playState = wmppsStopped Then
If List1.ListIndex = List1.ListCount - 1 Then
List1.ListIndex = 0
Else
List1.ListIndex = List1.ListIndex + 1
End If
Timer1.Enabled = False
Command1_Click
End If
End Sub