程式設計 Visual Basic 週次：7 建國技術學院 資管系 饒瑞佶 2003年12月6日

列表盒（ListBox）的設計 可以顯示列表性的資料 重要屬性： Name, Appearance, Backcolor Column, Multiselect …

列表盒（ListBox）的設計 如何將資料放入列表盒中？ 列表盒name.AddItem 資料, 索引值 ch11_1 列表盒資料的清除 列表盒name.Clear 列表盒資料的數目 列表盒name.Listcount

Ch11_1 Private Sub cmdClrall_Click() lstMove.Clear ' 清除所有資料 Private Sub cmdAdd_Click() If lstMove.ListCount = 0 Then cmdClrall.Enabled = True ' 令清除全部鈕Enable lstMove.AddItem "超級警察" ElseIf lstMove.ListCount = 1 Then lstMove.AddItem "笑傲江湖" ElseIf lstMove.ListCount = 2 Then lstMove.AddItem "射雕英雄傳" ElseIf lstMove.ListCount = 3 Then lstMove.AddItem "賭神至尊" ElseIf lstMove.ListCount = 4 Then lstMove.AddItem "黃飛鴻" ElseIf lstMove.ListCount = 5 Then lstMove.AddItem "新龍門客棧", 1 ' 插入資料至索引1 End If If lstMove.ListCount = 6 Then cmdAdd.Enabled = False ' 令增加鈕Disable End Sub Private Sub cmdClrall_Click() lstMove.Clear ' 清除所有資料 cmdAdd.Enabled = True ' 令增加鈕Enable cmdClrall.Enabled = False ' 令清除全部鈕Disable End Sub

列表盒（ListBox）的設計 選取列表盒中的項目 列表盒name.Listindex：索引值 列表盒name.Text：選取的項目內容 ch11_2 列表盒資料的刪除 列表盒name.RemoveItem 索引 ch11_3

Ch11_2 Private Sub lstMove_Click() If lstMove.Text = "超級警察" Then txtMove.Text = "超級警察" ' 影片名稱 txtMan.Text = "成龍" ' 主角姓名 End If If lstMove.Text = "笑傲江湖" Then txtMove.Text = "笑傲江湖" ' 影片名稱 txtMan.Text = "周潤發" ' 主角姓名 If lstMove.Text = "射雕英雄傳" Then txtMove.Text = "射雕英雄傳" ' 影片名稱 txtMan.Text = "周星馳" ' 主角姓名 End Sub

Ch11_3 Private Sub lstBox1_DblClick() lstBox2.AddItem lstBox1.Text lstBox1.RemoveItem lstBox1.ListIndex End Sub Private Sub lstBox2_DblClick() lstBox1.AddItem lstBox2.Text lstBox2.RemoveItem lstBox2.ListIndex End Sub

雙拼盒（ComboBox）的設計 文書盒與列表盒的結合體 可以輸入與顯示列表性的資料 重要屬性： Name, Appearance, Backcolor, Style …

雙拼盒（ComboBox）的設計 如何將資料放入雙拼盒中？ 雙拼盒name.AddItem 資料, 索引值 ch12_1 雙拼盒資料的清除 雙拼盒name.Clear 雙拼盒資料的刪除 雙拼盒name.RemoveItem 索引 Ch12_3

Ch12_1 Private Sub InfoDisplay() If cboName.Text = "洪錦魁" Then txtTel.Text = "(035) 999999" txtAddress.Text = "竹東鎮松崗路1000號" ElseIf cboName.Text = "洪冰儒" Then txtTel.Text = "(035) 987654" txtAddress.Text = "竹東鎮朝陽路16號" ElseIf cboName.Text = "吳懷慈" Then txtTel.Text = "(02) 7042762" txtAddress.Text = "台北市敦化南路339號" ElseIf cboName.Text = "李素玲" Then txtTel.Text = "(02) 7082125" txtAddress.Text = "台北市新生南路213號" ElseIf cboName.Text = "" Then txtTel.Text = "" txtAddress.Text = "" Else txtAddress.Text = "查無此人" End If End Sub

Ch12_3 Private Sub cmdAdd_Click() If cboCtry.Text <> "" And cboCity.Text <> "" Then cboCtry.AddItem cboCtry.Text ' 建立國別 cboCity.AddItem cboCity.Text ' 建立首都 End If End Sub Private Sub cmdDel_Click() index1 = cboCtry.ListIndex ' 國別索引 index2 = cboCity.ListIndex ' 首都索引 If cboCtry.Text = cboCtry.List(index1) Then If cboCity.Text = cboCity.List(index2) Then cboCtry.RemoveItem index1 ' 刪除國別項 cboCity.RemoveItem index2 ' 刪除首都項 End If End Sub