十、组合框和滚动条.doc

十、组合框和滚动条 例34：设计一个程序，使用组合框查询电脑零件。 窗口有三个标签框、三个命令按钮和两个组合框。三个标签框：电脑零件、此类产品清单、（无名）；三个命令按钮：显示产品信息、返回和退出。因“返回”和“退出”命令按钮不是同时出现，可以将它们重叠放置。 上图左边是设计时的界面，右边是运行时的界面。 在属性窗口分别设置如表： 对象 属性 设置 Form1(窗体) Caption 例34 (名称) Form1 Combo1 (组合框1) (名称) Combo1 Text Style 0 – Dropdown Combo Combo2 (组合框2) (名称) Combo2 Text Style 1 – Simple Combo Label1(标签框1) Caption 电脑零件 (名称) Label1 Label2(标签框2) Caption 此类产品清单 (名称) Label2 Label3(标签框3) Caption (名称) Label3 Visible False Command1(命令按钮1) Caption 退出 (名称) CmdExit Command2(命令按钮2) Caption 返回 (名称) CmdReturn Command3(命令按钮3) Caption 显示产品信息 (名称) CmdShow 组合框是将列表框和文本框的功能综合而成的。它既可像列表框一样让用户选择其中的项，又可像文本框一样，由用户输入内容。 组合框有三种不同的形式，由Style 属性值确定组合框类型和显示方式。 当Style 属性值为0时，组合框称为“下拉式组合框”。它由可输入的文本编辑区和一个下拉列表框组成，用户可从键盘直接向文本编辑区输入内容，也可单击右端的下三角按钮，从下拉列表框中选择一项，单击该项，使文本编辑区出现该项的内容。 当Style 属性值为1时，组合框称为“简单组合框”。它也有一个文本编辑区和一个列表框组成，但列表框不是下拉式的，而是始终显示在屏幕上的。当不能全部显示时会出现垂直滚动条。用户可从键盘直接向文本编辑区输入内容，也可单击列表框中的项，使文本编辑区出现该项的内容。 当Style 属性值为2时，组合框称为“下拉式列表框”。 它由不可输入的文本编辑区和一个下拉列表框组成，用户只能从下拉列表框中选择项，使文本编辑区出现该项的内容。 在代码窗口完成如下： Private Sub Form_Load() Label3.Visible = False Combo1.AddItem 硬盘 Combo1.AddItem CPU CmdReturn.Visible = False End Sub 完成后运行，可见如右图： Private Sub Combo1_Click() Select Case Combo1.Text Case 硬盘 Combo2.Clear Combo2.AddItem 火球 Combo2.AddItem 钻石 Combo2.AddItem IBM Case CPU Combo2.Clear Combo2.AddItem 赛扬 Combo2.AddItem 赛扬II Combo2.AddItem PIII Combo2.AddItem K6-II End Select End Sub 完成后运行，“电脑零件”中选“CPU”，可见如右图： 如再在“此类产品清单”中选“PIII”，可见如右图： Private Sub CmdShow_Click() Combo1.Visible = False Combo2.Visible = False Label1.Visible = False Label2.Visible = False CmdShow.Visible = False CmdExit.Visible = False Label3.Visible = True CmdReturn.Visible = True Label3.BorderStyle = 1 If Combo1.Text = 硬盘 Then hardd If Combo1.Text = CPU Then cpuh End Sub 以上将两个组合框、两个标签框和两个命令按钮都设置为“不可见”，并将第3个标签框和“返回”命令按钮为“可见”，其中标签框设置为有“边框”。根据用户在Combo1组合框选择的，分别调用有关的过程（hardd和cpuh）。 hardd和cpuh 是由编程者设计的子程序，名称也由编程者确定的。这类子程序不是由事件