Question

易语言超级列表框放图标,点图标运行程序

.版本 2
.支持库 edroptarget
.支持库 iext
.支持库 shell
.支持库 iext2
.程序集 窗口程序集1
.程序集变量 图片组, 字节集
.程序集变量 图片号
.程序集变量 路径名, 文本型
.程序集变量 文件名, 文本型
.程序集变量 拖放文件名, 文本型
.程序集变量 路径, 文本型, , "0"
.子程序 __启动窗口_创建完毕
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())
拖放对象1.接收文件 ＝ 真
图片组 ＝ 超级列表框1.图片组
.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 项目
.如果真 (超级列表框1.现行选中项 ＝ -1)
返回 ()
.如果真结束
.如果真 (超级列表框1.取表项数 () ≥ 1)
项目 ＝ 超级列表框1.取表项数值 (超级列表框1.现行选中项)
执行 (, 路径 [项目], , , )
.如果真结束

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 文件后缀名, 文本型
.局部变量 文件名1, 文本型, , "0"
.局部变量 后缀名, 文本型
文件名1 ＝ 分割文本 (接收到的文件路径, #换行符, 1)
拖放文件名 ＝ 文件名1 [1]
路径名 ＝ 拖放文件名
文件后缀名 ＝ 取文本右边 (路径名, 取文本长度 (路径名) － 倒找文本 (路径名, “.”, , 假))
后缀名 ＝ 文件后缀名
.如果 (后缀名 ＝ “exe”)
图片号 ＝ 提取加入图片 (图片组, 拖放文件名, , )
.否则
图片号 ＝ 提取加入图片 (图片组, 查询快捷方式 (拖放文件名), , )
.如果结束
超级列表框1.图片组 ＝ 图片组
文件名 ＝ 取文本右边 (路径名, 取文本长度 (路径名) － 倒找文本 (路径名, “\”, , 假))
文件名 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 4)
加入成员 (路径, 路径名)
.如果 (图片号 ≠ -1)
超级列表框1.插入表项 (-1, 文件名, 图片号, , , 取数组成员数 (路径))
.否则
超级列表框1.插入表项 (-1, 文件名, 0, , , 取数组成员数 (路径))
.如果结束

为什么这样写只是加入程序名不显示图标

Answer 1

.版本 2
.支持库 iext2
.支持库 eAPI
文本位置 ＝ 倒找文本 (接收到的文件路径, “\”, , 假)
文本长度 ＝ 取文本长度 (接收到的文件路径)
文件后缀 ＝ 取文本右边 (接收到的文件路径, 3)
图片组 ＝ 建空图片组 (32, 32)

.判断开始 (文件后缀 ＝ “exe”)
提取加入图片 (图片组, 接收到的文件路径, , 真)
文件名 ＝ 取文本右边 (接收到的文件路径, 文本长度 － 文本位置)
.默认
取快捷方式目标 (接收到的文件路径, 目标, , , , , , )
文件名 ＝ 取文本右边 (目标, 文本长度 － 文本位置)

Answer 2

可能有一下文件是拖快捷方式的图标，找到的后缀名是lnk所以提取不到文件，
所以可以用 “查询快捷方式(接收到的文件路径)” 这个命令去查询快捷方式的文件地址。
但是需要判断一下后缀名，如果是lnk就用 查询快捷方式，如果不是，就直接提取。。

能用加分啊！！！

这年头不加点分你怎么好意思呢？(*^__^*) 嘻嘻

追问

- -没看懂。。我是新手。。

追答

那里不懂

Answer 3

你有数组图片吗？