.版本 2
.支持庫(kù) iext
.程序集 啟動(dòng)窗口程序集
.程序集變量 表項(xiàng)索引, 整數(shù)型
.子程序 _查找表項(xiàng)按鈕_被單擊
.局部變量 臨時(shí)文本, 文本型
.局部變量 索引, 整數(shù)型
.局部變量 是否找到, 邏輯型
.局部變量 a, 整數(shù)型
.如果真 (輸入框 (“請(qǐng)輸入需要查找的內(nèi)容”, “查找表項(xiàng)”, “易語(yǔ)言7”, 臨時(shí)文本, ) ＝ 真)
  是否找到 ＝ 假
  .計(jì)次循環(huán)首 (超級(jí)列表框.取表項(xiàng)數(shù) (), a)
    索引 ＝ a － 1
    .如果真 (表項(xiàng)關(guān)鍵字搜索 (超級(jí)列表框, 索引, 0, 臨時(shí)文本) ＝ 真) ' 只是搜索了第1列,需要的話可以通過(guò)循環(huán)每項(xiàng)每列讀取
      是否找到 ＝ 真
      跳出循環(huán) ()
    .如果真結(jié)束
  .計(jì)次循環(huán)尾 ()
  .如果真 (是否找到 ＝ 假) ' 全部搜索沒(méi)找到 彈出信息框
    索引 ＝ 0
    信息框 (“超級(jí)列表框中沒(méi)找到” ＋ #換行符 ＋ #換行符 ＋ 臨時(shí)文本, 0, “”)
  .如果真結(jié)束
  超級(jí)列表框.現(xiàn)行選中項(xiàng) ＝ 索引
  超級(jí)列表框.保證顯示 (索引)
  超級(jí)列表框.獲取焦點(diǎn) ()
.如果真結(jié)束
.子程序 表項(xiàng)關(guān)鍵字搜索, 邏輯型
.參數(shù) 欲搜索超級(jí)列表框, 超級(jí)列表框
.參數(shù) 欲搜索表項(xiàng)索引, 整數(shù)型
.參數(shù) 欲搜索列索引, 整數(shù)型
.參數(shù) 關(guān)鍵字, 文本型
.局部變量 標(biāo)題文本, 文本型
標(biāo)題文本 ＝ 超級(jí)列表框.取標(biāo)題 (欲搜索表項(xiàng)索引, 欲搜索列索引)
.如果 (尋找文本 (標(biāo)題文本, 關(guān)鍵字, , 真) ＝ -1)
  返回 (假) ' 未找到關(guān)鍵字
.否則
  返回 (真) ' 找到關(guān)鍵字
.如果結(jié)束
.子程序 _查找表項(xiàng)數(shù)值按鈕_被單擊
.局部變量 臨時(shí)文本, 文本型
.如果真 (輸入框 (“請(qǐng)輸入需要查找的內(nèi)容”, “查找表項(xiàng)數(shù)值”, “14”, 臨時(shí)文本, #輸入整數(shù)) ＝ 真)
  表項(xiàng)索引 ＝ 超級(jí)列表框.查找表項(xiàng)數(shù)值 (0, 到數(shù)值 (臨時(shí)文本))
  超級(jí)列表框.現(xiàn)行選中項(xiàng) ＝ 表項(xiàng)索引
  超級(jí)列表框.保證顯示 (表項(xiàng)索引)
  超級(jí)列表框.獲取焦點(diǎn) ()
.如果真結(jié)束