基础篇 共50页[1 2 3 4 5 6 7 >»<... 最后一页]

滚动条控件(ScrollBar)

滚动条控件具有水平滚动条控件(HScrollBar)和垂直滚动条控件(VScrollBar)，他们除了方向不同外，其它没有什么区别。使用滚动条控件可以浏览比较大的图片、文本等内容，这样以节省窗体空间。滚动条的常用属性主要有以下几个：

 (1)Min属性：用于返回或设置滚动条控件Value属性的最小值，即滚动条 最小值
     (2)Max属性：用于返回或设置滚动条控件Value属性的最大值，即滚动条 最大值
     (3)Value属性：用于返回或设置滚动条控件的当前值。
     (4)Largechange属性：用于返回或设置当用户单击滚动条区域时，滚动条的Value属性改的数量大小。
      (5)SmallChange属性：用于返回或设置当用户单击滚动条两端的箭头时，滚动条的Value属性改变的数量。

滚动条控件的两端各有一个箭头，中间还有一个小滑块，程序运行时，使用它们都可以改Value属性的值。

滚动条控件的这些属性既可以在属性窗口中进行设置，也可以在程序时使用代码来设置，单击滚动条区域或单击两端的箭头时，都会触发滚动条的Change事件。如果在代码中改变了滚动条控件的Value属性，也会触发Change事件。

对于滚动条控件，如果想监视滚动条数值的改变情况，可以通过两个事件来完成，即滚肆条控件的Change事件和Scroll事件。Scroll事件在移动滚动条中的滑块时发生。

 下面我们通过一个小例子来说明滚动条控件的使用。

 首先在窗体上添加一个文本框控件和一个水平滚动条控件。

然后为程序编写如下代码：

Private Sub Form_Load()
     HScroll1.Min = 0
     HScroll1.Max = 1000
     HScroll1.Value = 0
     HScroll1.LargeChange = 50
     HScroll1.SmallChange = 10
     Text1.Text = HScroll1.Value
     End Sub

Private Sub Hscroll1_Change()
     Text1.Text = HScroll1.Value
     End Sub

Private Sub HScroll1_Scroll()
     Text1.Text = HScroll1.Value
     End Sub

Private Sub Text1_Change()
     On Error GoTo Err
     HScroll1.Value = Text1.Text
     Exit Sub
     Err:
     Text1.Text = 0
     End Sub

下面解释一下上述代码的意义。程序首先在窗休的启动事件过程中为文本框控件和滚动条设置初始值，即滚动条的最大值和最小值分别是0和100，单击滚动区域时改变50,单击两端的箭头时改变10。在—下面两个过程中,是用来设置文本框与滚动条的关联，即单击了滚动区域两端的箭头或拖动滑块时，文本框中显示的值也随之改变。最后一个过程，是用来滚动条与文本框的关联，当在文本框中输入某个数值时，滚动条的滑块就会移到相应的区域，另外，因为如果在文本框中输入的数值超过0至1000的范围时会发生错误，因此在过程中设置了一个错误捕捉器， 当发生错误时就将文本怔中的值没为0。

程序运行时，如果改变了滚动条中滑块的位置，文本框中就会显示该滑块相应位置的数值，同样，如果改变了文本框中的数值，滚动条巾的滑块也会移到表示该数值的相应位置。