9组合框与列表框..docVIP

列表框与组合框 教学目标 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 方法。 练习 列表框综合应用 两个列表框，左列表框（List1）罗列了一些歌手名字，右列表框（List2）初始状态为空；点击向右按钮（Command1），可以将左列表框中的指定选项移动到右边列表框；点击全部