1.易语言超级列表框怎么添加快捷方式跟读取路径？
易语言超级列表框怎么添加快捷方式跟读取路径？
用到的易语言游语言游戏源代javascript编程源码控件:超级列表框,拖放对象.版本
2
.支持库
edroptarget
.支持库
iext
.支持库
iext2
.支持库
shell.程序集
窗口程序集1
.程序集变量
完全文件路径,
文本型,
,
"0".子程序
__启动窗口_创建完毕拖放对象1.注册拖放控件
(取窗口句柄
())
拖放对象1.接收文件
＝
真
.子程序
_拖放对象1_得到文件
.参数
接收到的文件路径,
文本型
.局部变量
文件名,
文本型文件名
＝
取文本右边
(接收到的文件路径,
取文本长度
(接收到的文件路径)
－
倒找文本
(接收到的文件路径,
“\”,
,
假))
加入成员
(完全文件路径,
接收到的文件路径)
获取快捷方式
(超级列表框1,
文件名,
接收到的文件路径)
.子程序
获取快捷方式
.参数
指定列表框,
超级列表框
.参数
文件名,
文本型
.参数
接受文件路径,
文本型
.局部变量
组,
字节集
.局部变量
号,
整数型组
＝
指定列表框.组
指定列表框.可视
＝
假
号
＝
提取加入
(组,
接受文件路径,
,
)
指定列表框.组
＝
组
.如果
(号
≠
-1)
指定列表框.插入表项
(-1,
文件名,
号,
,
,
取数组成员数
(完全文件路径))
.否则
指定列表框.插入表项
(-1,
文件名,
0,
,
,
取数组成员数
(完全文件路径))
.如果结束
指定列表框.可视
＝
真
.子程序
_超级列表框1_表项被激活执行
(,
完全文件路径
[超级列表框1.取表项数值
(超级列表框1.现行选中项)],
,
,
)
