VB如何操作播放列表和指定播放

Question

最近刚接触VB，想做个播放器，在播放列表这一块出现了问题。请高手指点；需要的功能：已经可以把右边列表控件中的内容添加到播放列表了，如何在播放时把当前播的第几个视频，在右边有一个选中状态；可以指定播放某一个列表内的文件，指定播放后右边的列表也有个状态，上一曲、下一曲，都要在右边的列表中显示出来。再有一个，就是把当前的播放进度，也就是00:00这样的时间格式显示出来--------------------------------------------------------------Private Sub Command1_Click()'随机播放End SubPrivate Sub Command2_Click()'按顺序播放End SubPrivate Sub Command3_Click()'单曲循环End SubPrivate Sub Command4_Click()'上一曲End SubPrivate Sub Command5_Click()'下一曲End SubPrivate Sub Command6_Click()'播放列表中第2个视频End SubPrivate Sub Form_Load()List1.AddItem ("c:/1.mp4")List1.AddItem ("c:/2.mp4")List1.AddItem ("c:/abcd.mp4")List1.AddItem ("D:/tian.mp4")List1.Selected(0) = TrueDim i As Long On Error Resume Next Dim vbMedia As IWMPMedia WindowsMediaPlayer1.currentPlaylist.Clear '清空列表 For i = 0 To List1.ListCount - 1 Set vbMedia = WindowsMediaPlayer1.newMedia(List1.List(i)) If WindowsMediaPlayer1.currentPlaylist.Count = 0 Then 'Empty WindowsMediaPlayer1.currentMedia = vbMedia Else 'Exist WindowsMediaPlayer1.currentPlaylist.appendItem vbMedia End If Next i Set cMedia = NothingEnd SubPrivate Sub Label1_Click()'这个是播放时间End Sub

Answer 1

两个思路， 第一。自己管理列表，=，通过播放器状态， 用一个timer ， 自己管理列表，比如 播放器 停止了， 就 再给播放器一个文件地址 ， 进行下一个视频的播放，同时切换选择状态
第二。通过文件信息获得播放器当前文件， 然后切换选择状态， 当需要切换文件就通过更改当前列表的 index 来实现， 这需要列表文件的里同时存储相应的index 或者用有一次遍历一次列表

Answer 2

list1.listindex=序号