2011年度计算机等级考试二级VB复习指导(45)

会计考友

　　5.11 滚动条控件
1 r- ~2 D0 `/ ^　　滚动条是windows应用程序中界面上的常见的元素。有了滚动条，就可在应用程序或控件中做垂直滚动，能方便地巡视一长列项目或大量信息。
& U8 x! Y7 J/ v3 U. M" W　　水平、垂直滚动条控件不同于文本框、列表框和组合框中的滚动条。无论何时，只要这些控件所包含的信息超过其所能显示的信息，滚动条就会自动出现，而不需要用户自己设计。对于其他一下控件，如图片框控件，当它所包含的图形超过控件范围时，控件不能自动添加滚动条，因此无法浏览到整个图形，此时，就可以使用滚动条控件来实现在图片框中滚动图片。另外，滚动条控件也常常用来进行数据的输入，特别是在输入不需要精确的数值时，使用滚动条就显得很直观，也很方便。
　　水平滚动条与垂直滚动条除方向不同外，其功能和操作完全相同。这里以水平滚动条为例来介绍滚动条的结构。一个标准的水平滚动条，它的两端各有一个滚动箭头，在两个滚动箭头之间有一个滚动块。每单击一次滚动箭头，滚动块就向滚动箭头的方向移动一定的距离。滚动块的位置代表值的大小。对于垂直滚动条，最上端代表最小值，最下端代表最大值;对于水平滚动条，最左端代表最小值，最右端代表最大值。
　　可通过设置滚动条的有关属性，来确定滚动条的一些参数，如值的范围以及每单击一次滚动箭头滚动块移动的距离等。表5.32中列出了滚动条控件的一些重要属性。
& P  G& |+ z' i
" c$ z# ]- P3 j- N3 i+ G" S( F9 U　　
( g' z9 d7 F  \1 P3 O" s　　在程序运行时，用户可通过3种方法来改变滚动条的值，分别是单击滚动箭头、单击滚动箭头与滚动块之间的滚动条和直接拖动滚动块。
2 j: g+ |7 y0 R, p　　滚动条控件用Scroll和Change事件监视滚动块沿滚动条的移动。Change事件在滚动块移动后发生;Scroll事件在拖动滚动块时发生而在单击滚动箭头或滚动条时不发生。只要拖动滚动框的动作继续，就会不断产生Scroll事件，当停止拖动时，如果滚动块的位置发生了变化，则又产生一个Change事件。
" u5 r' k4 ]5 ^/ R- A7 Z; s　　实例5.21计算打折小程序。
2 u8 ]' g* ?3 @4 O$ i  ]　　这是一个自动计算物品打折后价格的小程序。在该程序中，用户输入物品的原价，通过滚动条来设置打折的多少，则窗体上会自动显示出当前的打折情况以及物品在当前打折下的价格。

会计考友

　在窗体上放置四个标签控件、一个文本框控件和一个滚动条控件，如图5.68所示，其中各对象的属性设置如表5.33所示。
+ G6 C+ a/ R/ t　　
! b2 k3 A4 Z: J8 S+ B+ l, `4 {
8 Y9 @+ a. }2 ~" m& Q　　
　　双击滚动条控件，打开【代码】窗口，将下列代码添加到HScrolll_Change事件过程中：
　　Private Sub HScrolll_Change()
! m$ T# _( {% ]# |+ [　　Labzhe.Caption=HScrolll.Value & “折”
$ Z* w. S* K( B* k) ]　　Labzhe.Caption=Text1.Text* HScorlll.Value/10 & “元”
　　End Sub
, J/ _  h/ Q- e6 D. d& f6 B4 p　　由于代码在HScrolll_Change()事件过程中，因此，一旦滚动条的值改变了，当前的打折情况以及物品的现价即可被更新。为了使在拖动滚动框时，打折和现价也会随时更新，将上述代码再添加到HScrolll_Scroll事件过程中。
　　Private Sub HScorlll_Scorll()
- ], s7 z- Z1 r* ~　　Labzhe.Caption=HScrolll.Value & “折”
　　Labzhe.Caption=Text1.Text * HScorlll.Value/10 & “元”
　　End Sub
2 k3 `6 ^- b  f　　运行该程序，在文本框中输入物品的原价，拖动滚动条，则窗体上就会显示出打折的多少和物品的现价。