列表框

4.4 列表框

本节主要内容：1 、列表框的常用属性 2 、列表框的常用方法

（用于提供一些可供选择的列表项目，用户可从中选择一项或多项。）

在实际应用中，常常有这样的情况：列出若干个项，供用户从中任意选择，并对其作某种处理。如果项目较多，超过了列表框的长度，则系统自动在列表框边上加一个垂直滚动条，通过移动滚动条可以使列

表框中的内容作上下滚动，以使用户能够看到所需要的内容，列表框的图标为。

1 、列表框的常用属性（返回）

1 .List 属性

用于设置或返回控件的列表项的内容。既可在属性窗口中设置，也可在设计中设置。

该属性是一个字符串数组，每个数组元素都是列表框中的一个列表项。 List 数组的下标从 0 开始，即List （ 0 ）保存表中的第一个数据项的内容， List （ 1 ）保存第二个数据项的内容，依次类推， List （ ListCount-1 ）保存表中的最后一个数据项的内容。

2 .ListCount 属性

表示列表框中有多少个列表项。 ListCount-1 代表列表框中最后一项的序号。该属性只能在程序中引用它。

3 .Text 属性

返回被选中列表项的文本内容，与 List(ListIndex) 相同。该属性是只读的，不能在属性窗口中设置，也不能在程序中设置，如果列表框中选择了多项，列表框的 Text 属性返回的是最后一次选中的文本内容。

4 .ListIndex 属性

使用 ListIndex 属性判断列表框中哪个项被选中，即设置或返回被选中的选项在 List 数组中的下标序号。① 如果用户没有从列表框中选择任何一项，则 ListIndex 为 -1 。② 在列表框 List1 中选中第3 项，即 List1.List 数组的第 3 项，则 ListIndex ＝ 2 （ ListIndex 从 0 开始）。③ 与 List 配合使用，可获得当前被选中的列表项的内容。 List1.List （ List1. ListIndex ）。④ 设置默认选项 List1. ListIndex=0 ，第 0 项为默认选项。

ListIndex 属性不能在设计时设置，只有程序运行时才起作用。

5 .Selected 属性

该属性是一个逻辑数组，表示相应的项在程序运行期间是否被选中。例如， List1.Selected （ 0 ）的值为 True ，表示列表框控件中第一项被选中，如为 False ，表示未被选中。

6 .MultiSelect 属性

该属性值表明是否允许在列表框控件中选择多项，它必须在设计时设置，运行时只能读取该属性。

Multiselect 属性值的说明如表所示。

MultiSelect 属性设置说明

7 .Columns 属性

Columns 属性指定列表框中可见列数。缺省值为 0 ，列表框只允许显示一列。当 Columns 值大于或等于 1 时，列表框中能显示多列，自动增加滚动条。

8 .Sorted 属性

True ：列表框中的项按字母升序排列。

False ：列表框中的项按加入的先后顺序排列，默认值。

9 .Style 属性

列表框的 Style 属性有两个值， 0( 默认值 ) 和 1 。对于不同的 Style 值，列表框有不同的形式。

图 4 .5 Style 属性示例

2 、列表框的常用方法（返回）

1 .AddItem 方法

该方法向列表框中加入列表项，其语法是：

对象名 .AddItem 列表项内容 [ ，列表项序号 ]

列表项序号是从 0 开始的顺序号，标明新增的项在列表框中的位置。如果省略，则把新增的项添加到列表的末尾。项索引号对应于列表框的 ListIndex 属性，可以通过列表框的 ListIndex 属性确定所选择

的项。装入列表项内容的语句，通常放在窗体的 Load 事件过程中完成。 List1.AddItem " 北京 " ， 2

【例 4 .4 】实现上图所示的界面设计，用代码实现。

Private Sub Form_Load()

List1.AddItem " 北京 "

List1.AddItem " 上海 "

List1.AddItem " 天津 "

List2.AddItem " 北京 "

List2.AddItem " 上海 "

List2.AddItem " 天津 "

End Sub

2 .RemoveItem 方法

该方法用于删除列表框中的某一个列表项，其语法是：

对象名 .RemoveItem 索引号

List1.RemoveItem 1 ，当执行这个命令后，列表框 List1 中序号为 1 的项被删除。但是，需要注意的是，后面每个列表项的序号都会自动减 1 。（避免序号的混乱，利用 Text 属性而不利用 ListIndex 属性。）

3 .Clear 方法

该方法删除列表框控件中的所有列表项。其语法是：

对象名 .Clear

补充作业： 1 、例4.6 的扩充，当没有选中列表框中的列表项时，应有处理信息。

2 、修改中奖的例子，当三个标签框出现相同的一位整数时，中奖。