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

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 /> .计次循环尾 ()

E小菜鸟

系统_处理事件（）