| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1927 人关注过本帖
标题:[请教]如何将文件列表框中所选择的对象全部添加到列表框中.
只看楼主 加入收藏
第四类感情
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2004-9-4
收藏
 问题点数:0 回复次数:8 
[请教]如何将文件列表框中所选择的对象全部添加到列表框中.

举个列,我在文件列表框(FILE)中选择了三个文件,然后我想将所选择的文件名添加到列表框中(LIST),并且,在添加的过程中,能够记录下所有选择的文件的路径(呵呵,这一部好像我能弄出来,不过还是说说方法呵)。

小弟先谢谢各位高手了。

搜索更多相关主题的帖子: 对象 文件 列表 选择 
2004-09-04 16:38
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

图片附件: 游客没有浏览图片的权限,请 登录注册

添加一个File控件,一个Label控件,两个Command控件,代码如下 Option Explicit

Private Sub Command1_Click() Dim i As Integer List1.Clear Label1.Caption = "文件路径:" & File1.Path For i = 0 To File1.ListCount - 1 If File1.Selected(i) = True Then List1.AddItem File1.List(i) 'Exit For End If Next End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Form_Load() '在属性窗口中将File1的MultiSelect属性设为 2 Label1.Caption = "文件路径:" Command1.Caption = "添加到ListBox" Command2.Caption = "退出(&X)" End Sub


天津网站建设 http://www./
2004-09-04 17:26
第四类感情
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2004-9-4
收藏
得分:0 
呵呵,懂了,谢谢版主呵!~~

!终于明白你已变成回忆,没有言语能说明当别人问起. !像埋伏在街头的某种气息,无意间经过把往日笑与泪勾起. !如果所有的错从来一次,能否改变结局. !爱过你,在我心里只能轻轻叹息. !爱过你,失去你我才知道要珍惜.
2004-09-04 17:47
第四类感情
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2004-9-4
收藏
得分:0 

版主,再教一个问题。 为何使用记录文件路径的功能,在显示的时候,当然选择的是硬盘根目录下,也就是说C盘下的文件,而不是C盘下某个目录中的文件的时候,路径上面显示的是两根“\”。这是何故啊。 能告诉解决方法吗?

图片附件: 游客没有浏览图片的权限,请 登录注册

[此贴子已经被作者于2004-09-04 18:09:00编辑过]


!终于明白你已变成回忆,没有言语能说明当别人问起. !像埋伏在街头的某种气息,无意间经过把往日笑与泪勾起. !如果所有的错从来一次,能否改变结局. !爱过你,在我心里只能轻轻叹息. !爱过你,失去你我才知道要珍惜.
2004-09-04 18:08
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

App.Path 得到的路径如果是根目录会有一个 \ ,所以要避免这个问题要稍加处理

Dim SysPath As String

SysPath=IIF(Len(App.Path)=3,App.Path,App.Path & "\")

这样得出来的地址总有一个 \ 在最后面


天津网站建设 http://www./
2004-09-04 18:26
第四类感情
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2004-9-4
收藏
得分:0 

呵呵,小弟愚昧,还望兄弟能解释一下这一句是何意思?

“SysPath=IIF(Len(App.Path)=3,App.Path,App.Path & "\")”

再次感谢!~~~~~


!终于明白你已变成回忆,没有言语能说明当别人问起. !像埋伏在街头的某种气息,无意间经过把往日笑与泪勾起. !如果所有的错从来一次,能否改变结局. !爱过你,在我心里只能轻轻叹息. !爱过你,失去你我才知道要珍惜.
2004-09-04 19:31
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

SysPath=IIF(Len(App.Path)=3,App.Path , App.Path & "\") ---------------- -------- -------------- 判断条件 条件为真时 条件为假时

相当于

If Len(App.Path)=3 Then SysPath=App.Path Else SysPath=App.Path & "\" End If


天津网站建设 http://www./
2004-09-04 22:29
silvermoon
Rank: 1
等 级:新手上路
帖 子:188
专家分:0
注 册:2004-8-20
收藏
得分:0 
懂了```

我是一棵菠菜~~菜菜菜菜菜~~~
2004-09-05 14:18
第四类感情
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2004-9-4
收藏
得分:0 
哦,呵呵,忘了IIF哈,谢谢版主。

!终于明白你已变成回忆,没有言语能说明当别人问起. !像埋伏在街头的某种气息,无意间经过把往日笑与泪勾起. !如果所有的错从来一次,能否改变结局. !爱过你,在我心里只能轻轻叹息. !爱过你,失去你我才知道要珍惜.
2004-09-05 20:30
快速回复:[请教]如何将文件列表框中所选择的对象全部添加到列表框中.
数据加载中...
 
   



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

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