
1、首先打开易语言程序,在易语言程序的主界面中加入一个按钮组件 ,一个编辑框组件和一个通用对框框组件。效果如图所示。
2、编辑按钮的属性,将标题更改为获取路径。
3、双击按钮,进入窗口程序集,按快捷键ctrl+l 创建一个变量名称为读入的字节集,类型为字节集。
4、接下来写入如下代码:.版本 2通用对话框1.类型 = 0.如果真 (通用对话框1.打开 ())编辑框1.内容 = 通用对话框1.文件名.如果真结束。
5、接下来在主界面点击调试按钮,对功能进行测试,点击获取路径后,会d出选择文件的对话框,这里选择本地的一个文本文档,就可以了。
编辑框1.内容=浏览文件夹(“浏览”,)或者
加一个通用对话框
属性是打开文件
写代码:
通用对话框1.打开()
编辑框1.内容=通用对话框1.文件名
用到的控件:超级列表框,拖放对象.版本2
.支持库
edroptarget
.支持库
iext
.支持库
iext2
.支持库
shell.程序集
窗口程序集1
.程序集变量
完全文件路径,
文本型,
,
"0".子程序
__启动窗口_创建完毕拖放对象1.注册拖放控件
(取窗口句柄
())
拖放对象1.接收文件
=
真
.子程序
_拖放对象1_得到文件
.参数
接收到的文件路径,
文本型
.局部变量
文件名,
文本型文件名
=
取文本右边
(接收到的文件路径,
取文本长度
(接收到的文件路径)
-
倒找文本
(接收到的文件路径,
“\”,
,
假))
加入成员
(完全文件路径,
接收到的文件路径)
获取快捷方式
(超级列表框1,
文件名,
接收到的文件路径)
.子程序
获取快捷方式
.参数
指定列表框,
超级列表框
.参数
文件名,
文本型
.参数
接受文件路径,
文本型
.局部变量
图片组,
字节集
.局部变量
图片号,
整数型图片组
=
指定列表框.图片组
指定列表框.可视
=
假
图片号
=
提取加入图片
(图片组,
接受文件路径,
,
)
指定列表框.图片组
=
图片组
.如果
(图片号
≠
-1)
指定列表框.插入表项
(-1,
文件名,
图片号,
,
,
取数组成员数
(完全文件路径))
.否则
指定列表框.插入表项
(-1,
文件名,
0,
,
,
取数组成员数
(完全文件路径))
.如果结束
指定列表框.可视
=
真
.子程序
_超级列表框1_表项被激活执行
(,
完全文件路径
[超级列表框1.取表项数值
(超级列表框1.现行选中项)],
,
,
)
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)