《第五章列表框与组合框》-公开课件.ppt

* * 第五章 列表框与组合框 一、列表框（ListBox） 控件 二、组合框（ComboBox）控件 一、列表框（ListBox） 控件 列表框控件（ListBox）用于显示项目列表，用户可从中选择一个或多个项目。如果项目总数超过了可显示的项目数， VB会自动加上滚动条。 列表框有两种风格：标准和复选列表框。通过它的Style属性来设置。 List “List1”是控件的名称，而不是实际上列表清单中数据。 在每一项输入后，必须以“Ctrl+Enter”换行 格式是： [对象名.].List (索引值) [=字符串表达式] 如：List1 . List(5)=“插入” Text与ListIndex选取的数据 ListIndex使list数组中最后一个被选取得项目的索引值。 Text则是数组中对应的字符串数据。 ListIndex等于“1” Text等于“第二项 ” 例题5.1 利用列表框让用户选择窗体的颜色。 MultiSelect属性——设置是否能够选择多项。 MultiSelect = 0：不允许复选（缺省值） 。 MultiSelect = 1：简单复选。鼠标单击或按下空格键，在列表中选中或取消选中项。使用箭头键移动焦点。 MultiSelect = 2：扩展复选。按下 SHIFT 并单击鼠标或按箭头键选择连续的多项。按下 CTRL 并单击鼠标选择不连续的多项（或取消选中项）。 MultiSelect 属性在运行时是只读的。 Style 属性——控制列表框的外观 Style=0：默认值，标准样式，单击选项即可选中。 Style=1：复选框样式，列表框的每个项目以复选框 的形式显示（不受MultiSelect属性的影响）。 Style 属性在运行时是只读的。 Style=0 Style=1 Sorted属性——指示列表框中的条目是否排序。 Sorted属性值为True，则选项按字母顺序升序排列，否则按输入的顺序排列。 Sorted 属性为只读属性 Columns 属性:决定列表框中显示条目的列数。 0----显示一列（默认），垂直滚动条。 1----显示一列，水平滚动条。 n----显示 n 列，水平滚动条。（n1） Columns=3时，水平滚动条。 列表框的方法与事件 AddItem 方法——向列表框中添加新条目 格式： [列表框名].AddItem 字符串表达式 [,插入位置序号] 若不指定插入位置，且Sorted = False，则插入到列表尾；否则插入到适当位置。 例如：List1.AddItem “王平” 例题5.2 利用文本框及列表框，让用户一一输入板及学生的姓名。在文本框输入完成后，通过设置按钮的Default属性，使得按下就会输入的数据加入列表框。 Private Sub Command1_Click() If Trim(Text1) “ ” Then ‘如果输入不是空字 符串，就加入列表 List1.AddItem Trim(Text1) Text1 = End If End Sub 例题5.3 要求将列表框中插入的数值进行排序，把新加入的数据一一插入到适当的位置。 Private Sub Command1_Click() If IsNumeric(Text1) Then n = Val(Text1) For i = 0 To List1.ListCount - 1 If Val(List1.List(i)) n Then Exit For End If Next 判断输入的是否为数值，并赋值给n ListCount属性 ——列表框中的条目数 找出插入数据的适当位置 List1.AddItem Text1, i 插入数据 Text1 = End If End Sub RemoveItem方法——删除指定列表项 格式： [列表框名].RemoveItem 删除项序号 例如：List1. RemoveItem 0 Clear方法——删