.版本 2
.支持库 iext
.子程序 _查找_按钮_被单击
查找到的内容 = 子程序_模糊查找 (编辑框1.内容, 超级列表框1.现行选中项)
.如果 (查找到的内容 ≠ -1)
超级列表框1.现行选中项 = 查找到的内容
超级列表框1.保证显示 (查找到的内容)
超级列表框1.获取焦点 ()
.否则
信息框 (“没有你要查找的内容”, 0, , )
.如果结束
.子程序 子程序_模糊查找, 整数型, , 返回找到的表项,-1为 未找到
.参数 欲查找的文本, 文本型
.参数 起始查找位置, 整数型, 可空, 如果为空,默认为0
.局部变量 表项计次, 整数型
.局部变量 列计次, 整数型
起始查找位置 = 起始查找位置 + 1
.计次循环首 (超级列表框1.取表项数 (), 表项计次)
.如果真 (起始查找位置 > 表项计次 - 1)
到循环尾 ()
.如果真结束
.计次循环首 (超级列表框1.取列数 (), 列计次)
.如果真 (寻找文本 (超级列表框1.取标题 (表项计次 - 1, 列计次 - 1), 欲查找的文本, , 真) > 0)
返回 (表项计次 - 1)
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
播放音乐 (#尾部声音, )
.计次循环首 (超级列表框1.取表项数 (), 表项计次)
.计次循环首 (超级列表框1.取列数 (), 列计次)
.如果真 (寻找文本 (超级列表框1.取标题 (表项计次 - 1, 列计次 - 1), 欲查找的文本, , 真) > 0)
返回 (表项计次 - 1)
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
返回 (-1)
.支持库 iext
.子程序 _查找_按钮_被单击
查找到的内容 = 子程序_模糊查找 (编辑框1.内容, 超级列表框1.现行选中项)
.如果 (查找到的内容 ≠ -1)
超级列表框1.现行选中项 = 查找到的内容
超级列表框1.保证显示 (查找到的内容)
超级列表框1.获取焦点 ()
.否则
信息框 (“没有你要查找的内容”, 0, , )
.如果结束
.子程序 子程序_模糊查找, 整数型, , 返回找到的表项,-1为 未找到
.参数 欲查找的文本, 文本型
.参数 起始查找位置, 整数型, 可空, 如果为空,默认为0
.局部变量 表项计次, 整数型
.局部变量 列计次, 整数型
起始查找位置 = 起始查找位置 + 1
.计次循环首 (超级列表框1.取表项数 (), 表项计次)
.如果真 (起始查找位置 > 表项计次 - 1)
到循环尾 ()
.如果真结束
.计次循环首 (超级列表框1.取列数 (), 列计次)
.如果真 (寻找文本 (超级列表框1.取标题 (表项计次 - 1, 列计次 - 1), 欲查找的文本, , 真) > 0)
返回 (表项计次 - 1)
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
播放音乐 (#尾部声音, )
.计次循环首 (超级列表框1.取表项数 (), 表项计次)
.计次循环首 (超级列表框1.取列数 (), 列计次)
.如果真 (寻找文本 (超级列表框1.取标题 (表项计次 - 1, 列计次 - 1), 欲查找的文本, , 真) > 0)
返回 (表项计次 - 1)
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
返回 (-1)