如何快速插入组合框，10个项目就要1秒

心草草

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
启动时间	整数型

组合框2.清空 ()
' 组合框2.类型 ＝ 0
启动时间 ＝ 取启动时间 ()
如果真 (选择框1.选中 ＝ 真)
组合框2.禁止重画 ()
如果真 (选择框2.选中 ＝ 真)
组合框2.可视 ＝ 假
如果真 (选择框3.选中 ＝ 真)
组合框2.发送信息 (4143, 100, 0)

判断 (组合框1.内容 ＝ “1”)
组合框2.加入项目 (“11”, )
组合框2.加入项目 (“12”, )
组合框2.加入项目 (“13”, )
组合框2.加入项目 (“14”, )
组合框2.加入项目 (“15”, )
组合框2.加入项目 (“16”, )
组合框2.加入项目 (“11”, )
组合框2.加入项目 (“12”, )
组合框2.加入项目 (“13”, )
组合框2.加入项目 (“14”, )
组合框2.加入项目 (“15”, )
组合框2.加入项目 (“16”, )

判断 (组合框1.内容 ＝ “2”)
组合框2.加入项目 (“21”, )
组合框2.加入项目 (“22”, )
组合框2.加入项目 (“23”, )
组合框2.加入项目 (“24”, )
组合框2.加入项目 (“25”, )
组合框2.加入项目 (“26”, )
判断 (组合框1.内容 ＝ “3”)
组合框2.加入项目 (“31”, )
组合框2.加入项目 (“32”, )
组合框2.加入项目 (“44”, )
组合框2.加入项目 (“43”, )
组合框2.加入项目 (“35”, )
判断 (组合框1.内容 ＝ “4”)
组合框2.加入项目 (“55”, )
组合框2.加入项目 (“44”, )
组合框2.加入项目 (“33”, )
组合框2.加入项目 (“22”, )
判断 (组合框1.内容 ＝ “5”)
组合框2.加入项目 (“22”, )


如果真 (选择框1.选中 ＝ 真)
组合框2.允许重画 ()
如果真 (选择框2.选中 ＝ 真)
组合框2.可视 ＝ 真
如果真 (选择框3.选中 ＝ 真)
组合框2.发送信息 (4143, 0, 0)
调试输出 (取启动时间 () － 启动时间)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 启动时间, 整数型<br /> <br /> <br /> 组合框2.清空 ()<br /> ' 组合框2.类型 ＝ 0<br /> 启动时间 ＝ 取启动时间 ()<br /> .如果真 (选择框1.选中 ＝ 真)<br />     组合框2.禁止重画 ()<br /> .如果真结束<br /> .如果真 (选择框2.选中 ＝ 真)<br />     组合框2.可视 ＝ 假<br /> .如果真结束<br /> .如果真 (选择框3.选中 ＝ 真)<br />     组合框2.发送信息 (4143, 100, 0)<br /> .如果真结束<br /> <br /> .判断开始 (组合框1.内容 ＝ “1”)<br />     组合框2.加入项目 (“11”, )<br />     组合框2.加入项目 (“12”, )<br />     组合框2.加入项目 (“13”, )<br />     组合框2.加入项目 (“14”, )<br />     组合框2.加入项目 (“15”, )<br />     组合框2.加入项目 (“16”, )<br />     组合框2.加入项目 (“11”, )<br />     组合框2.加入项目 (“12”, )<br />     组合框2.加入项目 (“13”, )<br />     组合框2.加入项目 (“14”, )<br />     组合框2.加入项目 (“15”, )<br />     组合框2.加入项目 (“16”, )<br /> <br /> .判断 (组合框1.内容 ＝ “2”)<br />     组合框2.加入项目 (“21”, )<br />     组合框2.加入项目 (“22”, )<br />     组合框2.加入项目 (“23”, )<br />     组合框2.加入项目 (“24”, )<br />     组合框2.加入项目 (“25”, )<br />     组合框2.加入项目 (“26”, )<br /> .判断 (组合框1.内容 ＝ “3”)<br />     组合框2.加入项目 (“31”, )<br />     组合框2.加入项目 (“32”, )<br />     组合框2.加入项目 (“44”, )<br />     组合框2.加入项目 (“43”, )<br />     组合框2.加入项目 (“35”, )<br /> <br /> .判断 (组合框1.内容 ＝ “4”)<br />     组合框2.加入项目 (“55”, )<br />     组合框2.加入项目 (“44”, )<br />     组合框2.加入项目 (“33”, )<br />     组合框2.加入项目 (“22”, )<br /> <br /> .判断 (组合框1.内容 ＝ “5”)<br />     组合框2.加入项目 (“22”, )<br /> .默认<br /> <br /> .判断结束<br /> .如果真 (选择框1.选中 ＝ 真)<br />     组合框2.允许重画 ()<br /> .如果真结束<br /> .如果真 (选择框2.选中 ＝ 真)<br />     组合框2.可视 ＝ 真<br /> .如果真结束<br /> .如果真 (选择框3.选中 ＝ 真)<br />     组合框2.发送信息 (4143, 0, 0)<br /> .如果真结束<br /> 调试输出 (取启动时间 () － 启动时间)

对3 4个组合框更改10来个项目 每次程序都是卡5 6秒





补充内容 (2026-7-9 19:30):
抱歉，是我电脑配置问题，测试了所有回复都是和我一样慢-_-|| ，使用精易外部组合框要快些

算法艺术家

  

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

变量名	类 型	静态	数组	备 注
列表项目	快速字节集对象
项目数值	快速字节集对象
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 /> <br /> <br /> .如果真 (列表项目数 ≠ 0)<br />     组合框.列表项目 ＝ 列表项目.取字节集 (, )<br />     列表项目.清除字节集 ()<br /> .如果真结束<br /> <br /> .如果真 (项目数值数 ≠ 0)<br />     组合框.项目数值 ＝ 项目数值.取字节集 (, )<br />     项目数值.清除字节集 ()<br /> .如果真结束<br /> <br /> 组合框.允许重画 ()<br /> 组合框.可视 ＝ 真

Marvin

不到150ms

试下
1.e (4.9 KB, 下载次数: 2)

昨天 16:44 上传

点击文件名下载附件

RainCharm

如果真 (选择框1.选中 ＝ 真)
组合框2.禁止重画 ()
如果真 (选择框2.选中 ＝ 真)
组合框2.可视 ＝ 假
如果真 (选择框3.选中 ＝ 真)
组合框2.发送信息 (4143, 100, 0)


如果真 (选择框1.选中 ＝ 真)
组合框2.允许重画 ()
如果真 (选择框2.选中 ＝ 真)
组合框2.可视 ＝ 真
如果真 (选择框3.选中 ＝ 真)
组合框2.发送信息 (4143, 0, 0)

你细看一下这两份代码，是不是有问题


写了一份列子给你，时间几乎可以忽略

youximeng88

  

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

变量名	类 型	静态	数组	备 注
项目	字节集
i	整数型
项目总数	短整数型
加入的内容	文本型
t

t ＝ 取启动时间 ()
项目总数 ＝ 100
项目 ＝ 到字节集 (项目总数)
计次循环首 (项目总数, i)
加入的内容 ＝ 到文本 (i)
项目 ＝ 项目 ＋ 到字节集 (取文本长度 (加入的内容)) ＋ 到字节集 (加入的内容)
计次循环尾 ()
组合框1.列表项目 ＝ 项目
调试输出 (“用时：”, 取启动时间 () － t)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 项目, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 项目总数, 短整数型<br /> .局部变量 加入的内容, 文本型<br /> .局部变量 t<br /> <br /> t ＝ 取启动时间 ()<br /> 项目总数 ＝ 100<br /> 项目 ＝ 到字节集 (项目总数)<br /> .计次循环首 (项目总数, i)<br />     加入的内容 ＝ 到文本 (i)<br />     项目 ＝ 项目 ＋ 到字节集 (取文本长度 (加入的内容)) ＋ 到字节集 (加入的内容)<br /> .计次循环尾 ()<br /> 组合框1.列表项目 ＝ 项目<br /> 调试输出 (“用时：”, 取启动时间 () － t)

* “用时：” | 63.000000


补充内容 (2026-7-9 18:45):
直接操作字节集超级快

805400753

算法艺术家 发表于 2026-7-9 16:21
[e=3].版本 2
.支持库 commobj

这什么情况？

805400753

youximeng88 发表于 2026-7-9 18:44
[e=1].版本 2
.支持库 spec

是不是几万成员， 列表项目 = 项目 就会内存不足？

用 组合框1.加入项目 (, ) 就正常

youximeng88

805400753 发表于 2026-7-9 19:04
是不是几万成员， 列表项目 = 项目 就会内存不足？

用 组合框1.加入项目 (, ) 就正常

直接字节集只能短整数，也就是65535最多，加入项目没这个限制

心草草

RainCharm 发表于 2026-7-9 17:52
如果真 (选择框1.选中 ＝ 真)
组合框2.禁止重画 ()
如果真 (选择框2.选中 ＝ 真)

是我没描述好问题，这段是用来测试差距的，

补充内容 (2026-7-9 19:26):
我已经发现问题了 ，是我电脑配置的 问题