之前的我找到一個很好的網站,讓我清楚的知道如何使用 ListBox
但很可惜的,那個網站關閉了
所以我在此分享之前留下的常用 ListBox 應用!
程式碼
|
說明
|
例子
|
ListBox1.Items.Add("aaa")
|
在 ListBox1中加入"aaa”
|
|
ListBox1.SelectedIndex
= -1
|
判斷是否有選取項目
|
If ListBox1.SelectedIndex
= -1 Then
MsgBox( "未選取" )
End If
|
ListBox1.Items.Clear()
|
刪除ListBox1中的所有項目
|
|
ListBox1.Items.Count
|
計算ListBox1中有幾個項目
|
|
ListBox1.Items(0)
|
查詢ListBox1的第1筆資料
|
|
ListBox1.SelectedIndex
= 1
|
選取ListBox1的第 2 項
|
|
ListBox1.Text = "aaa"
|
選取ListBox1中的 aaa
|
|
aaa = ListBox1.Text
|
aaa=目前選取資料,沒有選= ""
|
|
ListBox1.Items.Insert(1,
"aaa")
|
插入第1筆為"aaa"
|
|
ListBox1.Items.Contains("aaa")
|
尋找是否有aaa 有:True,沒:False
|
|
ListBox1.Items.Remove("aaa")
|
刪除 aaa 這筆資料
|
|
ListBox1.Items.RemoveAt(1)
|
刪除第 2 筆資料
|
|
ListBox1.ClearSelected()
|
清除選擇狀態
|
|
ListBox1.FindString(“0”)
|
搜尋ListBox1中開頭為「0」的項目,如有一個以上,則會回傳找到第一個項目的索引編號;如未找到符合的項目,則回傳「-1」。
|
Dim abc As Integer
abc =
ListBox1.FindString( "0" )
If abc = -1 Then
MsgBox( "未搜尋到項目" )
Else
MsgBox(abc)
End If
|
ListBox 在 VB 是一個很好用的物件,期望大家看到這份表格可以很快就可以學起來囉~
有任何文章錯誤歡迎提出,本人將會儘快改進。
沒有留言:
張貼留言