ListBox(清单)控制物件.pdf

第九章第九章 ListBox（清單）控制物件（清單）控制物件 ListBox 控制物件，是用顯示項目清單，使用者可以由清單中勾選一或多個選項。常被用在有選擇項目的程式視窗中，如果項目清單的顯示框能完全顯示所有選項，在 ListBox 控制物件上就會附有捲軸。常用屬性：常用屬性：1.Columns（）：設定儲存格中的資，必須指定儲存格位置後，才能變儲存格中的資。2.List（選項）：設定清單的選項內容。3.ListCount（選項）：清單中的選項目。4.ListIndex（選項註標）：設定清單中選取項目的註標。第一個磁碟機註標為 0。5.MultiSelect（複選）：設定清單中的選項是否可以複選，在執階段是一個唯的屬性。6.Sorted（排序）：設定清單中的選項是否依字母順序排。7.Style（樣式）：設定清單中選項的特性。0 預設標準值，以文字項目的清單方式顯示 1 核取方塊，文字項目以核取方塊方式顯示 8.ToolTipText（工具秘訣）：設定工具秘訣。只能在控制物件的屬性交談窗中設定字。表示在程式撰寫時可以設定的屬性，在屬性中並出現。常用事件：常用事件：1.Click（按）事件：發生在使用者按下 ListBox（清單）控制物件並即放開鼠左鍵時。2.DblClick（雙按）事件：發生在使用者雙按鼠左鍵時。3.ItemCheck（選定）事件：當 ListBox（清單）控制物件的 Style（樣式）屬性設定為 1，且選定或清除清單中某個選項的核取方塊時，就會發生ItemCheck（選定）事件。常用方法：常用方法：1.AddItem（加入選項）方法：新增項目到 ListBox（清單）控制物件。2.Refresh（強制重繪）方法：用以新控制物件中的項目清單內容，強制全部重繪一個控制物件。3.RemoveItem（移除選項）方法：從 ListBox（清單）或 ComboBox（下式方塊）控制物件中移除一個項目。ComboBox（下式方塊）控制物件（下式方塊）控制物件 ComboBox（下式方塊）控制物件結合 TextBox（文字方塊）和 ListBox（清單）控制物件的特性，既可以在文字方塊部份輸入資，也可以在清單方塊部份選取項目。常用屬性：常用屬性：1.DataField（資）：將下式方塊結到資目中的某個位。2.DataSource（資源）：將下式方塊結到資庫，且在執階段無法使用資源。3.ItemData（選項資）：設定下式方塊每個選項的字代號。與 List（選項）屬性的選項目相同。4.List（選項）：設定下式方塊的選項內容。5.ListCount（選項）：下式方塊中的選項目。6.ListIndex（選項註標）：設定下式方塊中選取項目的註標。第一個磁碟機註標為 0。7.Sorted（排序）：設定下式方塊中的選項是否依字母順序排。8.Style（樣式）：設定下式方塊中選項的特性。0 預設標準值，下式方塊。包括一個下式方塊與一個文字方塊 1 簡式下式方塊。包括一個無法下的清單與一個文字方塊 2 下式清單。允許在下式清單中選取項目 9.Text（文字）：設定選取項目的文字，在設計階段與執階段是唯的。表示在程式撰寫時可以設定的屬性，在屬性中並出現。常用事件：常用事件：1.Click（按）事件：發生在使用者按下 ComboBox（下式方塊）控制物件並接著放開鼠左鍵時。2.KeyPress（鍵下）事件：發生在使用者按下並放開一個鍵盤按鍵時，ComboBox（下式方塊）控制物件中具有駐點的項目清單可以接收這個事件（即顯示清單內容）。常用方法：常用方法：1.AddItem（加入選項）方法：新增項目到 ComboBox（下式方塊）控制物件。2.RemoveItem（移除選項）方法：從 ListBox（清單）或 ComboBox（下式方塊）控制物件中移除一個項目。3.Refresh（強制重繪）方法：用以新控制物件中的項目清單內容，強制全部重繪一個控制物件。實作題 1.設計一個產品清單的 Form（表單），使用個 ListBox（清單）分別放在表單的左右側，在中間設計三個 CommandButton（按鈕），一個是將左邊清單選取的項目移到右邊，一個則相反，另一個則為結束。2.製作一個客戶訂單的 Form（表單），用 ComboBox（下式方塊）選取產品項目，設計一個 Text（文字方塊）輸入產品，另外放置個 Label（標籤）顯示輸入的客戶訂單資，再使用三個 CommandButton（按鈕）分別執完成訂單、輸入下一筆訂單及結束訂單作業的功能。解答：1.Private Sub Command1_Click()If List1.List(List1.ListIndex)=Then MsgBox 無選項可用,0+16,錯誤 Else List2.AddItem List1.List(List1.ListIndex)List1.RemoveItem List1.ListIndex End If End Sub Private Sub Command2_Click()If List2.List(List2.ListIndex)=Then MsgBox 無選項可用,0+16,錯誤 Else List1.AddItem List2.List(List2.ListIndex)List2.RemoveItem List2.ListIndex End If End Sub Private Sub Command3_Click()End End Sub Private Sub Form_Load()Form1.Caption=產品清單 Command1.Caption=Command2.Caption=Command3.Caption=結束 List1.AddItem 鳳 List1.AddItem 香蕉 List1.AddItem 蘋果 List2.AddItem 芭 List2.AddItem 子 List2.AddItem 柿子 End Sub 2.Private Sub Command1_Click()If Val(Text1.Text)=0 Then MsgBox 請重新輸入產品,0+48,輸入錯誤 Text1.Text=Else If Combo1.List(Combo1.ListIndex)=Then MsgBox 請選擇產品項目,0+48,輸入錯誤 Else Label4.Caption=Combo1.List(Combo1.ListIndex)Label5.Caption=Text1.Text End If End If End Sub Private Sub Command2_Click()Text1.Text=Label4.Caption=Label5.Caption=End Sub Private Sub Command3_Click()End End Sub Private Sub Form_Load()Form1.Caption=客戶訂單 Label1.Caption=選擇產品項目 Label2.Caption=輸入產品 Label3.Caption=客戶訂單 Label4.Caption=Label4.BackColor=QBColor(15)Label5.Caption=Label5.BackColor=QBColor(15)Text1.Alignment=1 Text1.Text=Command1.Caption=完成訂單 Command2.Caption=下一筆訂單 Command3.Caption=結束訂單作業 Combo1.AddItem 麻油 Combo1.AddItem 醬油 Combo1.AddItem 沙油 Combo1.AddItem 花生油 Combo1.AddItem 橄欖油 Combo1.AddItem 葵花油 Combo1.Text=Combo1.List(0)End Sub