超级列表框插入表项时，反复使用上下滚动条就会卡死

kimmsy

想直接发源代码的，但是不知为何发不上来（压缩包也发不上来），代码也比较简单，直接贴上来吧
问题描述：
由于画板只有一个属于公共资源，因此我在超级列表框插入表项的时候，加上了临界许可，向超级列表框内插入表项并置入图片，置入图片的同时上下滚动超级列表框的滚动条，一开始还不会出现卡死的情况，表项一多必定卡死，求大神提供一下解决方案

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
图片组	字节集
_临界许可	鱼刺类_临界许可

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

图片组 ＝ 建空图片组 (50, 20)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

线程_启动 (&插入图片, , )

子程序名	返回值类型	公开	备 注
插入图片

变量名	类 型	静态	数组	备 注
表项索引	整数型
图片号	整数型

计次循环首 (1000, )
图片号 ＝ 载入图片 (HTTP读文件 (“https://inews.gtimg.com/om_bt/O98tXzU2bQgRJ5nRiiJQx_6uwzkB_rsF9e6TA7kcXr058AA/1000”))
_临界许可.进入 ()
表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
如果 (图片号 ≠ 0)
画板1.画图片 (图片号, 0, 0, 50, 20, )
卸载图片 (图片号)
图片号 ＝ 加入图片 (图片组, 画板1.取图片 (, ), )
超级列表框1.图片组 ＝ 图片组
超级列表框1.置图片 (表项索引, 1, 图片号)
卸载图片 (图片号)
_临界许可.退出 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 iext2<br /> .支持库 internet<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 图片组, 字节集<br /> .程序集变量 _临界许可, 鱼刺类_临界许可<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 图片组 ＝ 建空图片组 (50, 20)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 线程_启动 (&插入图片, , )<br /> <br /> .子程序 插入图片<br /> .局部变量 表项索引, 整数型<br /> .局部变量 图片号, 整数型<br /> <br /> .计次循环首 (1000, )<br />     图片号 ＝ 载入图片 (HTTP读文件 (“https://inews.gtimg.com/om_bt/O98tXzU2bQgRJ5nRiiJQx_6uwzkB_rsF9e6TA7kcXr058AA/1000”))<br />     _临界许可.进入 ()<br />     表项索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     .如果 (图片号 ≠ 0)<br />         画板1.画图片 (图片号, 0, 0, 50, 20, )<br />         卸载图片 (图片号)<br />         图片号 ＝ 加入图片 (图片组, 画板1.取图片 (, ), )<br />         超级列表框1.图片组 ＝ 图片组<br />         超级列表框1.置图片 (表项索引, 1, 图片号)<br />     .否则<br />         卸载图片 (图片号)<br />     .如果结束<br />     _临界许可.退出 ()<br /> .计次循环尾 ()

小海MM

计次循环 必加命令  处理事件  不加的话 运行多了内存占用飙升  肯定会卡未响应

E小菜鸟

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
图片组	字节集
停止加载	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

图片组 ＝ 建空图片组 (50, 20)
超级列表框1.图片组 ＝ 图片组
停止加载 ＝ 假

子程序名	返回值类型	公开	备 注
_按钮1_被单击

停止加载 ＝ 假
线程_启动 (&插入图片, , )

子程序名	返回值类型	公开	备 注
插入图片

变量名	类 型	静态	数组	备 注
表项索引	整数型
图片号	整数型
批量计数	整数型
临时图片组	字节集

临时图片组 ＝ 图片组
批量计数 ＝ 0
计次循环首 (1000, )
如果真 (停止加载)
跳出循环 ()

图片号 ＝ 载入图片 (HTTP读文件 (“https://inews.gtimg.com/om_bt/O98tXzU2bQgRJ5nRiiJQx_6uwzkB_rsF9e6TA7kcXr058AA/1000”))
_临界许可.进入 ()
表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
如果 (图片号 ≠ 0)
画板1.画图片 (图片号, 0, 0, 50, 20, )
卸载图片 (图片号)
图片号 ＝ 加入图片 (临时图片组, 画板1.取图片 (, ), )
超级列表框1.置图片 (表项索引, 1, 图片号)
批量计数 ＝ 批量计数 ＋ 1
如果真 (批量计数 ≥ 50)  ' 每50次更新一次图片组
超级列表框1.图片组 ＝ 临时图片组
批量计数 ＝ 0
处理事件 ()  ' 让UI有机会刷新

卸载图片 (图片号)
_临界许可.退出 ()
处理事件 ()  ' 适当让出CPU
计次循环尾 ()
超级列表框1.图片组 ＝ 临时图片组  ' 最后更新一次

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

.版本 2<br /> .支持库 iext2<br /> .支持库 iext<br /> .支持库 internet<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 图片组, 字节集<br /> .程序集变量 停止加载, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 图片组 ＝ 建空图片组 (50, 20)<br /> 超级列表框1.图片组 ＝ 图片组<br /> <br /> 停止加载 ＝ 假<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 停止加载 ＝ 假<br /> <br /> 线程_启动 (&插入图片, , )<br /> <br /> <br /> .子程序 插入图片<br /> .局部变量 表项索引, 整数型<br /> .局部变量 图片号, 整数型<br /> .局部变量 批量计数, 整数型<br /> .局部变量 临时图片组, 字节集<br /> <br /> 临时图片组 ＝ 图片组<br /> <br /> 批量计数 ＝ 0<br /> <br /> .计次循环首 (1000, )<br /> <br />     .如果真 (停止加载)<br /> <br />         跳出循环 ()<br /> <br />     .如果真结束<br /> <br />     图片号 ＝ 载入图片 (HTTP读文件 (“https://inews.gtimg.com/om_bt/O98tXzU2bQgRJ5nRiiJQx_6uwzkB_rsF9e6TA7kcXr058AA/1000”))<br /> <br />     _临界许可.进入 ()<br />     表项索引 ＝ 超级列表框1.插入表项 (, , , , , )<br /> <br />     .如果 (图片号 ≠ 0)<br /> <br />         画板1.画图片 (图片号, 0, 0, 50, 20, )<br />         卸载图片 (图片号)<br />         图片号 ＝ 加入图片 (临时图片组, 画板1.取图片 (, ), )<br />         超级列表框1.置图片 (表项索引, 1, 图片号)<br />         批量计数 ＝ 批量计数 ＋ 1<br /> <br />         .如果真 (批量计数 ≥ 50)  ' 每50次更新一次图片组<br />             超级列表框1.图片组 ＝ 临时图片组<br />             批量计数 ＝ 0<br />             处理事件 ()  ' 让UI有机会刷新<br />         .如果真结束<br /> <br />     .否则<br />         卸载图片 (图片号)<br />     .如果结束<br />     _临界许可.退出 ()<br /> <br />     处理事件 ()  ' 适当让出CPU<br /> .计次循环尾 ()<br /> <br /> 超级列表框1.图片组 ＝ 临时图片组  ' 最后更新一次

kimmsy

E小菜鸟 发表于 2025-8-9 16:35
系统_处理事件（）

之前就试过了，一样会卡死的

E小菜鸟

系统_处理事件（）