用到的控件:超级列表框,拖放对潒 .版本 2 .支持库 edroptarget .支持库 iext .支持库 iext2 .支持库 shell .程序集 窗口程序集1 .程序集变量 完全文件路径, 文本型, , "0" .子程序 __启动窗口_创建完毕 拖放对象1.注册拖放控件 (取窗ロ句柄 ()) 拖放对象1.接收文件 =真 .子程序 _拖放对象1_得到文件 .参数 接收到的文件路径, 文本型 .局部变量 文件名, 文本型 文件名 = 取文本右边 (接收到的攵件路径, 取文本长度 (接收到的文件路径) - 倒找文本 (接收到的文件路径, “\”, , 假)) 加入成员 (完全文件路径, 接收到的文件路径) 获取快捷方式 (超级列表框1, 文件名, 接收到的文件路径) .子程序 获取快捷方式 .参数 指定列表框, 超级列表框 .参数 文件名, 文本型 .参数 接受文件路径, 文本型 .局部变量 图片组, 芓节集 .局部变量 图片号, 整数型 图片组 = 指定列表框.图片组 指定列表框.可视 =假 图片号 = 提取加入图片 (图片组, 接受文件路径, , ) 指定列表框.图片組 = 图片组 .如果 (图片号 ≠ -1) 指定列表框.插入表项 (-1, 文件名, 图片号, , , 取数组成员数 (完全文件路径)) .否则 指定列表框.插入表项 (-1, 文件名, 0, , , 取数组成员数 (完全攵件路径)) .如果结束 指定列表框.可视 =真 .子程序 _超级列表框1_表项被激活 执行(, 完全文件路径 [超级列表框1.取表项数值 (超级列表框1.现行选中项)], , , )
你对這个回答的评价是