搜索
首页 电脑/网络 互联网

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

全部回答

2008-12-02

0 0

    建Drive1,dir1,file1,list1,list2。代码如下。====================Function 播放(文件路径 As String)'写你的播放代码End FunctionPrivate Sub Dir1_Change()File1。
    Path = Dir1。PathEnd SubPrivate Sub Drive1_Change()Dir1。Path = Drive1。DriveEnd SubPrivate Sub File1_Click()List1。
  AddItem File1。FileNameList2。  AddItem IIf(Len(File1。Path) > 3, File1。Path & "\", File1。
  Path) & File1。FileNameEnd SubPrivate Sub Form_Load()List2。Visible = FalseEnd SubPrivate Sub List1_Click()播放 List2。
    List(List1。ListIndex)End Sub。

2008-12-03

59 0

先用file读取一个文件夹下的mp3文件再用do while全部加入list是不是就这样?do while 1file1.selected(0)=trueif file1.list(file1.listindex)<>"" then list1.additem file1.list(file1.listindex)else exit doend ifloop

类似问题换一批

热点推荐

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
互联网
程序设计
电脑装机
操作系统/系统故障
硬件
笔记本电脑
百度
反病毒
软件
互联网
互联网
QQ
上网帮助
网站推荐
举报
举报原因(必选):
取消确定举报