新觀念的VB6教本ch12
- 1. 新觀念的新觀念的 VB6VB6 教本教本 第第 1212 章章 條列式的資料處理條列式的資料處理
- 4. 在清單方塊中加入資料在清單方塊中加入資料 (1)(1) 當清單方塊當清單方塊 (( 工具箱的工具箱的 )) 剛被 置在表單時，其顯佈剛被 置在表單時，其顯佈 示區中會出現示區中會出現 "List1""List1" 的文字，但這不是清單方塊裡的文字，但這不是清單方塊裡 的資料，而是清單方塊的名稱，當我們 動程式執行啟的資料，而是清單方塊的名稱，當我們 動程式執行啟 之後，此一名稱就會消失。之後，此一名稱就會消失。 這是清單方塊名稱， 除此之外，清單方塊 裡面並沒有資料存在 置清單方佈 塊到表單上
- 5. 在清單方塊中加入資料在清單方塊中加入資料 (2)(2) 首先是調出屬性視窗，然後把屬性移到首先是調出屬性視窗，然後把屬性移到 ListList 的位置，的位置， 接著按下屬性值接著按下屬性值 "("( 清單清單 )")" 右邊的下拉按鈕，如下：右邊的下拉按鈕，如下： 閃動游標表示 可以輸入資料 按下此鈕
- 7. 在清單方塊中加入資料在清單方塊中加入資料 (4)(4) 則以下是輸入的過程：則以下是輸入的過程： Ctrl Enter+ Ctrl Enter+ Ctrl Enter+ Enter 輸入後即反映 在清單方塊上
- 8. 在清單方塊中加入資料在清單方塊中加入資料 (5)(5) 請注意每輸入一筆之後是按請注意每輸入一筆之後是按 CtrlCtrl 鍵鍵 +Enter+Enter 鍵，直到輸入最後一筆之後，才鍵，直到輸入最後一筆之後，才 按按 EnterEnter 鍵結束輸入。加入上述資料後鍵結束輸入。加入上述資料後 ，清單方塊就可以馬上看到這些資料的，清單方塊就可以馬上看到這些資料的 內容。內容。 一旦加入資料後，將來還是可以拉下一旦加入資料後，將來還是可以拉下 ListList 屬性的輸入方塊，進行資料的修改，屬性的輸入方塊，進行資料的修改， 修改的方法與其他文書編輯程式相似，修改的方法與其他文書編輯程式相似， 但還是要記得插入一行是但還是要記得插入一行是 CtrlCtrl 鍵鍵 +Enter+Enter 鍵，而鍵，而 EnterEnter 鍵是結束輸入。鍵是結束輸入。
- 9. 在程式中加入資料：在程式中加入資料： AddItem(1)AddItem(1) 除了利用除了利用 ListList 屬性之外，我們也可以在屬性之外，我們也可以在 程式中呼叫程式中呼叫 AddItemAddItem 機動地為清單方塊機動地為清單方塊 加入資料。加入資料。 AddItemAddItem 是附屬於清單方塊的副程式是附屬於清單方塊的副程式 (( 術語上稱這種副程式為「術語上稱這種副程式為「方法方法」」 )) ，呼，呼 叫的格式如下：叫的格式如下： 清單方塊名稱 .AddItem 資料
- 10. 在程式中加入資料：在程式中加入資料： AddItemAddItem (2)(2) 例如：例如： 當我們呼叫當我們呼叫 AddItemAddItem 之後，資料會被加之後，資料會被加 到清單方塊的最後面，但我們也可以指到清單方塊的最後面，但我們也可以指 定加入的位置，例如：定加入的位置，例如： List1.AddItem "Peter" List1.AddItem "Jimmy", 1 ' 指定加入到位置 1
- 11. 在程式中加入資料：在程式中加入資料： AddItemAddItem (3)(3) 不過要注意的是清單方塊的位置是從不過要注意的是清單方塊的位置是從 00 開 始 排 列 起 ， 假 設 原 清 單 方 塊 有開 始 排 列 起 ， 假 設 原 清 單 方 塊 有 "Peter""Peter" 、、 "Thomas""Thomas" 、、 "Nick""Nick" 三筆資料三筆資料 ，執行以上敘述之後，清單方塊將變成，執行以上敘述之後，清單方塊將變成 ：： 位置: 0 2 3 1 List1.AddItem "Jimmy", 1
- 12. 讀取及設定清單方塊裡的資料讀取及設定清單方塊裡的資料 (1)(1) 清單方塊裡的資料以清單方塊裡的資料以 00 、、 11 、、 2…2… 的方的方 式排列，當我們想讀取清單方塊裡的資式排列，當我們想讀取清單方塊裡的資 料時，這些位置就會變得很重要料時，這些位置就會變得很重要 。。 以下是讀取清單方塊某一筆資料的方法以下是讀取清單方塊某一筆資料的方法 ：： 取出之資料 = 列示欄名稱 . List( 位置 ) 將欲讀取資料的位 置，以括弧括起來
- 13. 讀取及設定清單方塊裡的資料讀取及設定清單方塊裡的資料 (2)(2) 例如：例如： 透過上述的方法，也可以改變清單方塊透過上述的方法，也可以改變清單方塊 裡面的資料，如下：裡面的資料，如下： X = List1.List(0) ' 讀取第 0 筆資 料 Print X ' 印出 Peter List1.List(0) = "Philip" ' 將第 0 筆資料改成 "Philip"
- 14. 讀取資料筆數讀取資料筆數 (1)(1) 想知道清單方塊裡面有幾筆資料，可以想知道清單方塊裡面有幾筆資料，可以 利用以下方法：利用以下方法： 假 設 清 單 方 塊假 設 清 單 方 塊 List1List1 含 有含 有 ““ Peter”Peter” 、“、“ Jimmy”Jimmy” 、“、“ Thomas”Thomas” 、“、“ NickNick ”” 等等 44 筆資料，則：筆資料，則： 筆數 = 清單方塊名稱 .ListCount Print List1.ListCount ' 印出 4
- 15. 讀取資料筆數讀取資料筆數 (2)(2) 所以我們可以把清單方塊的資料分 情佈所以我們可以把清單方塊的資料分 情佈 形表示成：形表示成： Li st( 0) Li st( 3) Li st( 2) Li st( 1) Li stCount = 4
- 16. 讀取資料筆數讀取資料筆數 (3)(3) 而利用而利用 ListCountListCount 及及 List(List( 位置位置 )) 兩種方兩種方 法，我們可以列出清單方塊的所有資料法，我們可以列出清單方塊的所有資料 ，如下：，如下： For I = 0 To List1.ListCount - 1 Print List1.List(I) ' 印出第 I 筆資料 Next I
- 17. 刪除及清除清單方塊資料刪除及清除清單方塊資料 (1)(1) 用用 RemoveItemRemoveItem 方法可以刪除某一筆資料方法可以刪除某一筆資料 。。 用用 ClearClear 方法可以清除整個清單方塊方法可以清除整個清單方塊 。。 其格式是：其格式是： 清單方塊名稱 .RemoveItem 位置 清單方塊名稱 .Clear
- 18. 刪除及清除清單方塊資料刪除及清除清單方塊資料 (2)(2) 例如執行以下敘述後：例如執行以下敘述後： List1.RemoveItem 0 List1.RemoveItem 1
- 19. 刪除及清除清單方塊資料刪除及清除清單方塊資料 (3)(3) 原有 “原有 “ Peter”Peter” 、“、“ Jimmy”Jimmy” 、“、“ Thomas”Thomas” 、“、“ Nick”Nick” 等等 44 筆資料的清單方塊，其變化情形如下：筆資料的清單方塊，其變化情形如下： 而若執行而若執行 List1.ClearList1.Clear ，則，則 List1List1 將被完全清除將被完全清除 ，變成一片空白。，變成一片空白。 List1.RemoveItem0 List1.RemoveItem1
- 20. 使用清單方塊使用清單方塊 ---- 實例練習實例練習 (1)(1) 寫一程式收集使用者輸入的資料，程式寫一程式收集使用者輸入的資料，程式 之表單如下圖之表單如下圖 文字方塊： 讓使用者輸入資料 清單方塊： 收集使用者輸入的資料
- 21. 使用清單方塊使用清單方塊 ---- 實例練習實例練習 (2)(2) 參考上圖 置好控制元件，然後在「輸佈參考上圖 置好控制元件，然後在「輸佈 入」命令鈕之中撰寫以下程式：入」命令鈕之中撰寫以下程式： 其實這兩行敘述還可以合併成一行，如下其實這兩行敘述還可以合併成一行，如下 ：：Private Sub Command1_Click() List1.AddItem Text1.Text End Sub Private Sub Command1_Click() X = Text1.Text ' 讀取使用者輸入的資 料 List1.AddItem X ' 將資料加入於 ListBox End Sub
- 23. 讀取使用者選取的資料讀取使用者選取的資料 (1)(1) 使用者選取了清單方塊的某一筆資使用者選取了清單方塊的某一筆資 料 時 ， 清 單 方 塊 會 用料 時 ， 清 單 方 塊 會 用 TextText 及及 ListIndexListIndex 兩種屬性來記錄使用者所兩種屬性來記錄使用者所 選取的資料，其中選取的資料，其中 TextText 屬性用來屬性用來 記錄資料的「內容」，記錄資料的「內容」， ListIndexListIndex 則用來記錄資料的「位置」。則用來記錄資料的「位置」。
- 24. 讀取使用者選取的資料讀取使用者選取的資料 (2)(2) 例如：例如： 但如果沒有資料被選取，例如程式剛執行時，但如果沒有資料被選取，例如程式剛執行時， 則則 TextText 屬性 等於空字串值屬性 等於空字串值 (“”)(“”) ，而，而 ListIndexListIndex 屬性 等於值屬性 等於值 -1-1 。。 Li st 1. Text 等於 " Thomas" Li st 1. Li st I ndex 等於 2 使用者選取了第2 筆資料 ，資料內容為" Thomas"。
- 25. 清單方塊與資料複選清單方塊與資料複選 (1)(1) 讓使用者「複選」清單方塊的資料，讓使用者「複選」清單方塊的資料， 也是應用程式常見的需求。也是應用程式常見的需求。 如果我們想提供一個可複選的清單方如果我們想提供一個可複選的清單方 塊，首先要將塊，首先要將 MultiSelect(MultiSelect( 複選複選 )) 屬屬 性設定成性設定成 "1 -"1 - 簡易多重選擇簡易多重選擇 "" 或或 "2 -"2 - 進階多重選擇進階多重選擇 "" 。。
- 26. 清單方塊與資料複選清單方塊與資料複選 (2)(2) MultiSelect屬性要設定成 " 1- 簡易 多重選擇" 或 "2- 進階多重選擇", 清單方塊方才具有複選的功能。
- 27. 選取資料的方式選取資料的方式 (1)(1) 1 -1 - 簡易多重選擇簡易多重選擇：當使用者以滑鼠點選資料時：當使用者以滑鼠點選資料時 ，若該資料尚未被選取，則點選表示選取，若該，若該資料尚未被選取，則點選表示選取，若該 資料已經被選取，則點選變成取消選取，如下：資料已經被選取，則點選變成取消選取，如下： 未選取者， 點選表示選取。 已被選取者， 點選表示取消選取。
- 28. 選取資料的方式選取資料的方式 (2)(2) ““2 -2 - 進階多重選擇”進階多重選擇”：每次以滑鼠點選資料時：每次以滑鼠點選資料時 ，先前所有被選取的資料都會被取消，如下：，先前所有被選取的資料都會被取消，如下： 如果點選時要保留原有被選取的資料，則要先如果點選時要保留原有被選取的資料，則要先 按著按著 CtrlCtrl 鍵再選取。鍵再選取。 點選之後，先前所有被選 取的資料都會被取消。
- 29. 選取資料的方式選取資料的方式 (3)(3) 另外還有一種「區塊」的選取方式，方法是先另外還有一種「區塊」的選取方式，方法是先 點選第一筆資料，按著點選第一筆資料，按著 ShiftShift 鍵，再點選第二鍵，再點選第二 筆資料，則兩筆資料之間的資料都會被選取，筆資料，則兩筆資料之間的資料都會被選取， 如下：如下： 按著 Shift，再點選第 二筆資料，則中間的資 料也會一起被選取。
- 30. 讀取複選的資料讀取複選的資料 將來程式執行時要如何判斷 些資料被哪將來程式執行時要如何判斷 些資料被哪 選取了 ？方法是逐一判斷每一筆資料呢選取了 ？方法是逐一判斷每一筆資料呢 的的 Selected(Selected( 被 選 取 的被 選 取 的 )) 屬 性 是 否 為屬 性 是 否 為 TrueTrue ，如下：，如下： For I = 0 To List1.ListCount - 1 ' 從第 0 筆到 第 N-1 筆 If List1.Selected(I) Then ' 表示第 I 筆 資料被選取 Print List1.List(I) ' 印出被選取 的資料內容 End If
- 31. 實例應用實例應用 ---- 字型選擇程式字型選擇程式 (1)(1) 假設一表單如下：假設一表單如下： 其中清單方塊列出數種字型，而當使用者按下其中清單方塊列出數種字型，而當使用者按下改變字改變字 型型命令鈕時，我們要將表單的字型設定成使用者選取命令鈕時，我們要將表單的字型設定成使用者選取 的字型。的字型。
- 32. 實例應用實例應用 ---- 字型選擇程式字型選擇程式 (2)(2) 以下是程式完成的過程：以下是程式完成的過程： 1.1. 首先是參照上圖 置控制元件，並設定以下屬性：佈首先是參照上圖 置控制元件，並設定以下屬性：佈 控制元件 屬 性 屬 性 值 Label1 Caption 字型： Arial Courier Ms Sans Serif System Times New Roman 細明體 Command1 Caption 改變字型 List1 List
- 33. 實例應用實例應用 ---- 字型選擇程式字型選擇程式 (3)(3) 2.2. 在在改變字型改變字型命令鈕裡面讀取使用者選取的字型，命令鈕裡面讀取使用者選取的字型， 然後將字型設定成表單的字型：然後將字型設定成表單的字型： 以上程式中「以上程式中「 F = List1.TextF = List1.Text 」及「」及「 Font.Name =Font.Name = FF 」兩行敘述也可以合併寫成：」兩行敘述也可以合併寫成： Private Sub Command1_Click() F = List1.Text ' 讀取使用者選取的字型 Font.Name = F ' 設定表單的字型 Print F ' 順便印出來看看 End Sub Font.Name = List1.Text
- 34. 實例應用實例應用 ---- 字型選擇程式字型選擇程式 (4)(4) 只要以上兩個步驟，程式就告完成了， 可以執行您只要以上兩個步驟，程式就告完成了， 可以執行您 程式，然後選取每一種字型再按下程式，然後選取每一種字型再按下改變字型改變字型命令鈕命令鈕 看看，以下是逐一選擇每一種字型的執行結果：看看，以下是逐一選擇每一種字型的執行結果：
- 35. 實例應用實例應用 ---- 挑選「虎膽妙算」成員挑選「虎膽妙算」成員 (1)(1) 寫一程式從一群人員中選出若干成員，組成寫一程式從一群人員中選出若干成員，組成 「虎膽妙算」小組。「虎膽妙算」小組。 其表單如下：其表單如下：
- 36. 實例應用實例應用 ---- 挑選「虎膽妙算」成員挑選「虎膽妙算」成員 (2)(2) 以下是程式完成的過程：以下是程式完成的過程： 1.1. 如表單 置控制元件，並設定相關屬性：佈如表單 置控制元件，並設定相關屬性：佈 控制元件 屬 性 屬 性 值 Label1 Caption 虎膽妙算 小組 List1 MultiSelect 1 - 簡易 多重選擇 Peter Jimmy Thomas Michael Nick Jeffery Karen Command1 Caption 選取人員 List
- 37. 實例應用實例應用 ---- 挑選「虎膽妙算」成員挑選「虎膽妙算」成員 (3)(3) 2.2. 在在選取人員選取人員命令鈕裡讀出使用者選取了命令鈕裡讀出使用者選取了 些人員：哪些人員：哪 Private Sub Command1_Click() For I = 0 To List1.ListCount - 1 If List1.Selected(I) Then Print List1.List(I) End If Next End Sub
- 38. 實例應用實例應用 ---- 挑選「虎膽妙算」成員挑選「虎膽妙算」成員 (4)(4) 3.3. 執 行 後 ， 選 取執 行 後 ， 選 取 "Peter""Peter" 、、 "Thomas""Thomas" 、、 "Nick""Nick" ，按，按選取人員選取人員命命 令鈕，則執行結果如下：令鈕，則執行結果如下：
- 39. 實例應用實例應用 ---- 資料輸入程式加強版資料輸入程式加強版 (1)(1) 在上一節的實例練習中，我們寫了一個資料輸入程在上一節的實例練習中，我們寫了一個資料輸入程 式，接下來我們要加強這個程式，讓它新增以下功式，接下來我們要加強這個程式，讓它新增以下功 能：能： 刪除被選取的資料 刪除所有資料
- 40. 實例應用實例應用 ---- 資料輸入程式加強版資料輸入程式加強版 (2)(2) 承續上一節的資料輸入程式，在表單上佈承續上一節的資料輸入程式，在表單上佈 置「刪除」及「全數刪除」命令鈕，然後置「刪除」及「全數刪除」命令鈕，然後 撰寫以下程式：撰寫以下程式： Private Sub Command2_Click() ' 刪除 If List1.ListIndex >= 0 Then List1.RemoveItem List1.ListIndex End If End Sub Private Sub Command3_Click() ' 全數刪除：清 除 List1.Clear End Sub
- 41. 實例應用實例應用 ---- 資料輸入程式加強版資料輸入程式加強版 (3)(3) 在「刪除」命令鈕的程式中，首先在「刪除」命令鈕的程式中，首先 要判斷要判斷 ListIndexListIndex 屬性 是否大於值屬性 是否大於值 00 ，如果大於，如果大於 00 ，表示使用者有選，表示使用者有選 取資料，接下來才要刪除資料選項。取資料，接下來才要刪除資料選項。
- 43. 清單方塊與資料排序清單方塊與資料排序 (1)(1) 當資料很多而又沒有什麼排列規則時，當資料很多而又沒有什麼排列規則時， 使用者要從清單方塊裡找到所要的資料使用者要從清單方塊裡找到所要的資料 ，可能會花費不少時間。，可能會花費不少時間。 如果清單方塊的資料能按大小順序加以如果清單方塊的資料能按大小順序加以 排列排列 (( 稱為「稱為「排序排序」」 )) ，則使用者選取資，則使用者選取資 料將會更加方便。料將會更加方便。 清單方塊提供了一個叫做清單方塊提供了一個叫做 Sorted(Sorted( 排序排序 的的 )) 的屬性，只要我們把它的屬性 設值的屬性，只要我們把它的屬性 設值 為為 TrueTrue ，則清單方塊即會自動排序。，則清單方塊即會自動排序。
- 44. 清單方塊與資料排序清單方塊與資料排序 (2)(2) 以下是一個將以下是一個將 SortedSorted 屬性設定為屬性設定為 TrueTrue ，而經過排序的清單方塊：，而經過排序的清單方塊： 按照字母 順序排列
- 45. 清單方塊與資料排序清單方塊與資料排序 (3)(3) 清單方塊對於英文字母是不分大小寫的，例如清單方塊對於英文字母是不分大小寫的，例如 大寫的大寫的 "L""L" 與小寫的與小寫的 "l""l" 在排列順序上是相在排列順序上是相 同的，所以如果我們在上一個清單方塊中加入同的，所以如果我們在上一個清單方塊中加入 "lotus""lotus" ，則清單方塊的變化如下：，則清單方塊的變化如下： 插在 Michael之 前，因為大小寫 的 L 順序相同。
- 46. 清單方塊與資料排序清單方塊與資料排序 (4)(4) 至於其他字元的排列順序則以「字至於其他字元的排列順序則以「字 串比較運算」中結果較小者排在前串比較運算」中結果較小者排在前 面。面。 例如字串比較中的「數字字元」＜例如字串比較中的「數字字元」＜ 「英文字母」＜「中文字」，所以「英文字母」＜「中文字」，所以 排列順序也是以數字字元最優先，排列順序也是以數字字元最優先， 中文字殿後。中文字殿後。
- 48. 排序實例排序實例 p.353 –p.353 – 題目題目 寫一程式讓使用者輸入寫一程式讓使用者輸入字串字串資料資料 ，並且將所輸入的資料以排序方，並且將所輸入的資料以排序方 式顯示出來。式顯示出來。
- 49. 排序實例排序實例 p.353p.353 – Step 1-1– Step 1-1 如下圖 置好控制元件：佈如下圖 置好控制元件：佈 List1 Command1 Text1 Label1
- 50. 排序實例排序實例 p.353p.353 – Step 1-2– Step 1-2 而所設定的屬性如下：而所設定的屬性如下： 物件 屬性 屬性值 Label1 Caption 請輸入資料： Text1 Text ( 清成空白 ) Command1 Caption 輸入 List1 Sorted TRUE
- 51. 排序實例排序實例 p.353p.353 – Step 2– Step 2 在在 Command1Command1 命令鈕之中撰寫以下命令鈕之中撰寫以下 程式：程式： 由於清單方塊的由於清單方塊的 SortedSorted 屬性已經被屬性已經被 設定設定 TrueTrue ，所以我們不必自己撰寫，所以我們不必自己撰寫 程式來排序資料。程式來排序資料。 Private Sub Command1_Click() List1.AddItem Text1.Text End Sub
- 52. 排序實例排序實例 p.354 –p.354 – 題目題目 寫一程式讓使用者輸入寫一程式讓使用者輸入數值數值資料資料 ，並且將所輸入的資料以排序方，並且將所輸入的資料以排序方 式顯示出來。式顯示出來。
- 53. 排序實例排序實例 p.354p.354 利用清單方塊排序數 資料的問題值利用清單方塊排序數 資料的問題值 (1)(1) 如果使用者輸入的資料是如果使用者輸入的資料是數值數值 資料，那資料，那 麼剛才完成的程式也適用 ？嗎麼剛才完成的程式也適用 ？嗎 答案是否定的。答案是否定的。
- 54. 排序實例排序實例 p.354p.354 利用清單方塊排序數 資料的問題值利用清單方塊排序數 資料的問題值 (2)(2) 假設使用者輸入的內容是 “假設使用者輸入的內容是 “ 1234”1234” 、、 ““ 99”99” 、“、“ 831”831” 、“、“ 3”3” ，則排序的結果，則排序的結果 是 “是 “ 1234”1234” 、“、“ 3”3” 、“、“ 831”831” 、“、“ 99”99” ，， 而不是而不是 ““ 3”3” 、“、“ 99”99” 、“、“ 831”831” 、“、“ 1234”1234” 。。 這是因為清單方塊會將其選項視為這是因為清單方塊會將其選項視為 字串而加以排序。字串而加以排序。
- 55. 排序實例排序實例 p.354p.354 利用清單方塊排序數 資料的問題值利用清單方塊排序數 資料的問題值 (3)(3) 為了解決這個問題，我們不可以再為了解決這個問題，我們不可以再 仰賴清單方塊的排序功能，而必須仰賴清單方塊的排序功能，而必須 自己比較每一筆輸入的資料來達到自己比較每一筆輸入的資料來達到 排序數 資料的目的。值排序數 資料的目的。值
- 56. 排序實例排序實例 p.354 – Step 1p.354 – Step 1 以下就讓我們以上一個程式為基礎以下就讓我們以上一個程式為基礎 ，來撰寫可以排序數 資料的程式值，來撰寫可以排序數 資料的程式值 ：： 11.. 以上一個程式為基礎，首先將清單以上一個程式為基礎，首先將清單 方塊的方塊的 sortedsorted 屬性設定屬性設定 FalseFalse 。。
- 57. 排序實例排序實例 p.354 – Step 2p.354 – Step 2 將將 Command1_ClickCommand1_Click 的程式修改如的程式修改如 下：下： Private Sub Command1_Click() For I = 0 To List1.ListCount - 1 If Val(Text1.Text) < Val(List1.List(I)) Then Exit For End If Next I List1.AddItem Val(Text1.Text), I End Sub
- 58. 排序實例排序實例 p.354p.354 輸入數 資料的插入位置討論值輸入數 資料的插入位置討論值 (1)(1) 以上程式的主要目的在尋找以上程式的主要目的在尋找 Text1.TextText1.Text 資料資料 (( 也就是使用者輸入也就是使用者輸入 的數 資料值的數 資料值 )) 的插入位置的插入位置 。。 假設清單方塊中原本的資料項有假設清單方塊中原本的資料項有 9999 、、 831831 、、 12341234 ，接下來被插入的，接下來被插入的 資料可能有三種情況：資料可能有三種情況：
- 59. 排序實例排序實例 p.354p.354 輸入數 資料的插入位置討論值輸入數 資料的插入位置討論值 (2)(2) 資料小於清單方塊中最小的資料資料小於清單方塊中最小的資料：： 假設資料等於假設資料等於 8080 ，則執行進入，則執行進入 ForFor 迴圈迴圈 而而 II 等於值等於值 00 時，即會符合時，即會符合 Val(Text1.Text) < Val(List1.List(I))Val(Text1.Text) < Val(List1.List(I)) 的條件的條件 ，接著跳出迴圈，執行最後一個敘述：，接著跳出迴圈，執行最後一個敘述： 結果資料被插入於第結果資料被插入於第 00 筆，也就是筆，也就是 9999 之前。之前。 List1.AddItem Val(Text1.Text), I ' 此時 I=0
- 60. 排序實例排序實例 p.354p.354 輸入數 資料的插入位置討論值輸入數 資料的插入位置討論值 (3)(3) 資料介於清單方塊中最小的資料及最資料介於清單方塊中最小的資料及最 大的資料之間大的資料之間 假設資料等於假設資料等於 911911 ，則執行進入，則執行進入 ForFor 迴圈而迴圈而 II 等於值等於值 22 時，即會符合時，即會符合 Val(Text1.Text) < Val(List1. List(I))Val(Text1.Text) < Val(List1. List(I)) 的條件，的條件， 接著跳出迴圈，執行最後一個敘述：接著跳出迴圈，執行最後一個敘述： 結果資料被插入於第結果資料被插入於第 22 筆，也就是筆，也就是 831831 之後之後 、、 12341234 之前。之前。 List1.AddItem Val(Text1.Text), I ' 此時 I=2
- 61. 排序實例排序實例 p.354p.354 輸入數 資料的插入位置討論值輸入數 資料的插入位置討論值 (4)(4) 資料大於等於最大的資料資料大於等於最大的資料 假設資料等於假設資料等於 99999999 ，則執行進入，則執行進入 ForFor 迴圈，而執行到迴圈，而執行到 I=3I=3 時才結束迴圈，執時才結束迴圈，執 行最後一個敘述：行最後一個敘述： 結果資料被插入於最後，也就是結果資料被插入於最後，也就是 12341234 之後。之後。 List1.AddItem Val(Text1.Text), I ' 此時 I=3
- 63. 綜合清單方塊綜合清單方塊 綜合清單方塊綜合清單方塊 (ComboBox)(ComboBox) 是另一種是另一種 特殊的清單方塊，它是特殊的清單方塊，它是文字方塊文字方塊與與 清單方塊清單方塊組合出來的控制元件，所組合出來的控制元件，所 以同時兼具文字方塊的鍵盤輸入及以同時兼具文字方塊的鍵盤輸入及 清單方塊的滑鼠選取兩種功能，在清單方塊的滑鼠選取兩種功能，在 操作介面的設計中，應用得十分廣操作介面的設計中，應用得十分廣 泛。泛。
- 64. 認識綜合清單方塊實例認識綜合清單方塊實例 Step1Step1 首先在表單上 置一個綜合清單方塊佈首先在表單上 置一個綜合清單方塊佈 (( 工具箱工具箱 的的 )) ，然後在，然後在 ListList 屬性中加入以下資料：屬性中加入以下資料：
- 68. 認識綜合清單方塊實例認識綜合清單方塊實例 Step4Step4 拉下清單方塊，點選其中的資料，假設拉下清單方塊，點選其中的資料，假設 點選點選 "Thomas""Thomas" ，結果被點選的資料會出，結果被點選的資料會出 現在上面的欄位中，如下：現在上面的欄位中，如下： 被點選的資料會出 現在上面的欄位。 這是一個 文字方塊
- 69. 認識綜合清單方塊實例認識綜合清單方塊實例 Step5-Step5- 11 上面的欄位是一個可輸入資料的文字方上面的欄位是一個可輸入資料的文字方 塊，它除了顯示使用者選取的資料之外塊，它除了顯示使用者選取的資料之外 ，還有一些特別的功能，還有一些特別的功能 。。 還是把清單方塊拉下來，但不要用滑鼠還是把清單方塊拉下來，但不要用滑鼠 點選資料，按下點選資料，按下 "N“"N“ 、，結果、，結果 "Nick""Nick" 變成選項，按下變成選項，按下 "P“"P“ 、，則、，則 "Peter""Peter" 變成選項…，還有一點比較特別的是：變成選項…，還有一點比較特別的是： 選擇選擇 "Philip""Philip" 是按下是按下 "Ph“"Ph“ 、，因為、，因為 "P""P" 已經被用來選取已經被用來選取 "Peter""Peter" 了。了。
- 70. 認識綜合清單方塊實例認識綜合清單方塊實例 Step5-Step5- 22 綜合清單方塊不只是比清單方塊多出一個綜合清單方塊不只是比清單方塊多出一個 文字方塊，更重要的是文字方塊，更重要的是綜合清單方塊會根綜合清單方塊會根 據文字方塊輸入的內容來搜尋資料據文字方塊輸入的內容來搜尋資料。。 按下 " N" 、 按下 " P" 、 按下 " Ph" 、
- 71. 綜合清單方塊的特色綜合清單方塊的特色 ---- 節省空節省空 間間 以上的介紹突顯出綜合清單方塊以上的介紹突顯出綜合清單方塊 的一個特色：節省空間。的一個特色：節省空間。 當我們 置一個綜合清單方塊時佈當我們 置一個綜合清單方塊時佈 ，它只佔用一欄資料的大小，而，它只佔用一欄資料的大小，而 執行時，卻可以利用下拉按鈕看執行時，卻可以利用下拉按鈕看 到所有的資料內容。到所有的資料內容。
- 72. 綜合清單方塊的特色綜合清單方塊的特色 綜合前面的討論，我們整理出綜合清綜合前面的討論，我們整理出綜合清 單方塊比較突出的特色：單方塊比較突出的特色： 比清單方塊多出下拉按鈕及文字方塊。比清單方塊多出下拉按鈕及文字方塊。 顯示時只佔用一個欄位，比較節省空顯示時只佔用一個欄位，比較節省空 間。間。 可以根據文字方塊輸入的內容來搜尋可以根據文字方塊輸入的內容來搜尋 資料，減少操作時尋找資料的時間。資料，減少操作時尋找資料的時間。
- 74. 在程式中操控綜合清單方塊在程式中操控綜合清單方塊 (2)(2) 兩者通用的功能：兩者通用的功能： 功能性質 功 能 說 明 List 代表清單方塊裡的所有資料 ListCount 資料的筆數 Text 被選取資料的內容 ListIndex 被選取資料的位置 Sorted 是否排序資料 AddItem 加入一筆資料 RemoveItem 刪除一筆資料 Clear 清除所有資料 屬性 敘述
- 75. 在程式中操控綜合清單方塊在程式中操控綜合清單方塊 (3)(3) 舉例來說，印出綜合清單方塊舉例來說，印出綜合清單方塊 Combo1Combo1 被選取的資料是：被選取的資料是： 而列出所有資料的程式是：而列出所有資料的程式是： 這與清單方塊程式的寫法完全相同。這與清單方塊程式的寫法完全相同。 Print Combo1.Text For I = 0 To Combo1.ListCount - 1 Print Combo1.List(I) Next I
- 76. 在程式中操控綜合清單方塊在程式中操控綜合清單方塊 (4)(4) 綜合清單方塊所欠缺的功能綜合清單方塊所欠缺的功能 因為綜合清單方塊的資料只能單因為綜合清單方塊的資料只能單 選，不像清單方塊可以將選，不像清單方塊可以將 MultiSelectMultiSelect 屬性設定為屬性設定為 TrueTrue 之之 後變成複選，所以綜合清單方塊後變成複選，所以綜合清單方塊 並沒有並沒有 MultiSelectMultiSelect 及及 SelectedSelected 兩種屬性。兩種屬性。
- 77. 綜合清單方塊的三種樣式綜合清單方塊的三種樣式 (1)(1) 前述的綜合清單方塊，其實是一種叫做「前述的綜合清單方塊，其實是一種叫做「組合組合 下拉式下拉式」」 (Dropdown Combo)(Dropdown Combo) 的綜合清單方塊的綜合清單方塊 ，它包含三種組成：文字方塊、下拉按鈕、及，它包含三種組成：文字方塊、下拉按鈕、及 清單方塊，如下：清單方塊，如下： 清單方塊 下拉按鈕文字方塊組合下拉式 ( Dropdown Combo)
- 78. 綜合清單方塊的三種樣式綜合清單方塊的三種樣式 (2)(2) 而透過而透過 StyleStyle 屬性的設定，我們還可以將綜合清單屬性的設定，我們還可以將綜合清單 方塊設定成「方塊設定成「組合式組合式」或「」或「單純下拉式單純下拉式」，如下：」，如下： 綜合清單方塊除了 組 合下拉式 之外，還有 組合式 及 單純 下拉式
- 79. 綜合清單方塊的三種樣式綜合清單方塊的三種樣式 (3)(3) 在這三種樣式的綜合清單方塊之中，以組合下在這三種樣式的綜合清單方塊之中，以組合下 拉式的功能最齊全，而其他兩種樣式則各缺一拉式的功能最齊全，而其他兩種樣式則各缺一 種組成，如下：種組成，如下： 沒有下拉按鈕 只包含 文字方塊及 清單方塊 兩種組成。 單純下拉式 (Dropdown List) 組合式 (Simple Combo) 這不是文字方塊，而是 選取資料的顯示區。 只包含 下拉按鈕 及 清單方塊 兩種組成。 ( 尚未下拉時, 以下則是下拉時)
- 80. 綜合清單方塊的三種樣式綜合清單方塊的三種樣式 (4)(4) 而由於缺少一種組成的關係，自然也少了一點而由於缺少一種組成的關係，自然也少了一點 功能，其中：功能，其中： 組合式組合式：：缺少下拉按鈕缺少下拉按鈕，所以必須隨時顯示清，所以必須隨時顯示清 單方塊，也就是說在表單設計時，就必須把清單方塊，也就是說在表單設計時，就必須把清 單方塊的空間空下來，而喪失了綜合清單方塊單方塊的空間空下來，而喪失了綜合清單方塊 節省空間的優點。節省空間的優點。 純下拉式純下拉式：：缺少文字方塊缺少文字方塊，所以無法輸入資料，所以無法輸入資料 ，也就喪失了利用輸入的內容來搜尋資料的優，也就喪失了利用輸入的內容來搜尋資料的優 點。點。 不過這並不表示所有的設計都應該選擇功能最不過這並不表示所有的設計都應該選擇功能最 齊全的齊全的組合下拉式組合下拉式，而必須視程式需求而定。，而必須視程式需求而定。
- 81. 綜合清單方塊的實例練習綜合清單方塊的實例練習 修改本章第二節的「資料輸入程式加強版」程修改本章第二節的「資料輸入程式加強版」程 式式 (p.351) --(p.351) -- 將文字方塊及清單方塊以綜合清將文字方塊及清單方塊以綜合清 單方塊來取代，修改後的表單如下圖：單方塊來取代，修改後的表單如下圖： 組合式的綜 合清單方塊
- 82. 綜合清單方塊的實例練習綜合清單方塊的實例練習 Step1Step1 參考上圖 置好控制元件並且設佈參考上圖 置好控制元件並且設佈 定好屬性，在設定屬性時，最重定好屬性，在設定屬性時，最重 要的事情是將綜合清單方塊的要的事情是將綜合清單方塊的 StyleStyle 屬性設定成屬性設定成 "1 -"1 - 組合組合 式式 "" 。。
- 83. 綜合清單方塊的實例練習綜合清單方塊的實例練習 Step2Step2 分別在「輸入」、「刪除」、及「全數刪除」分別在「輸入」、「刪除」、及「全數刪除」 命令鈕之中撰寫以下程式：命令鈕之中撰寫以下程式： Private Sub Command1_Click() ' 輸入 Combo1.AddItem Combo1.Text ' 將所輸入的資料加入於清 單方塊 End Sub Private Sub Command2_Click() ' 刪除 If Combo1.ListIndex >= 0 Then Combo1.RemoveItem Combo1.ListIndex ' 移除被選取的 資料項 End If End Sub Private Sub Command3_Click() ' 全數刪除：清除 Combo1.Clear