易语言怎样把文件夹中的文件全部显示在列表框里源码
如图:怎样使图中的各项功能的实现。希望给出源码。奖50分。文件夹在c:\kx88\ks\*.*...
如图:怎样使图中的各项功能的实现。希望给出源码。奖50分。文件夹在 c:\kx88\ks\*.*
展开
1个回答
展开全部
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 目录, 文本型
.局部变量 找, 文本型
' 第一个按钮看不懂你要干什么
目录 = “D:\应用\图片\*.*” ' 自己改
找 = 寻找文件 (目录, )
.判断循环首 (找 ≠ “”)
列表框1.加入项目 (找, )
找 = 寻找文件 (, )
.判断循环尾 ()
.子程序 _按钮2_被单击
.局部变量 文件路径, 文本型
.局部变量 文件, 文本型
' 不知道你是添加什么 是路径还是文件
' 路径类似上面
通用对话框1.打开 ()
文件路径 = 通用对话框1.文件名
文件 = 寻找文件 (文件路径, )
列表框1.加入项目 (文件, )
.子程序 _按钮3_被单击
列表框1.删除项目 (列表框1.现行选中项)
.子程序 _按钮4_被单击
列表框1.清空 ()
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 目录, 文本型
.局部变量 找, 文本型
' 第一个按钮看不懂你要干什么
目录 = “D:\应用\图片\*.*” ' 自己改
找 = 寻找文件 (目录, )
.判断循环首 (找 ≠ “”)
列表框1.加入项目 (找, )
找 = 寻找文件 (, )
.判断循环尾 ()
.子程序 _按钮2_被单击
.局部变量 文件路径, 文本型
.局部变量 文件, 文本型
' 不知道你是添加什么 是路径还是文件
' 路径类似上面
通用对话框1.打开 ()
文件路径 = 通用对话框1.文件名
文件 = 寻找文件 (文件路径, )
列表框1.加入项目 (文件, )
.子程序 _按钮3_被单击
列表框1.删除项目 (列表框1.现行选中项)
.子程序 _按钮4_被单击
列表框1.清空 ()
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询