组合框EX1输入字符怎么显示到指定行？

805400753

组合框EX1展开项目列表后模糊输入项目内对应的字符跳转显示到前面？
例如列表项目有1-100，输入56则保证显示就跳到56哪里

10008508

.计次循环首 (组合框EX1.取项目数 (), i)
    项目文本 = 组合框EX1.取项目文本 (i - 1)  ' 易语言的计次循环从1开始，索引从0开始
    .如果真 (寻找文本 (项目文本, 当前内容, , 假) ≠ -1)
        组合框EX1.现行选中项 = i - 1
        SendMessage (组合框EX1.取窗口句柄 (), 0x015E, i - 1, 0)
        跳出循环 ()
    .如果真结束
.计次循环尾

805400753

10008508 发表于 2025-4-4 13:46
.计次循环首 (组合框EX1.取项目数 (), i)
    项目文本 = 组合框EX1.取项目文本 (i - 1)  ' 易语言的计次循 ...

这Ai写的，我没法调试

10008508

805400753 发表于 2025-4-4 13:54
这Ai写的，我没法调试

就在这基础上改改就行了呀   要的就是效率哈

805400753

  

子程序名	返回值类型	公开	备 注
组合框内容模糊搜索_置现行选中项
参数名	类 型	参考	可空	数组	备 注
事件类型	整数型
键代码	整数型

变量名	类 型	静态	数组	备 注
当前时间	整数型
项目文本	文本型
i	整数型
匹配成功	逻辑型

如果真 (事件类型 ＝ 256)  ' 按键按下：256  按键放开：257
当前时间 ＝ 取启动时间 ()
' 处理输入间隔超时（4000ms）
如果真 (当前时间 － 程序集_键盘最后输入时间 ＞ 4000)  ' 判断键盘输入缓存存活时间
程序集_键盘输入缓存 ＝ “”  ' 按键间隔超时则清空缓存数据
程序集_键盘最后输入时间 ＝ 当前时间
' 转换键代码为有效字符
判断 (键代码 ≥ 65 且 键代码 ≤ 90)  ' A-Z
程序集_键盘输入缓存 ＝ 程序集_键盘输入缓存 ＋ 字符 (键代码 ＋ 32)  ' 统一转小写
判断 (键代码 ≥ 48 且 键代码 ≤ 57)  ' 0-9 主键盘数字
程序集_键盘输入缓存 ＝ 程序集_键盘输入缓存 ＋ 字符 (键代码)
判断 (键代码 ≥ 96 且 键代码 ≤ 105)  ' 小键盘数字
程序集_键盘输入缓存 ＝ 程序集_键盘输入缓存 ＋ 字符 (键代码 － 48)  ' 96→0,97→1...
判断 (键代码 ＝ 32)  ' 空格键ASCII码
程序集_键盘输入缓存 ＝ 程序集_键盘输入缓存 ＋ “ ”
返回 ()  ' 忽略非字母数字
调试输出 (程序集_键盘输入缓存)
计次循环首 (组合框EX1.取项目数量 (), i)
项目文本 ＝ 到小写 (组合框EX1.取项目文本 (i － 1))  ' 默认将文本内容到小写
' 全文本包含匹配
如果真 (寻找文本 (项目文本, 程序集_键盘输入缓存, , 假) ≠ -1)
组合框EX1.列表现行选中项 ＝ i － 1
组合框EX1.保证显示 (i － 1, 0)
匹配成功 ＝ 真
跳出循环 ()

计次循环尾 ()
' 未匹配时清空缓存
如果真 (匹配成功 ＝ 假)
程序集_键盘输入缓存 ＝ “”

i支持库列表	支持库注释
spec	特殊功能支持库
ExuiKrnln	(未知支持库)

.版本 2<br /> .支持库 spec<br /> .支持库 ExuiKrnln<br /> <br /> .子程序 组合框内容模糊搜索_置现行选中项<br /> .参数 事件类型, 整数型<br /> .参数 键代码, 整数型<br /> .局部变量 当前时间, 整数型<br /> .局部变量 项目文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 匹配成功, 逻辑型<br /> <br /> <br /> .如果真 (事件类型 ＝ 256)  ' 按键按下：256  按键放开：257<br />     当前时间 ＝ 取启动时间 ()<br /> <br />     ' 处理输入间隔超时（4000ms）<br />     .如果真 (当前时间 － 程序集_键盘最后输入时间 ＞ 4000)  ' 判断键盘输入缓存存活时间<br />         程序集_键盘输入缓存 ＝ “”  ' 按键间隔超时则清空缓存数据<br />     .如果真结束<br />     程序集_键盘最后输入时间 ＝ 当前时间<br /> <br />     ' 转换键代码为有效字符<br />     .判断开始 (键代码 ≥ 65 且 键代码 ≤ 90)  ' A-Z<br />         程序集_键盘输入缓存 ＝ 程序集_键盘输入缓存 ＋ 字符 (键代码 ＋ 32)  ' 统一转小写<br />     .判断 (键代码 ≥ 48 且 键代码 ≤ 57)  ' 0-9 主键盘数字<br />         程序集_键盘输入缓存 ＝ 程序集_键盘输入缓存 ＋ 字符 (键代码)<br />     .判断 (键代码 ≥ 96 且 键代码 ≤ 105)  ' 小键盘数字<br />         程序集_键盘输入缓存 ＝ 程序集_键盘输入缓存 ＋ 字符 (键代码 － 48)  ' 96→0,97→1...<br />     .判断 (键代码 ＝ 32)  ' 空格键ASCII码<br />         程序集_键盘输入缓存 ＝ 程序集_键盘输入缓存 ＋ “ ”<br />     .默认<br />         返回 ()  ' 忽略非字母数字<br />     .判断结束<br />     调试输出 (程序集_键盘输入缓存)<br /> <br />     .计次循环首 (组合框EX1.取项目数量 (), i)<br />         项目文本 ＝ 到小写 (组合框EX1.取项目文本 (i － 1))  ' 默认将文本内容到小写<br /> <br />         ' 全文本包含匹配<br />         .如果真 (寻找文本 (项目文本, 程序集_键盘输入缓存, , 假) ≠ -1)<br />             组合框EX1.列表现行选中项 ＝ i － 1<br />             组合框EX1.保证显示 (i － 1, 0)<br />             匹配成功 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     ' 未匹配时清空缓存<br />     .如果真 (匹配成功 ＝ 假)<br />         程序集_键盘输入缓存 ＝ “”<br />     .如果真结束<br /> <br /> .如果真结束

帮我看下这样有没有问题？能改进吗？