一、列表框控件的属性

1．List属性

设置列表框中列表项的内容。List属性值是一个一维数组，每个数组元素是列表框中的一个选项。其中：该属性既可以在设计时通过属性窗口设置，又可在代码窗口中设置；属性窗口设置时，每添加一个列表项，按Ctrl＋Enter键可以换行继续添加下一个列表项，按Enter键表示添加结束。

图5－22　添加列表项

代码窗口设置时，采用如下格式：

对象名．list（下标）＝字符串

例如：

List1．list（0）＝＂武汉＂　′列表框的第一项

List1．list（2）＝＂北京＂　′列表框的第三项

注意：List数组的第一个元素的下标是0，即List（0）为第一个元素，往后依次为List（1）、List（2）、List（3）．．．，如果List数组中有n个元素，则最后一个列表项对应的数组元素为List（n－1）。List属性是保存了列表框中所有值的数组，可以通过下标访问数组中的值（下标值从0开始）其格式为：

S＄＝［列表框．］List（下标）

2．ListCount属性

返回当前列表框中选项的总数（用于测试有多少项）。

注意：任何列表框中的选项从0开始，到ListCount－1结束，通常和List属性一起使用，此属性只能在程序运行中访问。

3．ListIndex属性

设置和返回选中项目的索引，即下标序号。如果没有选中任何选项，其值为－1。如果选中列表框的第5个元素，则ListIndex值为4。

4．Sorted属性

设置列表框中的选项是否按字母表顺序排序。语法格式：

对象名．Sorted＝｛True｜False｝

注意：属性值为True表示列表框中的选项按字母表顺序排列；属性值为False则表示列表框中的选项不按字母表顺序排列。

Sorted属性必须在属性窗口设置，在运行时是只读的。

list1．sorted＝true　′按字母顺序排列

list1．sorted＝false　′按加入时的顺序排列

5．Text属性

返回当前选中的列表项的文本内容。只读属性，不能直接修改其值，用于获取选定列表项的内容。

6．MultiSelect属性

设置该列表框是否能多项选择。对于一个标准列表框，该属性的设置决定了用户是否可以在列表框中选择多个项目。语法格式：

对象名．MultiSelect＝｛0｜1｜2｝

表5－8　列表框MultiSelect属性

注意：若选择多项，则ListIndex和Text的属性只表示当前所选择的选项值。

7．SelCount属性

表示列表框中所选择的选项的数目（选中多少项）。通常与Selected一起使用，以处理控件中所选的选项。

注意：SelCount属性使用的前提是MultiSelect属性设置为1或2。

8．Selected属性(www.daowen.com)

与List数组中的各个元素相对应的一个数组，记录List数组中每个选项是否被选取。例如，如果List（1）被选取，则Selected（1）的值为True，如果List（1）未被选取，则Selected（1）的值为False。用下面的语句可以检查指定的表项是否被选择：列表框．Selected（索引值）［＝Boolen］

注：索引值即下标

如：list1．selected（0）＝true　′表示选中第一项

9．Style属性

设置列表框控件的外观。语法格式：

对象名．Style＝｛0｜1｝

表5－9　列表框的Style属性

图5－23　列表框样式

二、列表框控件的事件

Click事件：在列表框获得焦点时，用户单击某个选项，或按下方向键，或按下选项的第一个英文字母，会触发该事件。

DblClick事件：双击某个选项会触发该事件。

三、列表框控件的方法

AddItem方法：该方法用来在列表框中插入一行文本，把一个项目加入列表框中。其语法格式为：

对象名．Add Item选项字符串［，索引值］

注意：选项字符串是要添加到列表框中的字符表达式；索引值是可选参数，用来指定新选项在列表框中的插入位置。若索引值为0，则插入到第一个选项位置；若索引值省略，当Sorted属性设置为True时，新选项将添加到恰当的排序位置，当Sorted属性设置为False时，新选项将添加到现有列表项的末尾。

例如：list1．additem＂中国＂

list1．additem＂美国＂，2

RemoveItem方法：从列表框中删除指定选项。

语法格式：

对象名．RemoveItem［，索引值］

例如：list1．RemoveItem，0

其中：索引值用来指定要删除的选项在列表框中的位置，每次只能删除一个选项。

Clear方法：清除列表框中的全部选项。

语法格式：

对象名．Clear

【例5．10】设计一个窗体，要求：可以通过在列表框List1中选择，然后单击中间的命令按钮在列表框List2中执行相应的操作。

图5－24　例5．10界面设计

图5－25　例5．10运行效果

代码设计：