在輔助開發時，我們需要通過組合框控制一些功能，或者獲取一些資料，比如把組合框裡 的值新增到列表框，這裡就需要去除重複的，以下**實現了這個功能。
.版本 2
.支援庫 spec
.支援庫 edatastructure
.程式集 視窗程式集_啟動視窗
.子程式 _按鈕1_被單擊
.區域性變數 專案, 文字型
專案 ＝ 組合框1.內容
.判斷開始斷 (列表框加入專案 (列表框1, 專案) ＝ 1)
' 資訊框 (「專案存在了」, 0, , )
.預設 ' 列表框1.加入專案 (組合框1.取專案文字 (組合框1.現行選中項), )
' 組合框1.現行選中項 ＝ 0
.判斷結束
除錯輸出 (組合框1.取專案文字 (組合框1.現行選中項))
.如果 (查詢列表框文字 (列表框1, 專案) ＝ 真)
列表框1.加入專案 (組合框1.取專案文字 (組合框1.現行選中項), )
.否則.如果結束
.子程式 列表框加入專案, 邏輯型, , 不重複加入
.引數 列表框, 列表框
.引數 欲加入的專案文字, 文字型
.區域性變數 i, 整數型
.計次迴圈首 (列表框.取專案數 (), i)
.如果真 (欲加入的專案文字 ＝ 列表框.取專案文字 (i － 1))
返回 (假)
.如果真結束
.計次迴圈尾 ()
列表框.加入專案 (欲加入的專案文字, )
返回 (真)
.子程式 去重複, 文字型
.引數 文字陣列, 文字型, 陣列
.區域性變數 i, 整數型
.區域性變數 分割陣列, 文字型, , "0"
.區域性變數 內容陣列, 文字型, , "0"
.區域性變數 n, 整數型
.區域性變數 去重複, 節點
.區域性變數 內容, 文字型
.計次迴圈首 (取陣列成員數 (文字陣列), i)
分割陣列 ＝ 分割文字 (文字陣列 , 「*」, )
.如果真 (取陣列成員數 (分割陣列) ＞ 2)
加入成員 (內容陣列, 分割陣列 [2])
.如果真結束
.計次迴圈尾 ()
.計次迴圈首 (取陣列成員數 (內容陣列), n)
.如果真 (去重複.加入屬性 (內容陣列 [n], 真))
內容 ＝ 內容 ＋ 文字陣列 [n] ＋ #換行符
.如果真結束
.計次迴圈尾 ()
返回 (內容)
.子程式 _按鈕2_被單擊, , , 輸出列表框旋轉專案
.區域性變數 a, 整數型
.計次迴圈首 (列表框1.取專案數 (), a)
.如果真 (列表框1.是否被選擇 (a － 1))
除錯輸出 (列表框1.取專案文字 (a － 1))
.如果真結束
.計次迴圈尾 ()
.子程式 子程式_組合框加入專案, 邏輯型, , 重複返回假
.引數 組合框, 組合框
.引數 欲加入的專案文字, 文字型
.區域性變數 i, 整數型
.計次迴圈首 (組合框.取專案數 (), i)
.如果真 (欲加入的專案文字 ＝ 組合框.取專案文字 (i － 1))
返回 (假)
.如果真結束
.計次迴圈尾 ()
組合框.加入專案 (欲加入的專案文字, )
返回 (真)
.子程式 查詢列表框文字, 邏輯型, , 查詢列表框裡的文字是否存在
.引數 列表框, 列表框
.引數 欲加入的專案文字, 文字型
.區域性變數 i, 整數型
.計次迴圈首 (列表框.取專案數 (), i)
.如果真 (欲加入的專案文字 ＝ 列表框.取專案文字 (i － 1))
返回 (假)
.如果真結束
.計次迴圈尾 ()
' 列表框.加入專案 (欲加入的專案文字, )
返回 (真)
.子程式 _按鈕3_被單擊, , , 方法2
.區域性變數 專案, 文字型
專案 ＝ 組合框1.內容
列表框加入專案 (列表框1, 專案)
.子程式 _按鈕4_被單擊
易語言列表框防止專案重複加入列表框
版本 2 程式集 視窗程式集 啟動視窗 子程式 啟動視窗 建立完畢 列表框1.現行選中項 0 載入 1 子程式 按鈕1 被單擊 列表框1.加入專案 編輯框1.內容,編輯框1.內容 子程式 按鈕2 被單擊,不重複加入 1 如果 列表框1.選擇 編輯框1.內容 1 列表框1.加入專案 編輯框1.內容,資...
MFC 組合框，列表框
組合框 ccombobox 列表框 clistbox 組合框 combo box 列表框 list box 屬性中 sort 支援自動排序 1.新增如圖空間，並聲稱對應的組合框和列表框 編輯框的控制項。2.新增 新增 刪除 函式 void clb007dlg onbnclickedbtnadd vo...
C 列表框 複選列表框 組合框的使用
功能實現效果 實現 1 宣告相關變數儲存專業 課程設定及相關資訊 csharp string gr,msg,xy string spec,cour1,cour2,cour3,cour4,cour5 2 在form1類中自定義函式bool checkgr 檢查學生資訊 csharp private b...