Visual Basic程序设计案例教程第5章.pptVIP

5.3.4 列表框（ListBox） 例5-5 交换2个列表框中的表项。 要求：其中1个列表框中的表项按字母升序排列，另1个列表框中的表项按加入的先后顺序排列。当双击某个表项时，该表项从本列表框中消失，并出现在另一个列表框中。 （1）设计界面。 在窗体上添加2个列表框。 5.3.4 列表框（ListBox） （2）设置属性。 属性设置如表5-5所示。 表5-5 例5-5属性设置 控件 属性名 属性值 窗体 Name Caption Form1 列表框 列表框 Name Sorted List1 False 列表框 Name Sorted List2 True 5.3.4 列表框（ListBox） 设置属性后的界面如图5-21所示。 图5-21 例5-5的设计界面 5.3.4 列表框（ListBox） （3）编写代码。 在代码窗口中输入如下代码： Private Sub Form_Load() List1.FontSize = 11 List2.FontSize = 11 List1.AddItem 时事政治 List1.AddItem 教育法规 List1.AddItem 教师职业道德 List1.AddItem 计算机应用 List1.AddItem 工程制图 List1.AddItem 电工电子 List1.AddItem 力学 List1.AddItem 管理学 List1.AddItem 经济学 End Sub Private Sub List1_DblClick() List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End Sub 5.3.4 列表框（ListBox） Private Sub List2_Click() List1.AddItem List2.Text List2.RemoveItem List2.ListIndex End Sub 5.3.4 列表框（ListBox） （4）运行程序。 单击工具栏中的“启动”工具按钮，运行程序。Form_Load过程用来初始化列表框，并把每个表项加到列表框List1中，各个表项按加入的先后顺序排列。程序的执行情况如图5-23所示。 5.3.4 列表框（ListBox） 图5-23 “列表框” 运行界面 5.3.4 列表框（ListBox） 当双击列表框List1中的某一项时，该项即被删除并被放到列表框List2中。当单击列表框List2中的某一项时，该项即被删除并被放到列表框List1中。如图5-24所示。 图5-24 双击列表框中的表项 5.3.5 组合框（ComboBox） 组合框是将列表框和文本框的特性组合而成的控件。组合框可以将一个文本框和列表框组合为单个控制窗口。也就是说，组合框是一种独立的控件，但它兼有列表框和文本框的功能。它可以像列表框一样，通过鼠标选择所需要的表项，也可以像文本框一样，用输入的方式选择表项。 5.3.5 组合框（ComboBox） 1．属性 列表框的属性基本上都可用于组合框，此外它还有自己的一些属性。 （1）Style（类型）属性。 这是组合框的一个重要属性，其可取值为0—DropDown ComboBox（下拉组合框）、1—Simple Combo（简单组合框）、2—Dropdown ListBox（下拉列表框），它决定了组合框3种不同的类型。 ①下拉组合框，可以输入文本或从下拉列表中选择表项。单击右端的箭头可以下拉显示表项，并允许选择。 ②简单组合框，由一个文本编辑区和一个标准列表框组成。列表不是下拉式的，而是一直显示在屏幕上，可以选择表项，也可以在编辑区中输入文本。在运行时，如果项目的总高度比组合框的高度大，则自动加上垂直滚动条。 ③下拉列表框。和下拉式组合框一样，它的右端也有个箭头，可供“拉下”或“收起”列表框，可以选择列表框中的表项。 5.3.5 组合框（ComboBox） 下拉组合框和下拉列表框的主要区别：下拉组合框允许在编辑区输入文本，下拉列表框只能从下拉列表框中选择表项，不允许输入文本。 Style=0 Style=1 Style=2 图5-25 三种“组合框” 5.3.5 组合框（ComboBox） （2）Text（文本）属性。 该属性值是从列表中所选择的项目的文本或直接从编辑区输入的文本。 5.3.5 组合框（ComboBox） 2．事件 组合框所响应的事件决定于其Style属性。 只有简单组合框（Style属性值为1）才能接收DblC