易语言超级列表框怎么添加快捷方式跟读取路径？

用到的控件:超级列表框,拖放对象.版本

2

.支持库

edroptarget

.支持库

iext

.支持库

iext2

.支持库

shell.程序集

窗口程序集1

.程序集变量

完全文件路径,

文本型,

,

"0".子程序

__启动窗口_创建完毕拖放对象1.注册拖放控件

(取窗口句柄

())

拖放对象1.接收文件

＝

真

.子程序

_拖放对象1_得到文件

.参数

接收到的文件路径,

文本型

.局部变量

文件名,

文本型文件名

＝

取文本右边

(接收到的文件路径,

取文本长度

(接收到的文件路径)

－

倒找文本

(接收到的文件路径,

“\”,

,

假))

加入成员

(完全文件路径,

接收到的文件路径)

获取快捷方式

(超级列表框1,

文件名,

接收到的文件路径)

.子程序

获取快捷方式

.参数

指定列表框,

超级列表框

.参数

文件名,

文本型

.参数

接受文件路径,

文本型

.局部变量

图片组,

字节集

.局部变量

图片号,

整数型图片组

＝

指定列表框.图片组

指定列表框.可视

＝

假

图片号

＝

提取加入图片

(图片组,

接受文件路径,

,

)

指定列表框.图片组

＝

图片组

.如果

(图片号

≠

-1)

指定列表框.插入表项

(-1,

文件名,

图片号,

,

,

取数组成员数

(完全文件路径))

.否则

指定列表框.插入表项

(-1,

文件名,

0,

,

,

取数组成员数

(完全文件路径))

.如果结束

指定列表框.可视

＝

真

.子程序

_超级列表框1_表项被激活执行

(,

完全文件路径

[超级列表框1.取表项数值

(超级列表框1.现行选中项)],

,

,

)

1、在窗体上添加超级列表框1和超级列表框2和按钮1

2、e语言代码如下：

.版本 2

.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

.局部变量 计数1, 整数型

.局部变量 计数2, 整数型

.计次循环首 (超级列表框1.取表项数 (), 计数1)

超级列表框2.插入表项 (, 超级列表框1.取标题 (计数1 － 1, 0), , , , 1)

.计次循环首 (超级列表框1.取列数 (), 计数2)

超级列表框2.置标题 (计数1 － 1, 计数2, 超级列表框1.取标题 (计数1 － 1, 1))

.计次循环尾 ()

计数2 ＝ 0

.计次循环尾 ()

.子程序 __启动窗口_创建完毕

.局部变量 计数, 整数型

超级列表框1.插入列 (, “aaa”, 100, , , )

超级列表框1.插入列 (, “bbb”, 100, , , )

超级列表框1.插入列 (, “ccc”, 100, , , )

.计次循环首 (5, 计数)

超级列表框1.插入表项 (, “列一条目” ＋ 到文本 (计数), , , , )

超级列表框1.置标题 (计数 － 1, 1, “列二条目” ＋ 到文本 (计数))

超级列表框1.置标题 (计数 － 1, 2, “列二条目” ＋ 到文本 (计数))

.计次循环尾 ()

超级列表框2.插入列 (, “aaa”, 100, , , )

超级列表框2.插入列 (, “bbb”, 100, , , )

超级列表框2.插入列 (, “ccc”, 100, , , )

3、测试环境“易语言5.3”。

---