表项关键字搜索 易语言超级列表框表项关键字搜索代码示例
易语言源码教程 人气:0超级列表框表项关键字搜索示例
.版本 2 .支持库 iext .程序集 启动窗口程序集 .程序集变量 表项索引, 整数型 .子程序 _查找表项按钮_被单击 .局部变量 临时文本, 文本型 .局部变量 索引, 整数型 .局部变量 是否找到, 逻辑型 .局部变量 a, 整数型 .如果真 (输入框 (“请输入需要查找的内容”, “查找表项”, “易语言7”, 临时文本, ) = 真) 是否找到 = 假 .计次循环首 (超级列表框.取表项数 (), a) 索引 = a - 1 .如果真 (表项关键字搜索 (超级列表框, 索引, 0, 临时文本) = 真) ' 只是搜索了第1列,需要的话可以通过循环每项每列读取 是否找到 = 真 跳出循环 () .如果真结束 .计次循环尾 () .如果真 (是否找到 = 假) ' 全部搜索没找到 弹出信息框 索引 = 0 信息框 (“超级列表框中没找到” + #换行符 + #换行符 + 临时文本, 0, “”) .如果真结束 超级列表框.现行选中项 = 索引 超级列表框.保证显示 (索引) 超级列表框.获取焦点 () .如果真结束 .子程序 表项关键字搜索, 逻辑型 .参数 欲搜索超级列表框, 超级列表框 .参数 欲搜索表项索引, 整数型 .参数 欲搜索列索引, 整数型 .参数 关键字, 文本型 .局部变量 标题文本, 文本型 标题文本 = 超级列表框.取标题 (欲搜索表项索引, 欲搜索列索引) .如果 (寻找文本 (标题文本, 关键字, , 真) = -1) 返回 (假) ' 未找到关键字 .否则 返回 (真) ' 找到关键字 .如果结束 .子程序 _查找表项数值按钮_被单击 .局部变量 临时文本, 文本型 .如果真 (输入框 (“请输入需要查找的内容”, “查找表项数值”, “14”, 临时文本, #输入整数) = 真) 表项索引 = 超级列表框.查找表项数值 (0, 到数值 (临时文本)) 超级列表框.现行选中项 = 表项索引 超级列表框.保证显示 (表项索引) 超级列表框.获取焦点 () .如果真结束
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对的支持。如果你想了解更多相关内容请查看下面相关链接
加载全部内容