易語言列表框防止專案重複加入列表框

2021-10-07 20:46:27 字數 1201 閱讀 2188

.版本 2

.程式集 視窗程式集_啟動視窗

.子程式 __啟動視窗_建立完畢

列表框1.現行選中項 = 0

**_載入 (1)

.子程式 _按鈕1_被單擊

列表框1.加入專案 (編輯框1.內容, )

編輯框1.內容 = 「」

.子程式 _按鈕2_被單擊, , , 不重複加入-1

.如果 (列表框1.選擇 (編輯框1.內容) = -1)

列表框1.加入專案 (編輯框1.內容, )

資訊框 (「新增成功!」, 0, , )

.否則資訊框 (「已經存在【」 + 編輯框1.內容 + 「】請不要重複新增該內容!」, 0, , )

.如果結束

.子程式 _按鈕3_被單擊, , , 不重複加入-2

.如果 (sendmessagea (列表框1.取視窗控制代碼 (), 399, 0, 編輯框1.內容) = -1)

列表框1.加入專案 (編輯框1.內容, )

資訊框 (「新增成功!」, 0, , )

.否則資訊框 (「已經存在【」 + 編輯框1.內容 + 「】請不要重複新增該內容!」, 0, , )

.如果結束

.子程式 _按鈕4_被單擊, , , 不重複加入-3

.區域性變數 i, 整數型

.區域性變數 重複, 邏輯型

.計次迴圈首 (列表框1.取專案數 (), i)

.如果真 (列表框1.取專案文字 (i - 1) = 編輯框1.內容)

重複 = 真

跳出迴圈 ()

.如果真結束

重複 = 假

.計次迴圈尾 ()

.如果 (重複 = 假)

列表框1.加入專案 (編輯框1.內容, )

編輯框1.內容 = 「」

資訊框 (「新增成功!」, 0, , )

.否則資訊框 (「已經存在【」 + 編輯框1.內容 + 「】請不要重複新增該內容!」, 16, , )

.如果結束

原始碼:511遇見易語言教程

易語言列表框防止專案重複加入列表框

易語言組合框去重複到列表框

在輔助開發時,我們需要通過組合框控制一些功能,或者獲取一些資料,比如把組合框裡 的值新增到列表框,這裡就需要去除重複的,以下 實現了這個功能。版本 2 支援庫 spec 支援庫 edatastructure 程式集 視窗程式集 啟動視窗 子程式 按鈕1 被單擊 區域性變數 專案,文字型 專案 組合框...

511遇見易語言教程列表框屬性方法

版本 2 程式集 視窗程式集 啟動視窗 子程式 按鈕1 被單擊 資訊框 列表框1.取專案文字 列表框1.現行選中項 資訊圖示,子程式 按鈕2 被單擊 資訊框 列表框1.取專案文字 到整數 編輯框1.內容 資訊圖示,子程式 按鈕3 被單擊 列表框1.置專案文字 列表框1.現行選中項,編輯框1.內容 子...

易語言超級列表框匯入TXT內容的方法

易語言開發windows程式中,經常需要用到超級列表框處理一些資料。那麼除了在超級列表框開發中新增資料之外,我們還怎麼從txt中匯入內容?下面本教程手把手教您怎麼操作。1.開啟 msandtaj易語言 2.在 易語言 選單欄中,選擇 程式 新建 1.在彈出的 新建 對話方塊中,選擇 windows視...