检索数据显示到列表框显示不自然

zjlxwxd

来大佬帮忙优化一下代码。检索数据库数据以后显示到列表框，显示一闪一闪的，很不自然

frankiy

zjlxwxd 发表于 2025-7-12 20:55
就是他这个显示总是一顿一顿的，就显得不是很流畅

或者+Q93318525探讨

熬夜

  

子程序名	返回值类型	公开	备 注
_编辑框2_内容被改变

变量名	类 型	静态	数组	备 注
记录数	整数型

列表框1.清空 ()
列表框1.可视 ＝ 假
到首记录 ()
判断 (编辑框2.内容 ≠ “”)
判断循环首 (查找 (文本_取出现次数 (读 (1), 编辑框2.内容, ) ＞ 0))
如果 (寻找文本 (读 (2), “现货”, , 假) ＞ 0)
列表框1.插入项目 (0, 读 (1) ＋ “|” ＋ 读 (2) ＋ “|” ＋ 读 (3), )
列表框1.加入项目 (读 (1) ＋ “|” ＋ 读 (2) ＋ “|” ＋ 读 (3), )

跳过 (1)
记录数 ＝ 记录数 ＋ 1
判断循环尾 ()
判断 (列表框1.取项目数 () ＝ 0)
列表框1.可视 ＝ 假


列表框1.可视 ＝ 真
列表框1.可视 ＝ 假

.版本 2<br /> <br /> .子程序 _编辑框2_内容被改变<br /> .局部变量 记录数, 整数型<br /> <br /> 列表框1.清空 ()<br /> 列表框1.可视 ＝ 假<br /> 到首记录 ()<br /> .判断开始 (编辑框2.内容 ≠ “”)<br />     .判断循环首 (查找 (文本_取出现次数 (读 (1), 编辑框2.内容, ) ＞ 0))<br /> <br />         .如果 (寻找文本 (读 (2), “现货”, , 假) ＞ 0)<br />             列表框1.插入项目 (0, 读 (1) ＋ “|” ＋ 读 (2) ＋ “|” ＋ 读 (3), )<br />         .否则<br />             列表框1.加入项目 (读 (1) ＋ “|” ＋ 读 (2) ＋ “|” ＋ 读 (3), )<br />         .如果结束<br /> <br />         跳过 (1)<br />         记录数 ＝ 记录数 ＋ 1<br />     .判断循环尾 ()<br />     .判断开始 (列表框1.取项目数 () ＝ 0)<br />         列表框1.可视 ＝ 假<br />     .默认<br /> <br />     .判断结束<br />     列表框1.可视 ＝ 真<br /> .默认<br />     列表框1.可视 ＝ 假

这样不行吗

尛龍科技

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
edb	文本型
集_许可证	整数型
集_最后搜索时间	整数型

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

' 改变编辑框文字,列表框显示数据
' 1.搜索关键字以后,列表框显示有延时，一闪一闪的,显得不自然，有办法优化吗?让搜索显得自然一点,不要一卡然后一下全跳出来
集_许可证 ＝ 创建进入许可证 ()
edb ＝ 取运行目录 () ＋ “\产品数据.edb”
如果 (打开 (edb, , , , , , ))
调试输出 (“数据库已打开，当前记录数量：” ＋ 到文本 (取记录数 ()))
调试输出 (“数据库打开失败，错误原因：” ＋ 取错误信息 ())
集_最后搜索时间 ＝ 0

子程序名	返回值类型	公开	备 注
_编辑框2_内容被改变

集_最后搜索时间 ＝ 取启动时间 ()
启动线程 (&延迟搜索, , )

子程序名	返回值类型	公开	备 注
延迟搜索

变量名	类 型	静态	数组	备 注
等待时间	整数型

等待时间 ＝ 200
延时 (等待时间)
如果真 (取启动时间 () － 集_最后搜索时间 ≥ 等待时间)
执行搜索 ()

子程序名	返回值类型	公开	备 注
执行搜索

变量名	类 型	静态	数组	备 注
搜索内容	文本型
记录数	整数型
现货列表	文本型		0
非现货列表	文本型		0
当前文本	文本型
i	整数型
字段1内容	文本型

进入许可区 (集_许可证)
搜索内容 ＝ 编辑框2.内容
如果 (搜索内容 ＝ “”)
列表框1.可视 ＝ 假
列表框1.清空 ()
退出许可区 (集_许可证)
返回 ()
列表框1.可视 ＝ 真

列表框1.禁止重画 ()
列表框1.清空 ()
到首记录 ()
判断循环首 (尾记录后 () ＝ 假)
字段1内容 ＝ 读 (1)
如果真 (寻找文本 (字段1内容, 搜索内容, , 假) ≠ -1)
当前文本 ＝ 字段1内容 ＋ “|” ＋ 读 (2) ＋ “|” ＋ 读 (3)
如果 (寻找文本 (读 (2), “现货”, , 假) ≠ -1)
加入成员 (现货列表, 当前文本)
加入成员 (非现货列表, 当前文本)

跳过 (1)
判断循环尾 ()
计次循环首 (取数组成员数 (现货列表), i)
列表框1.加入项目 (现货列表 [i], )
计次循环尾 ()
计次循环首 (取数组成员数 (非现货列表), i)
列表框1.加入项目 (非现货列表 [i], )
计次循环尾 ()
列表框1.允许重画 ()
如果真 (列表框1.取项目数 () ＝ 0)
列表框1.可视 ＝ 假

退出许可区 (集_许可证)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

退出许可区 (集_许可证)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 edb, 文本型<br /> .程序集变量 集_许可证, 整数型<br /> .程序集变量 集_最后搜索时间, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 改变编辑框文字,列表框显示数据<br /> ' 1.搜索关键字以后,列表框显示有延时，一闪一闪的,显得不自然，有办法优化吗?让搜索显得自然一点,不要一卡然后一下全跳出来<br /> 集_许可证 ＝ 创建进入许可证 ()<br /> edb ＝ 取运行目录 () ＋ “\产品数据.edb”<br /> .如果 (打开 (edb, , , , , , ))<br />     调试输出 (“数据库已打开，当前记录数量：” ＋ 到文本 (取记录数 ()))<br /> .否则<br />     调试输出 (“数据库打开失败，错误原因：” ＋ 取错误信息 ())<br /> .如果结束<br /> 集_最后搜索时间 ＝ 0<br /> <br /> .子程序 _编辑框2_内容被改变<br /> <br /> 集_最后搜索时间 ＝ 取启动时间 ()<br /> 启动线程 (&延迟搜索, , )<br /> <br /> .子程序 延迟搜索<br /> .局部变量 等待时间, 整数型<br /> <br /> 等待时间 ＝ 200<br /> 延时 (等待时间)<br /> .如果真 (取启动时间 () － 集_最后搜索时间 ≥ 等待时间)<br />     执行搜索 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 执行搜索<br /> .局部变量 搜索内容, 文本型<br /> .局部变量 记录数, 整数型<br /> .局部变量 现货列表, 文本型, , "0"<br /> .局部变量 非现货列表, 文本型, , "0"<br /> .局部变量 当前文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 字段1内容, 文本型<br /> <br /> 进入许可区 (集_许可证)<br /> 搜索内容 ＝ 编辑框2.内容<br /> .如果 (搜索内容 ＝ “”)<br />     列表框1.可视 ＝ 假<br />     列表框1.清空 ()<br />     退出许可区 (集_许可证)<br />     返回 ()<br /> .否则<br />     列表框1.可视 ＝ 真<br /> .如果结束<br /> <br /> 列表框1.禁止重画 ()<br /> 列表框1.清空 ()<br /> 到首记录 ()<br /> .判断循环首 (尾记录后 () ＝ 假)<br />     字段1内容 ＝ 读 (1)<br />     .如果真 (寻找文本 (字段1内容, 搜索内容, , 假) ≠ -1)<br />         当前文本 ＝ 字段1内容 ＋ “|” ＋ 读 (2) ＋ “|” ＋ 读 (3)<br />         .如果 (寻找文本 (读 (2), “现货”, , 假) ≠ -1)<br />             加入成员 (现货列表, 当前文本)<br />         .否则<br />             加入成员 (非现货列表, 当前文本)<br />         .如果结束<br /> <br />     .如果真结束<br />     跳过 (1)<br /> .判断循环尾 ()<br /> <br /> .计次循环首 (取数组成员数 (现货列表), i)<br />     列表框1.加入项目 (现货列表 <i>, )<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (取数组成员数 (非现货列表), i)<br />     列表框1.加入项目 (非现货列表 <i>, )<br /> .计次循环尾 ()<br /> 列表框1.允许重画 ()<br /> .如果真 (列表框1.取项目数 () ＝ 0)<br />     列表框1.可视 ＝ 假<br /> .如果真结束<br /> <br /> 退出许可区 (集_许可证)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 退出许可区 (集_许可证)

根据你的代码给你做了部分调整，这样窗口也不会闪烁

zjlxwxd

尛龍科技 发表于 2025-7-12 19:41
[e=0].版本 2
.支持库 EThread
.支持库 spec

运行的时候也还是那样点了列表框就变白色，然后过一两秒 一下全跳出来  体验感不是特别好

zjlxwxd

熬夜 发表于 2025-7-12 19:34
[e=0].版本 2

.子程序 _编辑框2_内容被改变

好像不行

尛龍科技

zjlxwxd 发表于 2025-7-12 19:58
运行的时候也还是那样点了列表框就变白色，然后过一两秒 一下全跳出来  体验感不是特别好 ...

过的时间是加的延时，你把延时删除了看看呢

zjlxwxd

zjlxwxd 发表于 2025-7-12 19:58
好像不行

就是不行~

zjlxwxd

尛龍科技 发表于 2025-7-12 20:02
过的时间是加的延时，你把延时删除了看看呢

好一些，但是问题依然存在

frankiy

就改了一下你搜索的地方。这个数据库搜索不用加许可证哈！