[求助]mp3顺序播放答案请指教
请高手指教如何才能顺序播放list列表中的所有mp3,我试了两天了都找不到正确方法,现在用循环,每首歌只是一开始就变成下一首了,只有最后一首能正常播放,源码如下:
Private Sub Command2_Click()
Timer1.Enabled = True
Dim i As Integer
For i = 0 To File1.ListCount - 1
List2.AddItem Dir1.Path + "\" + File1.List(i)
List1.AddItem File1.List(i)
Next i
Dim ip As Integer
For ip = 0 To File1.ListCount - 1
If aaa = bbb Then MediaPlayer1.FileName = Dir1.Path + "\" + File1.List(ip)
MediaPlayer1.Top = 0
Text2.Text = File1.List(ip)
Next ip
End Sub
其中,aaa和bbb分别是当前播放时间和总播放时间
