溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
快捷錄入信息與關鍵詞匹配功能代碼
.版本 2
.程序集 窗口程序集1
.程序集變量 快捷信息, 文本型
.程序集變量 分割信息, 文本型, , "0"
.子程序 _輸入編輯框_內容被改變
.局部變量 M, 整數型
.如果真 (輸入編輯框.內容 ＝ “”)
內容列表框.可視 ＝ 假
返回 ()
.如果真結束
內容列表框.清空 ()
.計次循環首 (取數組成員數 (分割信息), M)
.如果 (尋找文本 (分割信息 [M], 輸入編輯框.內容, , 假) ≠ -1)
內容列表框.插入項目 (0, 分割信息 [M], )
內容列表框.可視 ＝ 真
.否則
.如果結束
.計次循環尾 ()
.如果 (內容列表框.取項目數 () ＝ 0)
內容列表框.可視 ＝ 假
.否則
.如果真 (內容列表框.取項目數 () ≤ 10)
內容列表框.高度 ＝ 14 × 內容列表框.取項目數 ()
.如果真結束
.如果真 (內容列表框.取項目數 () ＞ 10)
內容列表框.高度 ＝ 140
.如果真結束
.如果結束
.子程序 __啟動窗口_創建完畢
快捷信息 ＝ 到文本 (讀入文件 (取運行目錄 () ＋ “\信息源.txt”))
分割信息 ＝ 分割文本 (快捷信息, “*”, )
.子程序 _錄入按鈕_被單擊
寫到文件 (取運行目錄 () ＋ “\信息源.txt”, 到字節集 (輸入編輯框.內容 ＋ “*” ＋ 快捷信息))
__啟動窗口_創建完畢 ()
.子程序 _內容列表框_列表項被選擇
輸入編輯框.內容 ＝ 內容列表框.取項目文本 (內容列表框.現行選中項)
內容列表框.清空 ()
內容列表框.可視 ＝ 假
.子程序 _輸入編輯框_按下某鍵, 邏輯型
.參數 鍵代碼, 整數型
.參數 功能鍵狀態, 整數型
.如果真 (鍵代碼 ＝ 40)
內容列表框.現行選中項 ＝ 內容列表框.現行選中項 ＋ 1
.如果真結束
.如果真 (鍵代碼 ＝ 38)
內容列表框.現行選中項 ＝ 內容列表框.現行選中項 － 1
.如果真結束
.如果真 (鍵代碼 ＝ 13)
_內容列表框_列表項被選擇 ()
.如果真結束
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對億速云的支持。如果你想了解更多相關內容請查看下面相關鏈接
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
