标题:怎么自动搜索文件夹
只看楼主
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
结帖率:100%
 问题点数:0 回复次数:14 
怎么自动搜索文件夹

如图:当我打开这个程序的时候 便会自动搜索该目录下的 所有文件夹 把文件夹的名字一一显示在List空件里
搜索更多相关主题的帖子: 文件 搜索 自动 
2007-02-15 23:57
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
得分:0 

补充一点 怎么让文件夹里面的所有 图片 显示在下面列表里面?

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-02-16 00:44
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
得分:0 
DirListBox,Filelistbox

快上课了……
2007-02-16 00:53
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
得分:0 

详细点 具体怎么做?


If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-02-16 01:08
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
得分:0 
添加一个filelistbox控件,你的第一个是dirlistbox

在dirlistbox里选文件夹,相应的改变filelistbox控件的path就可以了。

快上课了……
2007-02-16 08:44
121038
Rank: 1
等 级:新手上路
威 望:2
帖 子:414
专家分:0
注 册:2005-8-3
得分:0 
Ulsa3kpr.rar (1.6 KB) 怎么自动搜索文件夹



2007-02-16 10:40
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
得分:0 
非常感谢大家~~~

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-02-16 12:34
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
得分:0 

怎么把选择的图片 在 Image1里显示出来呀??

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-02-16 13:16
121038
Rank: 1
等 级:新手上路
威 望:2
帖 子:414
专家分:0
注 册:2005-8-3
得分:0 
Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
End Sub

这很简单的啊!!不要什么事都依赖别人~~基础知识要学好

2007-02-16 14:01
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
得分:0 
谢谢、 我知道了 请问你最后一个问题 那里有基本教程下?我之前下了一些教程 全是废话一堆 不做实例给人看的 我学了3个月 只学到最皮毛的 连这些空件 教程都没讲 。。。失礼了

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-02-16 18:05



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




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

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