易语言超级列表框表项关键字搜索代码示例

空空道人

超级列表框表项关键字搜索示例

.版本 2
.支持库 iext
.程序集 启动窗口程序集
.程序集变量 表项索引, 整数型
.子程序 _查找表项按钮_被单击
.局部变量 临时文本, 文本型
.局部变量 索引, 整数型
.局部变量 是否找到, 逻辑型
.局部变量 a, 整数型
.如果真 (输入框 (“请输入需要查找的内容”, “查找表项”, “易语言7”, 临时文本, ) ＝ 真)
  是否找到 ＝ 假
  .计次循环首 (超级列表框.取表项数 (), a)
    索引 ＝ a － 1
    .如果真 (表项关键字搜索 (超级列表框, 索引, 0, 临时文本) ＝ 真) ' 只是搜索了第1列,需要的话可以通过循环每项每列读取
      是否找到 ＝ 真
      跳出循环 ()
    .如果真结束
  .计次循环尾 ()
  .如果真 (是否找到 ＝ 假) ' 全部搜索没找到 弹出信息框
    索引 ＝ 0
    信息框 (“超级列表框中没找到” ＋ #换行符 ＋ #换行符 ＋ 临时文本, 0, “”)
  .如果真结束
  超级列表框.现行选中项 ＝ 索引
  超级列表框.保证显示 (索引)
  超级列表框.获取焦点 ()
.如果真结束
.子程序 表项关键字搜索, 逻辑型
.参数 欲搜索超级列表框, 超级列表框
.参数 欲搜索表项索引, 整数型
.参数 欲搜索列索引, 整数型
.参数 关键字, 文本型
.局部变量 标题文本, 文本型
标题文本 ＝ 超级列表框.取标题 (欲搜索表项索引, 欲搜索列索引)
.如果 (寻找文本 (标题文本, 关键字, , 真) ＝ -1)
  返回 (假) ' 未找到关键字
.否则
  返回 (真) ' 找到关键字
.如果结束
.子程序 _查找表项数值按钮_被单击
.局部变量 临时文本, 文本型
.如果真 (输入框 (“请输入需要查找的内容”, “查找表项数值”, “14”, 临时文本, #输入整数) ＝ 真)
  表项索引 ＝ 超级列表框.查找表项数值 (0, 到数值 (临时文本))
  超级列表框.现行选中项 ＝ 表项索引
  超级列表框.保证显示 (表项索引)
  超级列表框.获取焦点 ()
.如果真结束

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对琼殿技术社区的支持。如果你想了解更多相关内容请查看下面相关链接

您可能感兴趣的文章:

• 易语言地下城与勇士拾取卖物功能类源码
• 易语言地下城与勇士辅助顺图类源码
• 易语言地下城与勇士辅助剧情类源码
• 易语言制作DNF解封源码
• 易语言赋值定义多维数组的代码实例
• 易语言制作黑客小程序源码
• 易语言制作屏幕右下角弹出窗口的源码
• 易语言获取程序已运行时间的代码
• 易语言制作英雄联盟辅助的源码
• 易语言地下城与勇士辅助自动刷图类源码