VB教程：列表框（ListBox）

6.列表框(列表框)

列表框为用户提供了选项列表。

功能:显示项目列表，用户可以从中选择一个或多个项目。

(1)列表框控件的常用方法

方法
描述了

AddItem
向列表框中添加新项，其格式为:
ListBox控件名称。additem < item > [，<索引值>]
其中:
是
是一个数值表达式，它指定在列表框中插入新项目的位置。如果为0，则插入第一个项目位置；如果默认且Sorted属性为False，它将被插入到最后一个项目位置；
如果它是默认值并且Sorted属性为True，它将被插入到适当的排序位置。

RemoveItem
以下列格式从列表框中删除项目:
ListBox控件名称。removeitem <索引值>

Clear
以下列格式清除列表框中的所有项目:[/]

例如，在List1列表框中添加代码，运行后的结果如下:

私有子窗体_Load()

列表1。AddItem“德国”

列表1。AddItem“印度”

列表1。AddItem“法国”

列表1。AddItem“美国”

列表1。AddItem“日本”，0

列表1。AddItem“中国”，1

End Sub

若要从列表中删除某项，可以使用RemoveItem方法。要删除列表中的第一项，可以添加以下代码:

私有子命令1_Click()

列表1。移除项目0

末端接头

删除链接版本或标准版本的列表框和组合框中的所有项目。使用清除方法:

列表1。清楚的

注意:

1)您可以在设计时添加项目。练习:在列表框的“属性”窗口中选择[列表]属性，在下拉空白色框中输入一项，按[CTRL]+[ Enter]即可馈入。

2)只能在列表末尾添加项目。

3)如果要按字母顺序对列表进行排序，应将“Sorted”属性设置为“True”并省略索引(否则，使用带有index参数的AddItem方法可能会导致意外的未排序结果)。排序不区分大小写。

(2)共同属性

描述代码和界面显示
List (1)可以在设计时向列表框添加新项，输入时使用Ctrl+Enter换行(2)可以在代码中访问列表框中的所有项，代码中包含一个字符串数组，列表框中的每一项都是这个数组的一个元素。引用格式为:
s$=ListBox控件名称。list (index value)
其中:指定列表中项目位置的数值表达式，从0开始。
示例:s$=list1.list(6)将列出list1的第七项。
Private子命令1 _ click()
text 1 . text = list 1 . list(2)
end sub
也可以更改数组中的现有值。格式为:
ListBox控件名称. list(索引值)= s $[Option Explicit
Private Sub command 1 _ Click()
text 1。Text = "您有" & List1。list count & " _ entri fs lister "
End Sub

Private Sub命令2_Click()
Text1。Text = List1。List(3)
End Sub

Private Sub命令3_Click()
Text1。Text = List1。ListIndex
结束Sub

私有子Form_Load()
List1。AddItem“德国”[br/]list 1。AddItem“印度”[br/]list 1。AddItem“法国”[br/]list 1。AddItem“加拿大”[br/]list 1。AddItem“USA”[br/]list 1。AddItem“日本”，0
List1。附加项目“中国”，1
结束子

私有子List1_Click()
If List1。Text = "Canada "然后
Text1。Text = "加拿大有2400万人口。"
End If
End Sub

ListCount返回列表框中的项目总数，该值仅在运行时可用。示例:
private subcommand 2 _ click()
text 1 . text = " you have " & list 1 . list count & " _ entrifslister "
end sub
listindex返回列表框中当前选定项的位置，该位置仅在运行时可用。当没有选择任何项目时，该值为-l。示例:
private subcommand 3 _ click()
text 1 . text = List 1 . ListIndex
end sub
text存储列表框中当前选中的项目，即List(ListIndex)的值。示例:
private sublist 1 _ click()
iflist 1 . text = " Canada " then
text 1 . text = "加拿大有2400万人口。"
end if
end sub
当其值为0时，列表框以单列显示，垂直滚动；当l为时，列表框以水平滚动的方式单列显示；当它大于l时，列表框以水平滚动的方式显示在多列中。选项显式

private form _ load()
dim I as integer
for I = 0 to screen . font count-1
list 1 . additem screen . fonts(I)' " columns "属性0
2。list . additem screen . fonts(I)' " columns "属性1
next I
end sub

Multiselect指示是否允许用户从列表框中选择多个项目以及如何选择。值为0时，只能选择一项，不允许勾选；当为1时，允许用户通过单击或按空键来选择或取消多个项目；当为2时，允许用户通过组合使用Shift和Ctrl来选择或取消多个项目。
语法结构:object . multiselect =[number]
当sorted为True时，列表自动按字母顺序重新排列，排序不区分大小写。
Style表示列表框中项目的显示形式，在运行时是只读的。当其值为0时，以标准方式显示；当为1时，会在每个项目前添加一个复选框。
Selected这个属性实际上是一个数组，每个元素的值为True或False，表示该项是否被选中。
使用以下语句检查指定的表项是否被选中(其中“索引值从0开始”):
ListBox控件名称。selected (index value)
使用以下语句选择或取消指定的表项:
ListBox控件名称。selected(指标值)= true │ false。