VB 列表盒 LISTBOX 應用 資科系 林偉川 執行畫面 1 2 1
重要屬性 LISTBOX 物件 (VB6) 新增至 LISTBOX 物件中 ADDITEM 自 LISTBOX 物件中刪除選取物件 REMOVEITEM 自 LISTBOX 物件中取出選取物件 ListIndex 顯示 LISTBOX 物件中紀錄個數 Listcount 3 LISTBOX 物件 (VB.NET) 重要屬性 新增至 LISTBOX 物件中 ITEMS.add() 自 LISTBOX 物件中刪除選取物件 ITEMs.remove() 自 LISTBOX 物件中取出選取第幾個物件 SelectedIndex 自 LISTBOX 物件中取出選取物件內容 SelectedItem 顯示 LISTBOX 物件中紀錄個數 ITEMs.count 4 2
Dim a(10) Private Sub C1_Click() End 程式部分 (VB6) Private Sub Form_Load() Li1.AddItem " 臺灣 : Li1.AddItem " 中國 Li1.AddItem " 美國 : Li1.AddItem " 泰國 Li1.AddItem " 馬來西亞 : Li1.AddItem " 澳洲 " C1.Caption = " 結束 " 5 程式部分 (VB6) T1.Text = " : a(0) = " 台北 : a(1) = " 北京 " a(2) = " 華盛頓 : a(3) = " 曼谷 a(4) = " 吉隆坡 : a(5) = " 雪梨 L1.Caption = " 首都為 :" Private Sub Li1_Click() T1.Text = a(li1.listindex) 6 3
程式部分 (VB.NET) Dim a(5) As String, t As String = " 首都為 :" Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Li1.Items.Add( 臺灣 ) : Li1.Items.Add(" 中國 ") Li1.Items.Add(" 美國 ") : Li1.Items.Add(" 泰國 ") Li1.Items.Add(" 馬來西亞 ") : Li1.Items.Add(" 澳洲 ") a(0) = " 台北 " : a(1) = " 北京 : a(2) = " 華盛頓 a(3) = " 曼谷 : a(4) = " 吉隆坡 " : a(5) = " 雪梨 " 7 程式部分 (VB.NET) Private Sub Li1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Li1.Click L1.Text = t & a(li1.selectedindex) 8 4
執行畫面 2 9 程式部分 (VB6) Private Sub C1_Click(Index As Integer) Select Case Index Case 0: End Case 1: Li1.AddItem T1.Text, Li1.ListIndex Case 2: Li1.RemoveItem Li1.ListIndex : T1.Text = "" End Select Private Sub Form_Load() Li1.AddItem " 臺灣 : Li1.AddItem " 中國 " 10 5
程式部分 (VB6) Li1.AddItem " 美國 : Li1.AddItem " 泰國 " Li1.AddItem " 馬來西亞 : Li1.AddItem " 澳洲 " C1(0).Caption = " 結束 : C1(1).Caption = " 新增元件 " C1(2).Caption = " 刪除元件 : T1.Text = "" L1.Caption = " 你的選擇為 :" Private Sub Li1_Click() T1.Text = Li1.List(Li1.ListIndex) 11 程式部分 (VB6) Li1.AddItem " 美國 : Li1.AddItem " 泰國 " Li1.AddItem " 馬來西亞 : Li1.AddItem " 澳洲 " C1(0).Caption = " 結束 : C1(1).Caption = " 新增元件 " C1(2).Caption = " 刪除元件 : T1.Text = "" L1.Caption = " 你的選擇為 :" Private Sub Li1_Click() T1.Text = Li1.List(Li1.ListIndex) 12 6
程式部分 (VB.NET) Dim a(10), c(10) As String, t As String = " 首都為 :" Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Li1.Items.Add(" 臺灣 ") : Li1.Items.Add(" 中國 ") Li1.Items.Add(" 美國 ") : Li1.Items.Add(" 泰國 ") Li1.Items.Add(" 馬來西亞 ") : Li1.Items.Add(" 澳洲 ") a(0) = " 台北 " : a(1) = " 北京 " a(2) = " 華盛頓 " : a(3) = " 曼谷 " a(4) = " 吉隆坡 " : a(5) = " 雪梨 " 13 程式部分 (VB.NET) Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim k As Integer = Li1.Items.Count Li1.Items.Add(T1.Text) : a(k) = T2.Text Private Sub Li1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Li1.Click L1.Text = t & a(li1.selectedindex) 14 7
程式部分 (VB.NET) Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Dim i, k, m, j As Integer k = Li1.SelectedIndex m = Li1.Items.Count '6 Li1.Items.Remove(Li1.SelectedItem) j = 0 For i = 0 To m - 1 15 程式部分 (VB.NET) If i <> k Then c(j) = a(i) j = j + 1 Next For i = 0 To Li1.Items.Count - 1 a(i) = c(i) Next 16 8
執行畫面 2 17 執行畫面 3 18 9
程式部分 (VB6) Private Sub Form_Load() Li1.AddItem " 台灣 : Li1.AddItem " 中國 " Li1.AddItem " 美國 : Li1.AddItem " 英國 " Li1.AddItem " 法國 Li2.AddItem " 台北 : Li2.AddItem " 北京 " Li2.AddItem " 華盛頓 : Li2.AddItem " 倫敦 " Li2.AddItem " 巴黎 " L1.Caption = " 國家 : L2.Caption = " 首都 " L4.Caption = " 首都為 : L3.Caption = " : L5.Caption = "" Li1.ListIndex = 0 ' 表示為第一個 L3.Caption = Li1.List(Li1.ListIndex) L5.Caption = Li2.List(Li1.ListIndex) 19 程式部分 (VB6) C1.Caption = " 加入 : C2.Caption = " 刪除 C3.Caption = " 結束 " Private Sub Li1_Click() L3.Caption = Li1.List(Li1.ListIndex) L5.Caption = Li2.List(Li1.ListIndex) Li2.ListIndex = Li1.ListIndex Private Sub Li2_Click() L3.Caption = Li1.List(Li2.ListIndex) L5.Caption = Li2.List(Li2.ListIndex) Li1.ListIndex = Li2.ListIndex 20 10
程式部分 (VB6) Private Sub C1_Click() k1 = InputBox(" 輸入國家 ", "input prompt", "") k2 = InputBox(" 輸入首都 ", "input prompt", "") If k1 <> "" And k2 <> "" Then eq = 0 For i = 0 To Li1.ListCount - 1 If k1 = Li1.List(i) Then eq = 1 : Exit For next 21 程式部分 (VB6) If eq = 0 Then If Li1.ListIndex < 0 Then Li1.AddItem k1: Li2.AddItem k2 Li1.ListIndex = 0: Li2.ListIndex = 0 Else Li1.AddItem k1, Li1.ListIndex Li2.AddItem k2, Li2.ListIndex 22 11
程式部分 (VB6) L4.Visible = True L3.Caption = Li1.List(Li1.ListIndex) L5.Caption = Li2.List(Li2.ListIndex) Else MsgBox " 資料重複 " 23 程式部分 (VB6) Private Sub C2_Click() pos = Li1.ListIndex If Li1.ListCount >= 1 Then Li1.RemoveItem Li1.ListIndex Li2.RemoveItem Li2.ListIndex If pos > Li1.ListCount - 1 Then Li1.ListIndex = Li1.ListCount - 1 Li2.ListIndex = Li1.ListCount - 1 Else Li1.ListIndex = pos : Li2.ListIndex = pos end if 24 12
程式部分 (VB6) If Li1.ListIndex < 0 Then L3.Caption = "" L5.Caption = "" L4.Visible = False Else L3.Caption = Li1.List(Li1.ListIndex) L5.Caption = Li2.List(Li2.ListIndex) 25 Private Sub C3_Click() End 程式部分 (VB6) 26 13
程式部分 (VB.NET) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Li1.Items.Add(" 臺灣 ") : Li1.Items.Add(" 中國 ") Li1.Items.Add(" 美國 ") : Li1.Items.Add(" 泰國 ") Li1.Items.Add(" 馬來西亞 ") : Li1.Items.Add(" 澳洲 ") Li2.Items.Add(" 台北 ") : Li2.Items.Add(" 北京 ") Li2.Items.Add(" 華盛頓 ") : Li2.Items.Add(" 曼谷 ") Li2.Items.Add(" 吉隆坡 ") : Li2.Items.Add(" 雪梨 ") 27 程式部分 (VB.NET) Private Sub Li1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Li1.Click L1.Text = Li1.SelectedItem & " 首都為 " & Li2.Items(Li1.SelectedIndex) Li2.SelectedIndex = Li1.SelectedIndex Private Sub Li2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Li2.Click L1.Text = Li1.Items(Li2.SelectedIndex) & " 首都為 " & Li2.SelectedItem Li1.SelectedIndex = Li2.SelectedIndex 28 14
執行畫面 3(VB.NET) 29 執行畫面 4 30 15
程式部分 Private Sub C1_Click() MsgBox Adodc1.Recordset.RecordCount While Not Adodc1.Recordset.EOF MsgBox Adodc1.Recordset.Fields.Count T$ = "" For i = 0 To Adodc1.Recordset.Fields.Count - 1 T$ = T$ & Adodc1.Recordset.Fields.Item(i) & " " Next Li1.AddItem T$ Adodc1.Recordset.MoveNext Wend 31 Private Sub C2_Click() End 程式部分 Private Sub Form_Load() Adodc1.Caption = 書籍訂單 " C1.Caption = 顯示 " C2.Caption = 結束 " 32 16
ComboBOX 下拉式的列表物件 (VB6) 重要屬性 新增至 ComboBOX 物件中 ADDITEM 自 ComboBOX 物件中刪除選取物件 REMOVEITEM 自 ComboBOX 物件中取出選取物件 ListIndex 顯示 ComboBOX 物件中紀錄個數 Listcount 33 ComboBOX 下拉式的列表物件 (VB.NET) 重要屬性 新增至 ComboBOX 物件中 ITEMS.add() 自 ComboBOX 物件中刪除選取物件 ITEMs.remove() 自 ComboBOX 物件中取出選取第幾個物件 SelectedIndex 自 ComboBOX 物件中取出選取物件內容 SelectedItem 顯示 ComboBOX 物件中紀錄個數 ITEMs.count 34 17
ComboBOX 下拉式的列表物件 (VB.NET) 35 程式部分 (VB.NET) Dim t As String = " 首都為 :" Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Li1.Items.Add(" 臺灣 ") : Li1.Items.Add(" 中國 ") Li1.Items.Add(" 美國 ") : Li1.Items.Add(" 泰國 ") 36 18
程式部分 (VB.NET) Li1.Items.Add(" 馬來西亞 ") : Li1.Items.Add(" 澳洲 ") Li2.Items.Add(" 台北 ") : Li2.Items.Add(" 北京 ") Li2.Items.Add(" 華盛頓 ") : Li2.Items.Add(" 曼谷 ") Li2.Items.Add(" 吉隆坡 ") : Li2.Items.Add(" 雪梨 ") li1.text = li1.items(0) : li2.text = li2.items(0) 37 程式部分 (VB.NET) Private Sub li1_click1(byval sender As Object, ByVal e As System.EventArgs) Handles li1.click L1.Text = li1.selecteditem & " 首都為 " & li2.items(li1.selectedindex) li2.selectedindex = li1.selectedindex li1.text = li1.items(li1.selectedindex) li2.text = li2.items(li1.selectedindex) 38 19
程式部分 (VB.NET) Private Sub li2_click1(byval sender As Object, ByVal e As System.EventArgs) Handles li2.click L1.Text = li1.items(li2.selectedindex) & " 首都為 " & li2.selecteditem li1.selectedindex = li2.selectedindex li1.text = li1.items(li2.selectedindex) li2.text = li2.items(li2.selectedindex) 39 程式部分 (VB.NET) Private Sub li1_selectedindexchanged(byval sender As Object, ByVal e As System.EventArgs) Handles li1.selectedindexchanged & L1.Text = li1.selecteditem & " 首都為 " li2.items(li1.selectedindex) li2.selectedindex = li1.selectedindex li1.text = li1.items(li1.selectedindex) li2.text = li2.items(li1.selectedindex) 40 20
程式部分 (VB.NET) Private Sub li2_selectedindexchanged(byval sender As Object, ByVal e As System.EventArgs) Handles li2.selectedindexchanged L1.Text = li1.items(li2.selectedindex) & " 首都為 " & li2.selecteditem li1.selectedindex = li2.selectedindex li1.text = li1.items(li2.selectedindex) : li2.text = li2.items(li2.selectedindex) 41 新增項目程式部分 (VB.NET) Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click If T1.Text <> "" And T2.Text <> "" Then Dim i As Integer, eq As Integer = 0 For i = 0 To li1.items.count - 1 If li1.items(i) = T1.Text Then eq = 1 : MsgBox(T1.Text & " 資料重複 ") Exit For Next 42 21
新增項目程式部分 (VB.NET) For i = 0 To li2.items.count - 1 If li2.items(i) = T2.Text Then eq = 1 : MsgBox(T2.Text & " 資料重複 ") Exit For Next 43 新增項目程式部分 (VB.NET) If eq = 0 Then li1.items.add(t1.text) li2.items.add(t2.text) 44 22
移除項目程式部分 (VB.NET) Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Dim pos As Integer = li1.selectedindex If li1.items.count >= 1 Then li1.items.remove(li1.items(pos)) li2.items.remove(li2.items(pos)) If pos > li1.items.count - 1 Then li1.text = " : li2.text = "" 45 移除項目程式部分 (VB.NET) Else li1.selectedindex = pos li2.selectedindex = pos Else li1.text = " :li2.text = "" 46 23
執行畫面 5 47 24