8 VB基础控件篇.HScroll水平滚动条和VScroll垂直滚动条

VB基础控件篇.HScroll水平滚动条和VScroll垂直滚动条
《VB基础控件篇》
修正时间：2011年8月15
修正方VB梦工厂: /
VB视频教程地址：/swf/vb.html
滚动条常常用来附在某个窗口上帮助观察数据或确定位置，也可以用来作为数据输入的工具。

在日常操作中，我们常常遇到这样的情况：在某些程序中，如Photoshop ，一些具体的数值我们并不清楚，如调色板上的自定义色彩，这时，可以通过滚动条，用尝试的办法找到自己需要的具体数值。

在Visual Basi c 中，滚动条分为横向（HscrollBar）与垂直（VscrollBar）两种。

它们在工具箱上的图标如图一：
下面我们以水平滚动条控件HscrollBar为例来讲解吧。

图一
选中滚动条按钮，把鼠标指针放到界面设计区，然后拖动，画出符合自己要求的滚动条，或者直接双击该按钮，自动在界面设计区生成默认大小的滚动条，如图二所示：
图二
一、滚动条控件的属性：
1、Max（最大值）与Min（最小值）属性：
滚动块处于最右边（横向滚动条）或最下边（竖向滚动条）时返回的值就是最大值；滚动块处于最左边或最上边，返回的值最小，如图三所示：
图三
Max 与Min 属性是创建滚动条控件必须指定的属性，默认状态下，Max 值为32767 ，Min 值为0 。

本属性既可以在界面设计过程中予以指定，也可以在程序运行中予以改变，如：
HScroll1.Min = 3
HScroll1.Max = 30
2、Value（数值）属性：
Value 属性返回或设置滚动滑块在当前滚动条中的位置，如图三所示。

Value 值可以在设计时指定，也可以在程序运行中改变，如：
HScroll1.Value = 24
3、SmallChange（小改变）属性：
当用户单击滚动条左右边上的箭头时，滚动条控件Value 值的改变量就是SmallChange，如图四：
图四
4、LargeChange（大改变）属性：
单击滚动条中滚动框前面或后面的部位时，引发Value 值按LargeChange 设定的数值进行改变，如图五：
图五
二、滚动条控件的事件：
与滚动条控件相关的事件主要是Scroll 与Change ，当在滚动条内拖动滚动框时会触发Scroll 事件（但要注意，单击滚动箭头或滚动条时不发生Scroll 事件），滚动框发生位置改变后则会触发Change 事件。

Scroll 事件用来跟踪滚动条中的动态变化，Change 事件则用来得到滚动条最后的值。

三、示例：
有如图六这样一个应用程序，当滚动条（HScroll1）的滚动块发生位移时，下面的显示标签（Label1）自动显示滚动条当前的值；在拖动滚动框的过程中，显示标签（Label1）则会显示“拖动中……”字样。

图六
1、创建界面。

其中，HScroll1 的Min 为0 ，Max 为100 ，SmallChange 为 5 ，LargeChange 为10 。

2、双击滚动条（HScroll1），进入代码编写窗口：
Private Sub HScroll1_Change()
Label1.Caption = "滚动条当前值为：" & HScroll1.Value
End Sub
3、滚动条的拖动事件：
Private Sub HScroll1_Scroll()
Label1.Caption = "拖动中……"
End Sub。