列表框（）控件表示一個選項清單，用戶可能用鼠標選擇其中一個或者幾個選項。
列表框的特點是：列表框中的項目是通過程序插入到其中的，用戶無法向清單中輸入數(shù)據(jù)，當選擇其中的項目，并在用戶單擊一個按鈕或者執(zhí)行某個操作時，由應用程序完成對指定項目的具體操作。下面這個例子充分說明了列表框的這個特點，并介紹了列表框（）的常用屬性。
為了學習方便，提供的源碼已經作了詳細的中文注釋，看看源碼框中的代碼：
'--------------------------------------
' 簡單的列表框的例子
'--------------------------------------
' 洪恩在線 求知無限
'--------------------------------------
'------名稱-------------作用------------
' List1、List2 列表框
' 移動所選項目到另一個列表框（左到右）
' 移動所選項目到另一個列表框（右到左）
' 刪除列表框List1中所選項目
' 刪除列表框List2中所選項目
' 給列表框List1增加新項目
' 給列表框List2增加新項目
' 清空列表框List1
' 清空列表框List2
'--------------------------------------
'--------------------------------------
'————名稱————屬性設置———
'
' List1列表框 屬性設為“False”
' List2列表框 屬性設為“True”
' 屬性設置為2
' 即List2控件中的項目總是排序的
'--------------------------------------
Sub ()
'裝載窗體時，給列表中的元素賦值
List1. "China"
List1. ""
List1. "Japan"
List2. ""
List2. ""
List2. ""
End Sub
Sub ()
'將左邊列表中所選元素移動到右邊列表中
If List1. >= 0 Then
'在右邊列表中增加新元素
List2. List1.Text
'刪除左邊列表中的所選元素
List1. List1.
End If
End Sub
Sub ()
Dim As
'
= ("在列表中輸入新項目")
'向列表中加入新項目
If Trim() "" Then
'Trim（）作用是清除字符串內的空格
List1.
End If
End Sub
Sub ()
'清空列表
List1.Clear
End Sub
Sub ()
Dim i As
'判斷列表框是否只有一個項目被選中
If List1. = 1 Then
List1. List1.
List1. > 1 Then
'刪除列表框中的所選中的多個項目
For i = List1. - 1 To 0 Step -1
'返回列表框中的項目總數(shù)
'-1是列表框中最后一個項目的索引號
'判斷該項目是否被選中，()返回布爾值
If List1.(i) Then
'刪除索引號為i的項目
List1. i
End If
Next
End If
End Sub
Sub ()
'定義變量，以接收輸入的字符串
Dim As
= ("在列表中輸入新項目")
If Trim() "" Then
'將字符串增加到列表中
List2.
End If
End Sub
Sub ()
'清空列表
List2.Clear
End Sub
Sub ()
Dim i As
'判斷所選 元素是否只有一個
If List2. = 1 Then
List2. List2.
'如果所選 元素大于1，則按下列操作進行
List2. > 1 Then
For i = List2. - 1 To 0 Step -1
If List2.(i) Then
List2. i
End If
Next i
End If
End Sub
Sub ()
Dim i As
'判斷選中的元素有幾個
If List2. = 1 Then
List1. List2.Text
List2. List2.
'當選中的元素大于一個時
List2. > 1 Then
For i = List2. - 1 To 0 Step -1
'如果該元素被選中，則將其從右邊移至左邊
If List2.(i) Then
List1. List2.List(i)
List2. i
End If
Next i
End If
End Sub
(源程序下載)
這個例子包含一個窗體，窗體中有兩個列表框（List1、List2）和八個按鈕vb里列表框怎么加東西，界面如下：
窗體（）
我們首先新建一個標準的EXE工程，添加一個窗體，并把列表框和按鈕控件添加到窗體上。各按鈕控件的名稱如下表：
按鈕名稱
名稱屬性
按鈕名稱
名稱屬性
刪除所選項目（左）
刪除所選項目（右）
增加新項目（左）
增加新項目（右）
清除弄表（左）
清除列表（右）
右箭頭 左箭頭
' List1列表框 屬性設為“False” ' List2列表框 屬性設為“True” ' 屬性設置為2 ' 即List2控件中的項目總是排序的
在屬性窗口中，將List1列表框 屬性設為“False”；List2列表框 屬性設為“True”，屬性設置為2，即List2控件中的項目總是排序的。
下一步我們?yōu)楦骺丶砑酉鄳某绦颉?/p>
其中：
List1. "China" 是將“China”添加到列表框中。
List1. 返回的是列表框List1中當前選擇項目的索引號碼。
List1. 返回的是列表框List1中項目總數(shù)。
List1. - 1 返回列表框List1中最后一個項目的索引號。
List1.() 返回的是一個項目的選擇狀態(tài)vb里列表框怎么加東西，返回的是布爾值。
代碼寫好之后，我們就可以保存工程，然后按“Ctrl+F5”鍵，測試檢驗一下我們的程序了。在這個小程序中，包含了列表框中的一般常用屬性和方法。