Question

哥们，那个程序listbox如何循环播放，另外，我增加了双击删除listbox中选中的歌曲名称

但是歌曲播放的和歌名错位了，如何解决，谢谢

Answer 1

什么循环？ 列表循环，还是单曲循环？
要是增加删除歌曲的话，我用的是数组，不能单独删除list，不然会出错的，我去看看

追问

哥们，看的怎么样 了？可以留下邮箱或者QQ吗？

追答

添加一个timer interval设置为1000

添加以下程序
Private Sub List1_DblClick()
Dim i As Integer
dizhi(List1.ListIndex) = ""
lb(List1.ListIndex) = ""
Open App.Path + "\music" For Output As #1
For i = 0 To List1.ListCount - 1
If dizhi(i) "" And lb(i) "" Then Write #1, lb(i), dizhi(i)
Next
Close #1
List1.Clear
Call wenjian
wmp1.Controls.stop
End Sub
Private Sub Timer1_Timer()
On Error GoTo err
If List1.ListCount = 0 Then Timer1.Enabled = False
If wmp1.playState = 1 Then
List1.ListIndex = List1.ListIndex + 1
wmp1.URL = dizhi(List1.ListIndex) + "\" + lb(List1.ListIndex)
wmp1.Controls.play
End If
Exit Sub
err:
wmp1.URL = dizhi(0) + "\" + lb(0)
wmp1.Controls.play
End Sub