Visual Basic程序设计 龚为琨 第5章 选择控件.pptVIP

第5章 选择控件 5.1 列表框(ListBox) 5.2 组合框(ComboBox) 5.3 滚动条 5.4 小结 5.5 练习题 5.6 上机实习题 5.1 列表框(ListBox) 在程序设计中，我们希望能够把较多的项目在一个列表中显示出来，从而使用户可以方便地选择自己要输入的信息，列表框控件可以完成此项工作。列表框(ListBox)控件用来显示项目列表，用户可以方便地在其中选择一项或者多项。列表框在工具箱中的图标是“”。 5.1.1 列表框常用的属性和事件 列表框的主要属性和方法如表5-1所示。 5.1.2 列表框的方法 列表框的方法主要有AddItem、Clear和RemoveItem三个，下面分别做以简单的介绍。 1) AddItem方法 AddItem方法可以向列表框中添加一个供用户选择的新项目。具体的使用形式如下： 对象名称．AddItem 字符串表达式[，位置] 说明：“字符串表达式”是将要加入到列表框的项目，“位置”指明新加入的项目在列表框中的具体位置，如果省略，则新加入的项目位于列表框的最后。对于第一个项目，位置为0。 2) Clear方法 Clear方法用于从列表框中清除所有供用户选择的项目。具体的使用形式如下： 对象名称．Clear 3) RemoveItem方法 RemoveItem方法用于从列表框中移出一个供用户选择的项目。具体的使用形式如下： 对象名称．RemoveItem 位置 说明：位置是被删除的项目在列表框中的位置。对于第一个项目，位置为0。 【例5.1】 编写一个选举的小程序，要求用户能在提供的候选人中选取一个，也能够按照自己的要求添加新的候选人或者删除候选人。 设计步骤： (1) 建立一个列表框用来放置事先确定的候选人；为了能输入新的候选人应建立一个文本框，输入新加的候选人姓名；需要建立四个按钮，分别用于“添加候选人”、“删除候选人”、“显示选定的候选人”和“退出”四个操作。控件的布局如图5-1所示。 修改Command1的Caption属性为“添加”，Command2的Caption属性为“删除”，Command3的Caption属性为“显示”，Command4的Caption属性为“退出”，Text1的Text属性为空字符串，四个按钮和文本框的其他属性以及其他控件的属性使用默认值。属性设置结果如图5-2所示。 (2) 编写事件过程的程序代码如下： Private Sub Form_Load() List1.AddItem 杨勇 给列表框中加入候选人 List1.AddItem 陈涛涛 List1.AddItem 李腾龙 List1.AddItem 文成玉 List1.AddItem 李丽 End Sub Private Sub Command1_Click() If Trim(Text1.Text) = Then 如果文本框空，则不能加入 MsgBox 没有输入人名，不能加入，请重新输入！, 16, 输入出错 Text1.SetFocus Else List1.AddItem Text1.Text 将文本框中的人名加入到列表框中 Text1.Text = End If End Sub Private Sub Command2_Click() If List1.ListIndex = ?1 Then ‘如果列表框中没有选中的候选人，则不能做删除操作 MsgBox 没有选定人名，不能删除，请重新选定！, 16, 操作出错 Else List1.RemoveItem List1.ListIndex End If End Sub ? Private Sub Command3_Click() If List1.ListIndex = ?1 Then 如果列表框中没有选中的候选人，则不能做显示操作 MsgBox 没有选定人名，不能显示，请重新选定！, 16, 操作出错 Else MsgBox 您选定的是： + List1.Text + ！, 64, 显示信息 End If End Sub Private Sub List1_Dbl