Question

易语言超级列表框（取程序图标，点击图标打开程序）

给你（高悬赏）如果分不够。就加分！谢谢~

Answer 1

自己优化一下吧，这个是没上面大问题了。

.版本 2
.支持库 iext2
.支持库 iext
.支持库 shell

.程序集 窗口程序集1
.程序集变量 数组, 文本型, , "0"
.程序集变量 配置路径, 文本型

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.局部变量 temp, 文本型
.局部变量 图片组, 字节集
.局部变量 file, 文本型

配置路径 ＝ 取运行目录 () ＋ “\data.ini”
.如果真 (文件是否存在 (配置路径) ＝ 假)
写配置项 (配置路径, “USER”, , )
.如果真结束
按钮1.标题 ＝ “添加程序”
图片组 ＝ 建空图片组 (32, 32)
temp ＝ “进入循环”
.判断循环首 (temp ≠ “”)
i ＝ i ＋ 1
temp ＝ 读配置项 (配置路径, “USER”, 到文本 (i), )
.如果真 (temp ≠ “”)
加入成员 (数组, temp)
提取加入图片 (图片组, temp, 0, 假)
.如果真结束

.判断循环尾 ()
超级列表框1.图片组 ＝ 图片组
.计次循环首 (取数组成员数 (数组), i)
file ＝ 取文件名 (数组 [i])
超级列表框1.插入表项 (i － 1, file, i － 1, , , )
.计次循环尾 ()

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 temp, 文本型

通用对话框1.过滤器 ＝ “(*.exe)|*.exe”
.如果真 (通用对话框1.打开 () ＝ 假)
信息框 (“请选择正确路径！”, 0, )
返回 ()
.如果真结束
temp ＝ “进入循环”
.判断循环首 (temp ≠ “”)
i ＝ i ＋ 1
temp ＝ 读配置项 (配置路径, “USER”, 到文本 (i), )
.如果真 (temp ＝ “”)
写配置项 (配置路径, “USER”, 到文本 (i), 通用对话框1.文件名)
.如果真结束

.判断循环尾 ()
清除数组 (数组)
超级列表框1.全部删除 ()
__启动窗口_创建完毕 ()

.子程序 取文件名, 文本型
.参数 文件名, 文本型
.局部变量 temp, 文本型, , "0"
.局部变量 test, 文本型, , "0"

temp ＝ 分割文本 (文件名, “\”, )
test ＝ 分割文本 (temp [取数组成员数 (temp)], “.”, )
返回 (test [1])

.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (超级列表框1.现行选中项 ≠ 1)
执行 (, 数组 [超级列表框1.现行选中项 ＋ 1], , , )

Answer 2

100分有木有 留邮箱

Answer 3

150分有木有？留下邮箱

追问

别贪了。。