十、组合框和滚动条

1、十、组合框和滚动条例34：设计一个程序，使用组合框查询 电脑零件。窗口有三个标签框、三个命令按钮和两 个组合框。三个标签框：电脑零件、此类产 品清单、（无名）；三个命令按钮：显示产品 信息、返回和退出。因“返回”和“退出” 命令按钮不是同时出现，可以将它们重叠放 置。上图左边是设计时的界面，右边是运行 时的界面。在属性窗口分别设置如表：对象属性设置Form1（窗体）Caption例34（名称）Form1Combol （组合框1）（名称）Combo1TextStyle0 - Dropdown ComboCombo2 （组合框2）（名称）Combo2TextStyle1 - Simple Comb

2、oLabel 1（标签框1）Caption电脑零件（名称）Label1Label2（标签框2）Caption此类产品清单（名称）Label2Label3（标签框3）Caption（名称）Label3VisibleFalseCommand1（命 令按钮 1）Caption退出（名称）CmdExitCommand2（命令按钮 2）Caption返回（名称）CmdReturnCommand3（命令按钮 3）Caption显示产品信息(名称)CmdShow组合框是将列表框和文本框的功能综合而成的。它既可像列表框一样让用户选择其中的 项，又可像文本框一样，由用户输入内容。组合框有三种不同的形式，由Sty

3、le属性值确定组合框类型和显示方式。当Style属性值为0时，组合框称为“下拉式组合框”。它由可输入的文本编辑区和一 个下拉列表框组成，用户可从键盘直接向文本编辑区输入内容，也可单击右端的下三角按钮， 从下拉列表框中选择一项，单击该项，使文本编辑区出现该项的内容。当Style属性值为1时，组合框称为“简单组合框”。它也有一个文本编辑区和一个列 表框组成，但列表框不是下拉式的，而是始终显示在屏幕上的。当不能全部显示时会出现垂 直滚动条。用户可从键盘直接向文本编辑区输入内容，也可单击列表框中的项，使文本编辑 区出现该项的内容。当Style属性值为2时，组合框称为 “下拉式列表框”。它由不可输入的文

4、本 编辑区和一个下拉列表框组成，用户只能 从下拉列表框中选择项，使文本编辑区出 现该项的内容。在代码窗口完成如下：Private Sub Form_Load()Label3.Visible = FalseCombo1.AddItem ”硬盘” Combo1.AddItem CPU CmdReturn.Visible = FalseEnd Sub完成后运行，可见如右图：Private Sub Combo1_Click()Select Case Combo1.TextCase 硬盘Combo2.ClearCombo2.AddItem 火球 Combo2.AddItem 钻石 Combo2.AddI

5、tem IBMCase CPUCombo2.ClearCombo2.AddItem 赛扬Combo2.AddItem 赛扬 IICombo2.AddItem PIIICombo2.AddItem K6-IIEnd SelectEnd Sub完成后运行，“电脑零件”中选“CPU”， 可见如右图：如再在“此类产品清单”中选“PIII”， 可见如右图：Private Sub CmdShow_Click()Combol.Visible = FalseCombo2.Visible = FalseLabel1.Visible = FalseLabel2.Visible = FalseCmdShow.Vis

6、ible = FalseCmdExit.Visible = FalseLabel3.Visible = TrueCmdReturn.Visible = TrueLabel3.BorderStyle = 1If Combo1.Text =硬盘”Then harddIf Combo1.Text = CPU Then cpuhEnd Sub以上将两个组合框、两个标签框和两个命令按钮都设置为“不可见”，并将第3个标签 框和“返回”命令按钮为“可见”其中标签框设置为有“边框。根据用户在Combo1组合 框选择的，分别调用有关的过程(hardd和cpuh)。hardd和cpuh是由编程者设计的子程序，名称

7、也由编程者确定的。这类子程序不是由 事件触发的，是被其他程序调用的。这类子程序称为通用子程序。也在代码窗口完成编辑。Private Sub hardd()ch0$ =电脑零件信息：CH1$ =类别：+ Combo1.Textch2$ =名称：+ Combo2.TextSelect Case Combo2.TextCase 火球”Label3.Caption = ch0$ & vbCrLf + CH1$ & vbCrLf + ch2$ & vbCrLf + 15G/20G 750/850 元”Case 钻石Label3.Caption = ch0$ & vbCrLf + CH1$ & vbCrL

8、f + ch2$ & vbCrLf + 15G/20G 770/860 元”Case IBMLabel3.Caption = ch0$ & vbCrLf + CH1$ & vbCrLf + ch2$ & vbCrLf + 20G(5400/7200) 940/1350 元”End SelectEnd SubPrivate Sub cpuh()ch0$ =电脑零件信息：CH1$ =类别：+ Combo1.Textch2$ =名称：+ Combo2.TextSelect Case Combo2.TextCase 赛扬”Label3.Caption = ch0$ & vbCrLf + CH1$ &

9、vbCrLf + ch2$ + 500/533 & vbCrLf + 755/780 元”Case 赛扬 IILabel3.Caption = ch0$ & vbCrLf + CH1$ & vbCrLf + ch2$ + 566/533 & vbCrLf + 780/950 元”Case PIII|Label3.Caption = ch0$ & vbCrLf + CH1$ & vbCrLf + ch2$ + 650E/667EB & vbCrLf + ”1550/1630 元”Case K6-II|Label3.Caption = ch0$ & vbCrLf + CH1$ & vbCrLf +

10、 ch2$ + 650E/667EB & vbCrLf + ”1550/1630 元”End SelectEnd Sub完成后运行，按上述操作，再点击“显示产品信息”显示：下面再继续在在代码窗口完成编辑。Private Sub CmdExit_Click()EndEnd SubPrivate Sub CmdReturn_Click()Combo1.Visible = TrueCombo2.Visible = TrueLabel1.Visible = TrueLabel2.Visible = TrueCmdShow.Visible = TrueCmdExit.Visible = TrueLabe

11、l3.Visible = FalseCmdReturn.Visible = FalseEnd Sub在工具箱内，有水平滚动条图标和垂直滚动条图标。例35:设计一个程序，第一个数为 10，以后每个数比前一个增加某一个数， 则显示第50个数及到这第50个数的和是 多少。考虑增加的某一个数用水平滚动条 来完成。这样设计窗体：有四个标签框、 一个水平滚动条和一个命令按钮。第一个 标签框显示第一个数为10，第二个标签 框显示第50个数的值，第三个标签框显 示这50个数和的值，第四个标签框显示 每次增加数。在属性窗口分别设置如表：对象属性设置Form1（窗体）Caption例35（名称）Form1Labe

12、l 1(标签框1)CaptionBorderStyle1Fixed Single(名称)Label1Label2（标签框2）CaptionBorderStyle1Fixed Single(名称)Label2Label3（标签框3）CaptionBorderStyle1Fixed Single(名称)Label3Label4（标签框4）CaptionBorderStyle1Fixed Single(名称)Label4Command1（命 令按钮 1）(名称)CmdExitCaption退出HScroll1Bar （水平滚动条1）(名称)AddBarMax30Min0SmallChange1Val

13、ue0在代码窗口完成如下:Private Sub AddBar _Change() Dim x(2) As Single x(0)= 10 y = 50 a = AddBar.Value x(1) = x(0) + a * y -a x(2) = (x(1) + x(0) * y / 2Label3.Caption = ”前” + Str$(y) + ”个数的和为：+ Str$(x(2)Label2.Caption =第+ Str$(y) + 个数为：+ Str$(x(1)Labell.Caption =第 1 个数为：+ Str$(x(0)Label4.Caption = ”每次增加数为：+

14、 Str$(a)End SubPrivate Sub CmdExit_Click() EndEnd Sub运行后，鼠标将滚动条中的滚动块拖 曳到某一个位置，就可见到各框的显示。滚动块在水平滚动条的左端的值最 小，滚动块在水平滚动条的右端的值最 大。这里最小值设为0，最大值设为30。 而VB规定其值的范围从-32768到 32767。Min属性：设置可达最小值。Max属性：设置可达最大值。SmallChange属性：设置点击两端的滚动箭头产生最小变化值。LargeChange属性：设置最大变化值。Value属性：设置当前滚动块所指点示的值。例36：设计一个程序，第一个数为10,以后每个数比前一个

15、增加某一个数，要显示这 些数中第几个数及到这个数的和是多少。考虑增加的某一个数用水平滚动条，第几个数用垂直滚动条来完成。界面设计为：有四个标签框、一个水平滚动条、一个垂直滚动条和一个命令按钮。每彼增加几左上图为设计时的界面；右上图为运行后界面，如先移动垂直滚动条，再移动水平滚动条，就可见类似的结果。在属性窗口分别设置如表:对象属性设置Form1（窗体）Caption例36（名称）Form1Label 1（标签框1）Caption第1个数为：10（名称）Label1Label2（标签框2）Caption第几个（名称）Label2Label3（标签框3）Caption每次增加几（名称）Label3

16、Label4（标签框4）CaptionBorderStyle1Fixed Single（名称）Label4Command1（命 令按钮 1）CaptionCmdExit（名称）退出HScroll1Bar（水平滚动条1）（名称）AddBarMax30Min1SmallChange1Value0Vscroll1Bar （垂直滚动条1）（名称）NumBarMax200Min1SmallChange1在代码窗口完成如下：Private Sub addbar_Change()Dim x(2) As Singlex(0)= 10y = NumBar.Valuer = AddBar.Viluex(1) = x(0) + r * y - rx(2) = (x(1) + x(0) * y / 2Label3.Caption = ”每次增加数为：+ Str$(r)Label4.Caption = ”第” + Str$(y) + ”个为：” + Str$(x(1) & vbCrLf + 前”+ Str$(y) + ”个数 的和为：+ Str$(x(2)End SubP