Visual Basic程序设计第6章.ppt

运行结果如图6-12所示。 说明: （1）在删除项目时，可以一次选一项，也可以多选。 （2）“删除项目”对应程序的循环中，采用的是由后往前扫描数组中的数据，这主要是由于删除了一个项目时，列表框控件的ListCount自动减少，如果此时循环是由前向后扫描，在循环执行次数超过表中的项目数时，就会产生运行错误，而由后向前扫描则可以避免此种错误。 图6-12 例6.7运行结果 6.5.2 组合框 组合框（ComoBox）是一种兼有列表框和文本框的功能的控件。它可以像列表框一样，让用户通过鼠标选择所需要的项目；也可以像文本框一样，用键入的方式选择项目。 1．属性 （l）Style属性 这是组合框的一个重要属性，其取值为0，1，2，它决定了组合框三种不同的类型，分别为下拉式组合框、简单组合框和下拉式列表框。如图6-13所示。 图6-13 组合框类型 （2）Text属性 该属性值是用户所选择的项目的文本或直接从编辑区输入的文本。 2．事件 组合框所响应的事件依赖于其Style属性。只有简单组合框（Style属性值为1）才能接收DblClick事件，其他两种组合框可以接收 Click事件和 Dropdown事件。 对于下拉式组合框（Style属性值为0）和简单组合框（Style属性值为1），可以在编辑区输入文本，当输入文本时可以接收Change事件。 【例6.8】设计一个简单的报名窗口，要求界面如图6-14所示，从文本框中输入学生姓名，在“班级”旁边的组合框中选择其所属班级（已提供四个默认班级，用户可以输入其他的班级名）。然后将学生姓名和班级添加到列表框中。用户可以删除列表框中所选择的项目，也可以把整个列表框清空。 图6-14 例6.8界面 设计界面如下： 在窗体上加入三个标签，一个文本框，一个组合框，一个列表框，以及三个命令按钮。各控件属性设置如表6-6所示。 对象 属性 设置 Label1 Caption 姓名 Label2 Caption 班级 Label3 Caption 列表 Text1 Caption 空 Combo1 Style 0 List1 Sorted True MultiSelect 2 Command1 Caption 加入 Command2 Caption 删除选项 Command3 Caption 清空列表 Form1 Caption 报名 表6-6 设置属性 程序如下： Private Sub Command1_Click() If ((Text1.Text ) And (Combo1.Text )) Then List1.AddItem Text1.Text + + Combo1.Text Else MsgBox (请输入添加内容！) End If End Sub Private Sub Command2_Click() Dim i As Integer If List1.ListIndex = 0 Then For i = List1.ListCount - 1 To 0 Step -1 If List1.Selected(i) Then List1.RemoveItem i 删除被选中的项目 Next i End If End Sub Private Sub Command3_Click() List1.Clear ‘清空列表 End Sub Private Sub Form_Load() Combo1.AddItem 电气991 Combo1.AddItem 微机991 Combo1.AddItem 网络991 Combo1.AddItem 电子991 Combo1.Text = Combo1.List(0) End Sub 6.6 滚动条 滚动条通常用来附在窗体边上帮助观察数据或确定位置，作为速度、数量的指示器来使用，也可用来作为数据输入的工具。 滚动条分为水平滚动条（HscrollBar）和垂直滚动条（VscrollBar），如图6-16 所示。除方向不一样外，水平滚