求助关于易语言超级列表框 加入图片

csl0326

用易语言自带的超级列表框 加入图片这个命令 加入图片多的话速度越来越慢 有没有什么解决办法 超过1000张速度几秒一张太慢了

呵呵仙

会不会是32位软件内存不够用了?有没想过如果图片一张1M*1000张,等于多大内存??

csl0326

呵呵仙 发表于 2026-7-26 18:38
会不会是32位软件内存不够用了?有没想过如果图片一张1M*1000张,等于多大内存?? ...

其实不大 每张都是处理过60✖️60的 就是这个命令只能用几十张 后面开始就越来越慢 尝试好几天没找到解决办法

呵呵仙

csl0326 发表于 2026-7-26 18:40
其实不大 每张都是处理过60✖️60的 就是这个命令只能用几十张 后面开始就越来越慢 尝试好几天没找到解决 ...

那就自绘一个列表框.这样就快了!只要内存够大存多少都可以.我是说64位软件.

算法艺术家

建两个图片组，每次加到子图片组，然后用 合并图片组 (总图片组, 图片组)   合并到总图片组，然后再用 图片组 ＝ 建空图片组 (50, 50) 把子图片组清空，正常加 多了就会卡，只能用这种缓冲区的办法，这个命令应该稍微有点问题

算法艺术家

之前写的一个代码片段 你可以参考一下，进度条滚到哪 图片就加载到哪 不卡顿

  

子程序名	返回值类型	公开	备 注
懒加载图片线程

变量名	类 型	静态	数组	备 注
i	整数型
n	整数型
总数	整数型
单次总数	整数型
显示首行	整数型
显示尾行	整数型
超列句柄	整数型
图片组	字节集
索引组	整数型		0
索引	整数型
路径	文本型
拓展名	文本型
位置	整数型
图片	字节集
图计数	整数型
加载计数	整数型
总图片组	字节集

线程_初始化COM库 ()
总图片组 ＝ 建空图片组 (50, 50)
图片组 ＝ 建空图片组 (50, 50)
加入图片 (图片组, #图50, #白色 )
进入许可区 (许可证Q)
超列查重结果.图片组 ＝ 图片组
超列句柄 ＝ 超列查重结果.取窗口句柄 ()
超列查重结果.高度 ＝ 超列查重结果.高度 ＋ 1
超列查重结果.高度 ＝ 超列查重结果.高度 － 1
哈希索引Z.创建 ( #整数型, #整数型, 16)
时钟焦点.时钟周期 ＝ 1
退出许可区 (许可证Q)
判断循环首 (真)
进入许可区 (许可证Q)
总数 ＝ 超列查重结果.取表项数 ()
显示首行 ＝ 超列取当前可视首行 (超列句柄)
显示尾行 ＝ 显示首行 ＋ 15
显示首行 ＝ 显示首行 － 5
计次循环首 (总数, i)
如果真 (i ＞ 显示首行 且 i ＜ 显示尾行)
如果真 (选择夹1.现行子夹 ＝ 1)
索引 ＝ i － 1
如果真 (哈希索引Z.cha询 (索引) ＝ 假)
哈希索引Z.添加 (索引, 0)
加载计数 ＝ 加载计数 ＋ 1
路径 ＝ 超列查重结果.取标题 (索引, 1)
拓展名 ＝ 文件_取扩展名 (路径)
如果真 (寻找文本s (拓展名, “jpg”, , 真) ≠ -1 或 寻找文本s (拓展名, “png”, , 真) ≠ -1 或 寻找文本s (拓展名, “bmp”, , 真) ≠ -1 或 寻找文本s (拓展名, “gif”, , 真) ≠ -1 或 寻找文本s (拓展名, “ico”, , 真) ≠ -1 或 寻找文本s (拓展名, “jpeg”, , 真) ≠ -1)
图片 ＝ 取图片缩略图 (路径, 50, 50)
如果真 (取字节集长度 (图片) ＞ 100)
加入图片 (图片组, 图片, #白色 )  ' 很慢’
图计数 ＝ 图计数 ＋ 1
加入成员 (索引组, 索引)
调试输出 (“计数”, 图计数)





计次循环尾 ()
单次总数 ＝ 取数组成员数 (索引组)
如果真 (单次总数 ≠ 0)
超列查重结果.禁止重画 ()
总图片组 ＝ 合并图片组 (总图片组, 图片组)
图片组 ＝ 建空图片组 (50, 50)
超列查重结果.图片组 ＝ 总图片组
图计数 ＝ 图计数 － 单次总数
计次循环首 (单次总数, n)
图计数 ＝ 图计数 ＋ 1
超列查重结果.置图片 (索引组 [n], 0, 图计数)
计次循环尾 ()
清除数组 (索引组)
如果真 (取字节集长度 (总图片组) ＞ 250000000)
调试输出 (“图片组太大了”)
懒加载清空索引Z ＝ 真
超列查重结果.允许重画 ()

如果真 (懒加载清空索引Z ＝ 真)
调试输出 (“清空索引”)
懒加载清空索引Z ＝ 假
总图片组 ＝ 建空图片组 (50, 50)
加入图片 (图片组, #图50, #白色 )
图计数 ＝ 0
加载计数 ＝ 0
哈希索引Z.创建 ( #整数型, #整数型, 16)

退出许可区 (许可证Q)
调试输出 (单次总数, 单次总数)
如果真 (加载计数 ≥ 总数)
调试输出 (“跳出去了”)
跳出循环 ()

延时 (500)
判断循环尾 ()
线程_取消COM库 ()

子程序名	返回值类型	公开	备 注
取图片缩略图	字节集
参数名	类 型	参考	可空	数组	备 注
图片路径	文本型				原图完整路径
缩略宽度	整数型				默认50像素
缩略高度	整数型				默认50像素

变量名	类 型	静态	数组	备 注
原图	GP位图
返回字节集	字节集
图像	GP图像
第一次运行	逻辑型

如果真 (第一次运行 ＝ 假)
第一次运行 ＝ 真
Gdiplus初始化 ()

如果真 (是否为空 (缩略宽度))
缩略宽度 ＝ 50
如果真 (是否为空 (缩略高度))
缩略高度 ＝ 50

如果真 (原图.创建自文件 (图片路径, ) ＝ 假)
返回 ({  })

原图.取图像缩略图 (缩略宽度, 缩略高度, 图像)
返回字节集 ＝ 图像.保存到字节集 ( #图像格式_PNG, )
图像.销毁 ()
原图.销毁 ()
返回 (返回字节集)

i支持库列表	支持库注释
iext2	扩展界面支持库二
EThread	多线程支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext2<br /> .支持库 EThread<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 懒加载图片线程<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 总数, 整数型<br /> .局部变量 单次总数, 整数型<br /> .局部变量 显示首行, 整数型<br /> .局部变量 显示尾行, 整数型<br /> .局部变量 超列句柄, 整数型<br /> .局部变量 图片组, 字节集<br /> .局部变量 索引组, 整数型, , "0"<br /> .局部变量 索引, 整数型<br /> .局部变量 路径, 文本型<br /> .局部变量 拓展名, 文本型<br /> .局部变量 位置, 整数型<br /> .局部变量 图片, 字节集<br /> .局部变量 图计数, 整数型<br /> .局部变量 加载计数, 整数型<br /> .局部变量 总图片组, 字节集<br /> <br /> 线程_初始化COM库 ()<br /> 总图片组 ＝ 建空图片组 (50, 50)<br /> 图片组 ＝ 建空图片组 (50, 50)<br /> 加入图片 (图片组, #图50, #白色)<br /> 进入许可区 (许可证Q)<br /> 超列查重结果.图片组 ＝ 图片组<br /> 超列句柄 ＝ 超列查重结果.取窗口句柄 ()<br /> 超列查重结果.高度 ＝ 超列查重结果.高度 ＋ 1<br /> 超列查重结果.高度 ＝ 超列查重结果.高度 － 1<br /> 哈希索引Z.创建 (#整数型, #整数型, 16)<br /> 时钟焦点.时钟周期 ＝ 1<br /> 退出许可区 (许可证Q)<br /> .判断循环首 (真)<br />     进入许可区 (许可证Q)<br />     总数 ＝ 超列查重结果.取表项数 ()<br />     显示首行 ＝ 超列取当前可视首行 (超列句柄)<br />     显示尾行 ＝ 显示首行 ＋ 15<br />     显示首行 ＝ 显示首行 － 5<br />     .计次循环首 (总数, i)<br />         .如果真 (i ＞ 显示首行 且 i ＜ 显示尾行)<br />             .如果真 (选择夹1.现行子夹 ＝ 1)<br />                 索引 ＝ i － 1<br />                 .如果真 (哈希索引Z.cha询 (索引) ＝ 假)<br />                     哈希索引Z.添加 (索引, 0)<br />                     加载计数 ＝ 加载计数 ＋ 1<br />                     路径 ＝ 超列查重结果.取标题 (索引, 1)<br />                     拓展名 ＝ 文件_取扩展名 (路径)<br />                     .如果真 (寻找文本s (拓展名, “jpg”, , 真) ≠ -1 或 寻找文本s (拓展名, “png”, , 真) ≠ -1 或 寻找文本s (拓展名, “bmp”, , 真) ≠ -1 或 寻找文本s (拓展名, “gif”, , 真) ≠ -1 或 寻找文本s (拓展名, “ico”, , 真) ≠ -1 或 寻找文本s (拓展名, “jpeg”, , 真) ≠ -1)<br />                         图片 ＝ 取图片缩略图 (路径, 50, 50)<br />                         .如果真 (取字节集长度 (图片) ＞ 100)<br />                             加入图片 (图片组, 图片, #白色)  ' 很慢’<br />                             图计数 ＝ 图计数 ＋ 1<br />                             加入成员 (索引组, 索引)<br />                             调试输出 (“计数”, 图计数)<br />                         .如果真结束<br /> <br />                     .如果真结束<br /> <br />                 .如果真结束<br /> <br /> <br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     单次总数 ＝ 取数组成员数 (索引组)<br />     .如果真 (单次总数 ≠ 0)<br />         超列查重结果.禁止重画 ()<br />         总图片组 ＝ 合并图片组 (总图片组, 图片组)<br />         图片组 ＝ 建空图片组 (50, 50)<br />         超列查重结果.图片组 ＝ 总图片组<br />         图计数 ＝ 图计数 － 单次总数<br />         .计次循环首 (单次总数, n)<br />             图计数 ＝ 图计数 ＋ 1<br />             超列查重结果.置图片 (索引组 [n], 0, 图计数)<br />         .计次循环尾 ()<br />         清除数组 (索引组)<br />         .如果真 (取字节集长度 (总图片组) ＞ 250000000)<br />             调试输出 (“图片组太大了”)<br />             懒加载清空索引Z ＝ 真<br />         .如果真结束<br />         超列查重结果.允许重画 ()<br />     .如果真结束<br /> <br />     .如果真 (懒加载清空索引Z ＝ 真)<br />         调试输出 (“清空索引”)<br />         懒加载清空索引Z ＝ 假<br />         总图片组 ＝ 建空图片组 (50, 50)<br />         加入图片 (图片组, #图50, #白色)<br />         图计数 ＝ 0<br />         加载计数 ＝ 0<br />         哈希索引Z.创建 (#整数型, #整数型, 16)<br />     .如果真结束<br /> <br /> <br />     退出许可区 (许可证Q)<br />     调试输出 (单次总数, 单次总数)<br />     .如果真 (加载计数 ≥ 总数)<br />         调试输出 (“跳出去了”)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     延时 (500)<br /> <br /> .判断循环尾 ()<br /> <br /> <br /> 线程_取消COM库 ()<br /> <br /> .子程序 取图片缩略图, 字节集, 公开,    <br /> .参数 图片路径, 文本型, , 原图完整路径<br /> .参数 缩略宽度, 整数型, 可空, 默认50像素<br /> .参数 缩略高度, 整数型, 可空, 默认50像素<br /> .局部变量 原图, GP位图<br /> .局部变量 返回字节集, 字节集<br /> .局部变量 图像, GP图像<br /> .局部变量 第一次运行, 逻辑型, 静态<br /> <br /> .如果真 (第一次运行 ＝ 假)<br />     第一次运行 ＝ 真<br />     Gdiplus初始化 ()<br /> .如果真结束<br /> <br /> .如果真 (是否为空 (缩略宽度))<br />     缩略宽度 ＝ 50<br /> .如果真结束<br /> .如果真 (是否为空 (缩略高度))<br />     缩略高度 ＝ 50<br /> .如果真结束<br /> <br /> .如果真 (原图.创建自文件 (图片路径, ) ＝ 假)<br />     返回 ({  })<br /> .如果真结束<br /> <br /> 原图.取图像缩略图 (缩略宽度, 缩略高度, 图像)<br /> 返回字节集 ＝ 图像.保存到字节集 (#图像格式_PNG, )<br /> 图像.销毁 ()<br /> 原图.销毁 ()<br /> <br /> 返回 (返回字节集)

csl0326

算法艺术家 发表于 2026-7-26 20:48
建两个图片组，每次加到子图片组，然后用 合并图片组 (总图片组, 图片组)   合并到总图片组，然后再用 图片 ...

你测试过这样吗  我试过建立多个图片组合并 一直返回-1

算法艺术家

csl0326 发表于 2026-7-26 20:54
你测试过这样吗  我试过建立多个图片组合并 一直返回-1

肯定好使啊 之前写的类似的功能，也是超级列表框 加载小图片，一开始也是巨卡，后来排查就是那个加入图片的命令 加多了就会卡

算法艺术家

csl0326 发表于 2026-7-26 20:54
你测试过这样吗  我试过建立多个图片组合并 一直返回-1

而且这种懒加载 无论加载多少个图片  都没事，下边有判断 多了就清空了 如果真 (取字节集长度 (总图片组) ＞ 250000000)，进度条到哪 就加载到哪 只要没爆内存 就不会清空之前加载的

csl0326

算法艺术家 发表于 2026-7-26 20:58
而且这种懒加载 无论加载多少个图片  都没事，下边有判断 多了就清空了 如果真 (取字节集长度 (总图片组) ...

感谢 我昨天也想写你说的这个 取不到可视行列 就没写成