易语言 如何查找列表框里的关键字?

易语言 如何查找列表框里的关键字?

调用格式： 〈整数型〉 寻找文本 （文本型 被搜寻的文本，文本型 欲寻找的文本，〔整数型 起始搜寻位置〕，逻辑型 是否不区分大小写） - 系统核心支持库->文本操作
英文名称：InStr
返回一个整数值，指定一文本在另一文本中最先出现的位置，位置值从 1 开始。如果未找到，返回-1。本命令为初级命令。
参数<1>的名称为“被搜寻的文本”，类型为“文本型（text）”。
参数<2>的名称为“欲寻找的文本”，类型为“文本型（text）”。
参数<3>的名称为“起始搜寻位置”，类型为“整数型（int）”，可以被省略。位置值从 1 开始。如果本参数被省略，默认为 1 。
参数<4>的名称为“是否不区分大小写”，类型为“逻辑型（bool）”，初始值为“假”。为真不区分大小写，为假区分。

操作系统需求： Windows、Linux

调用格式： 〈文本型〉 对象．取项目文本 （整数型 项目索引） - 系统核心支持库->列表框
英文名称：GetItemText
返回指定项目的文本。如果指定项目不存在，将返回空文本。本命令为初级对象成员命令。
参数<1>的名称为“项目索引”，类型为“整数型（int）”。0 为项目一，1 为项目二，如此类推。

.版本 2
.支持库 shell
.子程序 _按钮1_被单击
.局部变量 p, 整数型
.计次循环首 (列表框1.取项目数 (), p)
p ＝ p － 1
.如果真 (寻找文本 (列表框1.取项目文本 (p), “发射”, , 假) ≠ -1)
执行 (#打开文件, “F:\12\sex.swf”, , , )
返回 ()
.如果真结束
.计次循环尾 ()
' 信息框 (“找不到关键字‘发射’！”, 0, )追问打开F:\12\sex.swf后 销毁时钟2呢??

而且列表框没有发射他就打开了也

注：不是在按钮上的 而是在一个时钟上的 周期200追答

补张图

.版本 2

.支持库 shell

.子程序 _按钮1_被单击

.局部变量 p, 整数型

.计次循环首 (列表框1.取项目数 (), p)

    p ＝ p － 1

    .如果真 (寻找文本 (列表框1.取项目文本 (p), “发射”, , 假) ≠ -1)

        时钟2.时钟周期 ＝ 0

        执行 (#打开文件, “F:12sex.swf”, , , )

        输出调试文本 (“找到关键字‘发射’”)

        返回 ()

    .如果真结束

.计次循环尾 ()

输出调试文本 (“没有找到关键字‘发射’”)

' 信息框 (“找不到关键字‘发射’！”, 0, )

追问

可还是没有‘发射’这个项目的时候他就打开了 为什么?

追答

我这里运行完全正常，给你附件！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息