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

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

版本 2

支持库 iext2

支持库 iext

支持库 shell

程序集 窗口程序集1

程序集变量 数组, 文本型, , "0"

程序集变量 配置路径, 文本型

子程序 __启动窗口_创建完毕

局部变量 i, 整数型

局部变量 temp, 文本型

局部变量 组, 字节集

局部变量 file, 文本型

配置路径 ＝ 取运行目录 () ＋ “\dataini”

如果真 (文件是否存在 (配置路径) ＝ 假)

写配置项 (配置路径, “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], , , )

16、24、32、48通常作为一组，放到资源文件里，通过代码调用，并且是真彩色的图标。

运行时，程序会根据情况使用不同大小的图标。

==如果你只需要提取（显示）图标就算了。

以上就是关于易语言超级列表框（取程序图标，点击图标打开程序）全部的内容，包括:易语言超级列表框（取程序图标，点击图标打开程序）、Vb 如何获取48x48的图标、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！