Question

VB 制作播放器 循环 随机怎么弄，还有歌曲怎么加入到列表里

刚刚开始学VB听课感觉好枯燥，边听边做了个小播放器，可是这个循环 随机不会弄，列表也弄不好，其余功能暂时能用不知道其他弄好后是否还可用，我才学了3天，网上一些教程完全看不懂

Answer 1

循环的话就是播放完了以后再开始播放下一个就行了
在timer里判断当前已播放的空腔时间是否和总的时间相同，是的话就把下一首歌的路径载入，然后播放
随机的话就是取个随机数，再播放
下面这些程序是我做的播放器里面的
If WindowsMediaPlayer1.playState = 1 And WindowsMediaPlayer1.Controls.currentPosition = 0 And tingzhi = 0 Then
Call bfmod '正常播放完成
End If

Private Sub bfmod() '在歌曲播放结束时根据播放模式决定如何继续播放（私有函数）

If qwedxz = 0 Then
dxz = dxz + 1 '斗局衫播放曲目统计
Call qqq '播放歌曲曲目统计
End If
qwedxz = 0
Form1.Caption = "DXZ Player (已播放" & dxz & "首歌曲)"

Call saveshezhi '保存设置

If bfms <> 3 Then songname = ""

If bfms = 2 And nn = n Then Exit Sub '“全部”模式时运行到最后一首歌则停止
If bfms = 4 And nn = n Then n = 0 '“全部循环”播放到最后返回第一首
If bfms = 2 Or bfms = 4 Then
n = n + 1
songname = bflbdz(n)
Call playsong
End If
If bfms = 3 Then WindowsMediaPlayer1.Controls.play '单曲循环时继续播放当前歌曲
If bfms = 5 Then '随机循环实现
n = Int(Rnd * nn) + 1
songname = bflbdz(n)
Call playsong
End If

If n > 0 Then List1.ListIndex = n - 1

End Sub

列表的话我没用它腊简默认的，我自己用一个字符串组作为列表的。复制去Google翻译翻译结果

追问

怎么加入到列表里，这个不会弄

Answer 2

卡死大开发来可是打开时的；了

Answer 3

不太擅长这个呢。。