9 组合框与列表框

列表框与组合框

一、教学目标

1、列表框属性、事件、方法

2、组合框属性、事件、方法

二、教学过程

1、列表框控件的主要属性：

A、List（n）：返回指定的项目内容。

（Ctrl+回车：换行；回车：确认）

说明：列表框中的值是数组，可通过List(下标值)的形式表示。如列表

框中的第一项，用List(0)表示，第二项，用List(1)表示，列表框中的第十项，用

List(9)表示，以此类推。

a = List1.List(0)

Print a ‘输出第一项

List1.List(1) = "十堰市" ‘对数组第二元素赋值

Print List1.List(1) ‘输出第二项内容

B、Text：返回任意项目内容，只能在程序中设置。

C、ListCount：返回项目总数。

比如：列表框共有四个项目，那么ListCount 就为4。

Print List1.ListCount ‘输出表项数量的数值

D、ListIndex：返回任意的项目。

ListCount 始终比最大的ListIndex 值大1 。

x= List1.ListIndex '得到选中项索引号

Print List1.List(x) '输出选中项内容

E、Selected属性：判断列表框中的某项目是否被选中，被选中返回True，没被选中返回False。

F、MultiSelect属性：用来设置是否可以多选。值为0时只能单选，值为1时是多选，值为2时可以配合Ctrl、

Shift键进行多选。Ctrl可以选择多个不连续的对象，Shift可以选择多个连续的对象。

2、列表框控件的主要事件：列表框控件主要接收Click 与DblClick

如：Private Sub List1_Click()

Print List1.List(List1.ListIndex) '输出选中项内容

End Sub

3、列表框控件的方法：

A、增加项目：AddItem

用AddItem 可以为列表框增加项目，代码规则如下：

'列表框名称.AddItem 项目字符［,位置值］

如：List1.AddItem "十堰市", 0 '添加项目值，并指定位置为第一个,若省略则在最后

B、清除所有：Clear用Clear 可以清除列表框中所有的内容，代码如下：

列表框名称.Clear

如：List1.Clear '清除列表框中的所有内容

C、删除选项：RemoveItem此方法可以删除列表框中指定的项目，代码如下：

列表框名称.RemoveItem 索引值

其中，索引值是必须的，表示欲删除哪一个项目。

如：List1.RemoveItem (List1.ListIndex) '删除选中的项目

例：如右图所示，完成相应功能

Private Sub Command1_Click()

a = Val(Text2) '将文本框二强制转成数值

List1.AddItem Text1, a '添加列表项

Text1 = ""

Text2 = ""

End Sub

Private Sub Command2_Click()

List1.RemoveItem List1.ListIndex '移除选中项目

End Sub

Private Sub Command3_Click()

List1.Clear '清除列表框所有内容

End Sub

4、组合框控件的主要属性：

组合框控件（ComboBox）将文本框控件（TextBox）与列表框控件（ListBox）的特性结合为一体，兼具文本框控件与列表框控件两者的特性。

A、Style（类型）属性

Style属性设为0时：（下拉式组合框）可输入，可选择；

Style属性设为1时：（简单组合框）可输入，可选择，可变大

Style属性设为2时：（下拉式列表框）只能选择

B、Text（文本）属性：用户所选项目文本或输入的文本内容（与文本框用法一样）

5、组合框的方法：跟列表框一样，组合框也适用AddItem 、Clear 、RemoveItem 方法。

练习

1、列表框综合应用

两个列表框，左列表框（List1）罗列了一些歌手名字，右列表框（List2）初始状态为空；点击向右按钮（Command1），可以将左列表框中的指定选项移动到右边列表框；点击全部向右按钮（Command2），可以将左列表框中所有的内容搬到右列表框中；点击向左按钮（Command3），可以将右列表框中选定的表项移动到左列表框中；点击全部向左按钮（Command4），可以将右列表框中的所有内容移动到左列表框中。

Private Sub Command1_Click()

'选中项右移

List2.AddItem List1.List(List1.ListIndex) '把列表框一的选中项添加到列表框二中

List1.RemoveItem List1.ListIndex '删除列表框一选中项

End Sub

Private Sub Command2_Click()

'全部右移

List2.AddItem "张学友"

List2.AddItem "郭富城"

List2.AddItem "蔡依林"

List2.AddItem "周杰伦"