请教列表框快速加载项目的方法~~

jingyigufen

想实现加载1万项目耗时在0.5s以内即可，最好不用其他第三方库或者模块。
请教各位有无好的办法。我的测试代码如下（为了生成测试文本，用了精易模块）：

  

子程序名	返回值类型	公开	备 注
加载项目_一般方法			一般方法加入项目10000个

变量名	类 型	静态	数组	备 注
i	整数型
s	整数型
e	整数型
要加载的项目文本	文本型		10000

s ＝ 取启动时间 ()
计次循环首 (取数组成员数 (要加载的项目文本), i)
要加载的项目文本 [i] ＝ 生成卡密 (“@@@**#@#***@@#@#***@”)
列表框1.加入项目 (要加载的项目文本 [i], i)
计次循环尾 ()
e ＝ 取启动时间 ()
_启动窗口.标题 ＝ 到文本 (e － s) ＋ “ms”

.版本 2<br /> <br /> .子程序 加载项目_一般方法, , , 一般方法加入项目10000个<br /> .局部变量 i, 整数型<br /> .局部变量 s, 整数型<br /> .局部变量 e, 整数型<br /> .局部变量 要加载的项目文本, 文本型, , "10000"<br /> <br /> s ＝ 取启动时间 ()<br /> .计次循环首 (取数组成员数 (要加载的项目文本), i)<br />     要加载的项目文本 <i> ＝ 生成卡密 (“@@@**#@#***@@#@#***@”)<br />     列表框1.加入项目 (要加载的项目文本 <i>, i)<br /> .计次循环尾 ()<br /> e ＝ 取启动时间 ()<br /> _启动窗口.标题 ＝ 到文本 (e － s) ＋ “ms”

补充内容 (2025-3-14 23:12):
目前用 加入项目（）耗时2.8s左右

山猫啊

可以用超级列表框虚表   百万数据  几百毫秒

虚表自绘例子,瞬间加载10亿条数据不是问题
https://bbs.125.la/forum.php?mod=viewthread&tid=14361242
(出处: 精易论坛)

超列_模拟虚表源码与例程分享【千万级别数据库导入】
https://bbs.125.la/forum.php?mod=viewthread&tid=14708341
(出处: 精易论坛)

xizhihan

多线程 进程加速器开一个

算法艺术家

  

子程序名	返回值类型	公开	备 注
列表框_快速导入数据
参数名	类 型	参考	可空	数组	备 注
列表框	列表框
列表项目组	文本型
项目数值组	整数型
保留原有数据	逻辑型				默认不保留  如果保留 必须是没经过删除的数据 超列的删除是标记删除

变量名	类 型	静态	数组	备 注
列表项目	快速字节集对象
项目数值	快速字节集对象
i	整数型
列表项目数	短整数型			必须是短整数
项目数值数	整数型

列表框.禁止重画 ()
列表框.可视 ＝ 假  ' 可视的话会耽误更多时间
列表项目数 ＝ 取数组成员数 (列表项目组)
项目数值数 ＝ 取数组成员数 (项目数值组)
如果真 (保留原有数据 ＝ 真)
如果真 (列表项目数 ≠ 0)
列表项目.添加 (列表框.列表项目)

如果真 (项目数值数 ≠ 0)
项目数值.添加 (列表框.项目数值)


如果真 (列表项目数 ≠ 0)
列表项目.添加 (到字节集 (列表项目数))
计次循环首 (列表项目数, i)
列表项目.添加 (到字节集 (取文本长度 (列表项目组 [i])), 到字节集 (列表项目组 [i]))
计次循环尾 ()

计次循环首 (项目数值数, i)
项目数值.添加 (到字节集 (项目数值组 [i]))
计次循环尾 ()
如果真 (列表项目数 ≠ 0)
列表框.列表项目 ＝ 列表项目.取字节集 (, )
列表项目.清除字节集 ()

如果真 (项目数值数 ≠ 0)
列表框.项目数值 ＝ 项目数值.取字节集 (, )
项目数值.清除字节集 ()

列表框.允许重画 ()
列表框.可视 ＝ 真

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 列表框_快速导入数据, , 公开<br /> .参数 列表框, 列表框<br /> .参数 列表项目组, 文本型, 可空 数组<br /> .参数 项目数值组, 整数型, 可空 数组<br /> .参数 保留原有数据, 逻辑型, 可空, 默认不保留  如果保留 必须是没经过删除的数据 超列的删除是标记删除<br /> .局部变量 列表项目, 快速字节集对象<br /> .局部变量 项目数值, 快速字节集对象<br /> .局部变量 i, 整数型<br /> .局部变量 列表项目数, 短整数型, , , 必须是短整数<br /> .局部变量 项目数值数, 整数型<br /> <br /> 列表框.禁止重画 ()<br /> 列表框.可视 ＝ 假  ' 可视的话会耽误更多时间<br /> 列表项目数 ＝ 取数组成员数 (列表项目组)<br /> 项目数值数 ＝ 取数组成员数 (项目数值组)<br /> <br /> .如果真 (保留原有数据 ＝ 真)<br />     .如果真 (列表项目数 ≠ 0)<br />         列表项目.添加 (列表框.列表项目)<br />     .如果真结束<br /> <br />     .如果真 (项目数值数 ≠ 0)<br />         项目数值.添加 (列表框.项目数值)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (列表项目数 ≠ 0)<br />     列表项目.添加 (到字节集 (列表项目数))<br />     .计次循环首 (列表项目数, i)<br />         列表项目.添加 (到字节集 (取文本长度 (列表项目组 <i>)), 到字节集 (列表项目组 <i>))<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> .计次循环首 (项目数值数, i)<br />     项目数值.添加 (到字节集 (项目数值组 <i>))<br /> .计次循环尾 ()<br /> <br /> <br /> .如果真 (列表项目数 ≠ 0)<br />     列表框.列表项目 ＝ 列表项目.取字节集 (, )<br />     列表项目.清除字节集 ()<br /> .如果真结束<br /> <br /> .如果真 (项目数值数 ≠ 0)<br />     列表框.项目数值 ＝ 项目数值.取字节集 (, )<br />     项目数值.清除字节集 ()<br /> .如果真结束<br /> <br /> 列表框.允许重画 ()<br /> 列表框.可视 ＝ 真