使用清单方块.docVIP

使用清單方塊（ListBox）講義 在List中加入資料(a) 屬性視窗中逐一加入 每加入一個要按Ctrl + Enter 鍵，結束輸入按Enter 鍵物件：ListBox屬性：List  在程式中加入資料 (a) 如： List1.Additem 資料物件：Command1屬性：Caption 改「加資料」Private Sub Command1_Click() List1.AddItem 自己的英文名End Sub (b) 在程式中加入資料，指定位置 如： List1.Additem 資料 , 2Private Sub Command1_Click() List1.AddItem Tom, 2 加入的資料指定在位置2 (0,1,2,3,4,.....)End Sub 讀取及設定清單內的資料(a) 取出某一筆 如：取出的資料 = List1.List (位置)物件：Command2屬性：Caption改「取出資料」Private Sub Command2_Click() n = InputBox(你要找出第幾個 + vbCrLf + 位置是從 0 開始算的....) MsgBox List1.List(n)End Sub 這是InputBox 這是MsgBox(b) 清單內共有幾筆 如：筆數 = List1.ListCount物件：Command3、Label1屬性：Caption　改「統計資料」Private Sub Command3_Click() tot = List1.ListCount Label1.Caption = totEnd Sub(c) 目前被選取的位置編號 如：位置編號 = List1.ListIndex物件：Command4 屬性：Caption　改「選取的編號」Private Sub Command4_Click() If List1.ListIndex -1 And List1.Selected(List1.ListIndex) = True Then Print 你選取的是 第 List1.ListIndex 個位置 End IfEnd Sub(d) 目前被選取的個數(前提:清單設為可多選) 屬性：MultiSelect = 1物件：Command5、List1屬性：Caption　改「己選取的個數（多重）」Private Sub Command5_Click()For x = 1 To List1.SelCount Print 你選取的是 List1.List(x) , ;NextEnd Sub(e) 某編號位置是否己被選取　　　　沒有例題 刪除及全部清除清單資料(a) 刪除某一筆 如： List1.RemoveItem　位置編號物件：Command6屬性：Caption　改「刪除一筆」Private Sub Command6_Click() n = InputBox(你要刪第幾個 + vbCrLf + 位置是從 0 開始算的....) List1.RemoveItem nEnd SubInputBox (b) 全部清除清單資料 如： List1.Clear 練習題： 寫一程式可以完成「收集使用者輸入的資料，並完成挑選勁歌熱舞的人員名單」 表單： 程式： 執行中