我在用vb制作一个音乐播放器，制作好了上一首，下一首按钮之后，但是当点击了下一首，歌曲是会播放，
就是列表框被选中的歌曲还是原来的，想问问各位高手如何点击了下一首之后列表框被选中的内容也会跳到下一首歌曲呢？
是这样的么
Private Sub Command1_Click()
'播放下一首歌，：同时
List1.ListIndex = List1.ListIndex + 1
End Sub追问
Private Sub Command1_Click()
'播放下一首歌，：同时
List1.ListIndex = List1.ListIndex + 1
End Sub追问
谢谢！还有很多vb问题没解决，以后可以向你讨教吗？
追答那你这个问题解决了么？如果你已经解决就行了哈。
以后可以问我哈。
这个问题解决了，我这个作业还没完成，还有很多功能要实现。
追答原来是做作业。还有什么问题？
追问有问题，比如说我一直点击下一首，当点击到最后一首歌曲，我再点击下一首之后会跳到第一首歌曲播放，这个应该怎么弄啊？
追答if 歌id>maxID then
歌id=FirstID
有问题，我把list里的一首正在播放的歌曲删除了然后会自动跳到被删歌曲的下一首歌曲播放，这个应该怎么弄啊？
追答你删除得掉不恩？正在使用的文件似乎不能删除或者重命名吧？
温馨提示：内容为网友见解，仅供参考
第1个回答 2011-10-11
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
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
相似回答
