vb 播放列表一次添加多个文件

来源：百度知道 编辑：UC知道 时间：2024/06/25 20:07:24
刚学VB 写了一个播放器 但还不会向播放列表添加多个文件 一次只能打开一个文件 请问该如何打开多个文件 谢谢 谢谢
我想把添加的文件在列表只显示文件名 双击列表的文件名时播放该文件
那我想放其他的文件夹的呢

建Drive1,dir1,file1,list1,list2.
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Function 播放(文件路径 As String)
'写你的播放代码
End Function
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
List1.AddItem File1.FileName
List2.AddItem IIf(Len(File1.Path) > 3, File1.Path & "\", File1.Path) & File1.FileName
End Sub

Private Sub Form_Load()
List2.Visible = False
End Sub

Private Sub List1_Click()
播放 List2.List(List1.ListIndex)
End Sub

先用file读取一个文件夹下的mp3文件
再用do while全部加入list

是不是就这样？
do while 1
file1.selected(0)=true
if file1.list(file1.listindex)<>"" then
list1.additem file1.list(file1.listindex)
else
exit do
end if
loop