请问如何实现超级列表框图片置大小

蓝蓝学习

因为对精易原作者的尊重，注明原贴地址 TGManager桌面图标管理工具

原代码

这是原代码

实现图标显示

可以实现图片显示
------------------------------------------------------------------------------------------------
因为觉得图标太小想放大，调用了 建空图片组 (55, 55)

修改后的

修改源码如下

图标放大

图标确实放大了


-------------------------------------------问题------------------------
为什么图标会两个一样？请问我该如何修改才能实现图标放大的同时图标不冲突？ TGManager.zip (1.22 MB, 下载次数: 4)

2025-1-1 05:29 上传

点击文件名下载附件
源码


模块.zip (2.04 MB, 下载次数: 1)

2025-1-1 05:29 上传

点击文件名下载附件
模块

chenboss

修复放大图标一样.e (2.76 KB, 下载次数: 5, 售价: 2 枚 精币)

2025-1-1 07:57 上传

点击文件名下载附件

chenboss

  

子程序名	返回值类型	公开	备 注
添加文件到列表框	逻辑型
参数名	类 型	参考	可空	数组	备 注
信息	文件信息
列表框	超级列表框

变量名	类 型	静态	数组	备 注
a	逻辑型

如果 (a ＝ 假)
a ＝ 真
集_图片组 ＝ 建空图片组 (55, 55)
集_图片组 ＝ 列表框.图片组

集_图片号 ＝ 提取加入图片 (集_图片组, 信息.文件路径, , )
列表框.图片组 ＝ 集_图片组
如果 (集_图片号 ≠ -1)
列表框.插入表项 (-1, 信息.项目名, 集_图片号, , , )
列表框.插入表项 (-1, 信息.项目名, 信息.附带图标, , , )
返回 (真)

i支持库列表	支持库注释
iext	扩展界面支持库一
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext<br /> .支持库 iext2<br /> <br /> .子程序 添加文件到列表框, 逻辑型<br /> .参数 信息, 文件信息<br /> .参数 列表框, 超级列表框<br /> .局部变量 a, 逻辑型, 静态<br /> <br /> .如果 (a ＝ 假)<br />     a ＝ 真<br />     集_图片组 ＝ 建空图片组 (55, 55)<br /> .否则<br />     集_图片组 ＝ 列表框.图片组<br /> .如果结束<br /> <br /> 集_图片号 ＝ 提取加入图片 (集_图片组, 信息.文件路径, , )<br /> 列表框.图片组 ＝ 集_图片组<br /> .如果 (集_图片号 ≠ -1)<br />     列表框.插入表项 (-1, 信息.项目名, 集_图片号, , , )<br /> .否则<br />     列表框.插入表项 (-1, 信息.项目名, 信息.附带图标, , , )<br /> .如果结束<br /> 返回 (真)