精易论坛

标题: 关于超级列表框~秒结贴!! [打印本页]

作者: 小李吃不饱 时间: 2025-2-23 00:31
标题: 关于超级列表框~秒结贴!!
求大佬帮忙改改我写的好像有问题就是配合通用对话框将外部软件的图标加入到超级列表框内第一个没问题显示图标跟软件名但是添加第二个就不显示了不知道什么情况

源码奉上：

demo1.e (954.58 KB, 下载次数: 4)

作者: lainian 时间: 2025-2-23 00:31
图片变量设置成全局变量

补充内容 (2025-2-23 00:46):
.版本 2
.支持库 iext
.支持库 iext2

.程序集窗口程序集_窗口1

.子程序 _窗口1_创建完毕

超级列表框1.类型＝ 3
图片＝建空图片组 (25, 25)

.子程序 _按...

作者: lainian 时间: 2025-2-23 00:45
.版本 2
.支持库 iext
.支持库 iext2

.程序集窗口程序集_窗口1

.子程序 _窗口1_创建完毕

超级列表框1.类型＝ 3
图片＝建空图片组 (25, 25)

.子程序 _按钮1_被单击
.局部变量文件路径, 文本型
.局部变量图标索引, 整数型

通用对话框1.类型＝ 0
.如果真 (通用对话框1.打开 ())
文件路径＝通用对话框1.文件名

图标索引＝提取加入图片 (图片, 文件路径, , )
超级列表框1.图片组＝图片
超级列表框1.插入表项 (-1, 取文件名 (文件路径), 图标索引, , , )
.如果真结束

.子程序取文件名, 文本型
.参数全路径, 文本型
.局部变量局_位置, 整数型

局_位置＝倒找文本 (全路径, “\”, , 假)
返回 (取文本右边 (全路径, 取文本长度 (全路径) －局_位置))

作者: lainian 时间: 2025-2-23 00:45

[JavaScript] 纯文本查看 复制代码

.版本 2

.支持库 iext

.支持库 iext2



.程序集 窗口程序集_窗口1



.子程序 _窗口1_创建完毕



超级列表框1.类型 ＝ 3

图片 ＝ 建空图片组 (25, 25)



.子程序 _按钮1_被单击

.局部变量 文件路径, 文本型

.局部变量 图标索引, 整数型



通用对话框1.类型 ＝ 0

.如果真 (通用对话框1.打开 ())

    文件路径 ＝ 通用对话框1.文件名



    图标索引 ＝ 提取加入图片 (图片, 文件路径, , )

    超级列表框1.图片组 ＝ 图片

    超级列表框1.插入表项 (-1, 取文件名 (文件路径), 图标索引, , , )

.如果真结束





.子程序 取文件名, 文本型

.参数 全路径, 文本型

.局部变量 局_位置, 整数型



局_位置 ＝ 倒找文本 (全路径, “\”, , 假)

返回 (取文本右边 (全路径, 取文本长度 (全路径) － 局_位置))

作者: lainian 时间: 2025-2-23 00:52
这是修改好的源码

demo1.e

1.08 MB, 下载次数: 5

作者: 是可可吖 时间: 2025-2-23 01:17

例子啊.e (1 MB, 下载次数: 5)

作者: Suky 时间: 2025-2-23 02:47
图片组不要放局部变量
要放在集变量或全局变量那种静态变量才行
不然每次点击按钮后，图片组就被重置了，并且只有一个图片
而超列里插入的索引不断增加
超列表项索引跟图片组索引不一致，就导致第二个开始插入图片不成功了

欢迎光临精易论坛 (https://125.confly.eu.org/)