皮皮网

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

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

       用到的易语言游语言游戏源代项目审核系统 源码控件:超级列表框,拖放对象.版本

       2

       .支持库

       edroptarget

       .支持库

       iext

       .支持库

       iext2

       .支持库

       shell.程序集

       窗口程序集1

       .程序集变量

       完全文件路径,

       文本型,

       ,

       "0".子程序

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

       (取窗口句柄

       ())

       拖放对象1.接收文件

       ＝

       真

       .子程序

       _拖放对象1_得到文件

       .参数

       接收到的文件路径,

       文本型

       .局部变量

       文件名,

       文本型文件名

       ＝

       取文本右边

       (接收到的文件路径,

       取文本长度

       (接收到的文件路径)

       －

       倒找文本

       (接收到的文件路径,

       “\”,

       ,

       假))

       加入成员

       (完全文件路径,

       接收到的文件路径)

       获取快捷方式

       (超级列表框1,

       文件名,

       接收到的文件路径)

       .子程序

       获取快捷方式

       .参数

       指定列表框,

       超级列表框

       .参数

       文件名,

       文本型

       .参数

       接受文件路径,

       文本型

       .局部变量

       组,

       字节集

       .局部变量

       号,

       整数型组

       ＝

       指定列表框.组

       指定列表框.可视

       ＝

       假

       号

       ＝

       提取加入

       (组,

       接受文件路径,

       ,

       )

       指定列表框.组

       ＝

       组

       .如果

       (号

       ≠

       -1)

       指定列表框.插入表项

       (-1,

       文件名,

       号,

       ,

       ,

       取数组成员数

       (完全文件路径))

       .否则

       指定列表框.插入表项

       (-1,

       文件名,

       0,

       ,

       ,

       取数组成员数

       (完全文件路径))

       .如果结束

       指定列表框.可视

       ＝

       真

       .子程序

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

       (,

       完全文件路径

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

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

       ,

       ,

       )