Question

我在用vb制作一个音乐播放器，制作好了上一首，下一首按钮之后，但是当点击了下一首，歌曲是会播放，

就是列表框被选中的歌曲还是原来的，想问问各位高手如何点击了下一首之后列表框被选中的内容也会跳到下一首歌曲呢？

Answer 1

是这样的么
Private Sub Command1_Click()
'播放下一首歌，：同时
List1.ListIndex = List1.ListIndex + 1
End Sub

追问

谢谢！还有很多vb问题没解决，以后可以向你讨教吗？

追答

那你这个问题解决了么？如果你已经解决就行了哈。
以后可以问我哈。

追问

这个问题解决了，我这个作业还没完成，还有很多功能要实现。

追答

原来是做作业。还有什么问题？

追问

有问题，比如说我一直点击下一首，当点击到最后一首歌曲，我再点击下一首之后会跳到第一首歌曲播放，这个应该怎么弄啊？

追答

if 歌id>maxID then
歌id=FirstID

追问

有问题，我把list里的一首正在播放的歌曲删除了然后会自动跳到被删歌曲的下一首歌曲播放，这个应该怎么弄啊？

追答

你删除得掉不恩？正在使用的文件似乎不能删除或者重命名吧？

Answer 2

Private i As Integer
Private Sub CmdPre_Click() '上一首
If i > 0 Then
List1.Selected(i - 1) = True
Else
MsgBox "已经是第一首"
End If
End Sub
Private Sub CmdNext_Click()
If i < List1.ListCount - 1 Then
List1.Selected(i + 1) = True
Else
MsgBox "已经是最后一首"
End If
End Sub
Private Sub Form_Load()
List1.AddItem "0001"
List1.AddItem "0001"
List1.AddItem "0001"
List1.AddItem "0001"
List1.AddItem "0001"
List1.AddItem "0001"
End Sub
Private Sub List1_Click()
i = List1.ListIndex
End Sub