标题:在线急等
取消只看楼主
kamiao
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2005-7-27
 问题点数:0 回复次数:7 
在线急等
下面的代码是让comdialog打开的对话框中实现多选,并找到路径。我想把所有选中的文件
名字及路径都放到一个listbox框中,用这样修改代码?请大侠帮忙。谢谢







Dim repName As String
    Dim SelectFile() As String
    Dim i As Integer
    '选择导入的文件(可多选)
    ComDialog.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
    ComDialog.FileName = ""
    ComDialog.ShowOpen
    repName = ComDialog.FileName
    If repName = "" Then Exit Sub
    '将选择的文件用数组表示
    SelectFile = Split(repName, Chr(0))
    If UBound(SelectFile) = 0 Then
        ReDim SelectFile(1)
        SelectFile(1) = ComDialog.FileTitle
        SelectFile(0) = Left(repName, Len(repName) - Len(SelectFile(1)) - 1)
    End If
 
' SelectFile(0)中存放的是选择的路径
' SelectFile(1),...中存放的是选择的的文件名
搜索更多相关主题的帖子: 在线 
2005-08-12 14:35
kamiao
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2005-7-27
得分:0 
我的意思实际就是把comdialog打开的对话框中选中的多项记录的路径及文件名显示到listbox中,有那位大侠帮忙实现,我很急,谢谢了
2005-08-12 14:55
kamiao
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2005-7-27
得分:0 
我都快急死了,难道这里就没有这方面的高手吗?
2005-08-12 16:09
kamiao
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2005-7-27
得分:0 
谢谢你,我试试
2005-08-12 16:49
kamiao
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2005-7-27
得分:0 
我想再问一下,如果我加如到listbox框中的是歌曲的路径,那么,这样设置才能使我用鼠标点击那个文件就让播放器播放哪个文件呢?就好比说像做一个播放列表那样,点几列表中的文件就开始播放那个文件。谢谢
2005-08-12 17:03
kamiao
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2005-7-27
得分:0 
Filter属性我懂,我做过播放器,但是没有做播放列表,所以不知道这样做,我现在不明白的是,在程序运行前,listbox中没有文件,我这样设置程序运行后的listbox中的某一个歌曲的DblClick事件呢?
2005-08-12 17:26
kamiao
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2005-7-27
得分:0 
我的意思是说如何获得lst1.text的值
2005-08-13 09:03
kamiao
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2005-7-27
得分:0 
恩,我做好了,也调通了,真心的感谢你ruhong ,如果没有你的帮助,还真不知道我这块会做多就呢!thank you!
2005-08-16 10:12



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-24978-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.377988 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved