VB 神童教程第二章第十一节——滚动条
时间:2005-11-23 | 作者:赛迪网 | 阅读:177
滚动条常常用来附在某个窗口上帮助观察数据或确定位置,也可以用来作为数据输入的工具。在日常操作中,我们常常遇到这样的情况:在某些程序中,如 Photoshop ,一些具体的数值我们并不清楚,如调色板上的自定义色彩,这时,可以通过滚动条,用尝试的办法找到自己需要的具体数值。
在 Visual Basic 中,滚动条分为横向(HscrollBar)与竖向(VscrollBar)两种,命名规则为:HsbX 或 VsbX ,如 HsbShow、VsbShow ,等等。它们在工具箱上的图标如图一:
图一
选中滚动条按钮,把鼠标指针放到界面设计区,然后拖动,画出符合自己要求的滚动条,或者直接双击该按钮,自动在界面设计区生成默认大小的滚动条,如图二所示:
图二
一、滚动条控件的属性:
1、Max(最大值)与 Min(最小值)属性:
滚动块处于最右边(横向滚动条)或最下边(竖向滚动条)时返回的值就是最大值;滚动块处于最左边或最上边,返回的值最小,如图三所示:
图三
Max 与 Min 属性是创建滚动条控件必须指定的属性,默认状态下, Max 值为 32767 ,Min 值为 0 。本属性既可以在界面设计过程中予以指定,也可以在程序运行中予以改变,如:
HsbShow.Min = 3
HsbShow.Max = 30
2、Value(数值)属性:
Value 属性返回或设置滚动滑块在当前滚动条中的位置,如图三所示。
Value 值可以在设计时指定,也可以在程序运行中改变,如:
HsbShow.Value = 24
3、SmallChange(小改变)属性:
当用户单击滚动条左右边上的箭头时,滚动条控件 Value 值的改变量就是 SmallChange,如图四:
图四
4、LargeChange(大改变)属性:
单击滚动条中滚动框前面或后面的部位时,引发 Value 值按 LargeChange 设定的数值进行改变,如图五:
图五
二、滚动条控件的事件:
与滚动条控件相关的事件主要是 Scroll 与 Change ,当在滚动条内拖动滚动框时会触发 Scroll 事件(但要注意,单击滚动箭头或滚动条时不发生 Scroll 事件),滚动框发生位置改变后则会触发 Change 事件。Scroll 事件用来跟踪滚动条中的动态变化,Change 事件则用来得到滚动条最后的值。
三、示例:
有如图六这样一个应用程序,当滚动条(HsbShow)的滚动块发生位移时,下面的显示标签(LblShow)自动显示滚动条当前的值;在拖动滚动框的过程中,显示标签(LblShow)则会显示“拖动中……”字样。
图六
1、创建界面。
其中,HsbShow 的 Min 为 0 ,Max 为 100 ,SmallChange 为 5 ,LargeChange 为 10 。
2、双击滚动条(HsbShow),进入代码编写窗口:
Private Sub HsbShow_Change()
LblShow.Caption = "滚动条当前值为:" & HsbShow.Value
End Sub
3、滚动条的拖动事件:
Private Sub HsbShow_Scroll()
LblShow.Caption = "拖动中……"
End Sub
在 Visual Basic 中,滚动条分为横向(HscrollBar)与竖向(VscrollBar)两种,命名规则为:HsbX 或 VsbX ,如 HsbShow、VsbShow ,等等。它们在工具箱上的图标如图一:
图一
选中滚动条按钮,把鼠标指针放到界面设计区,然后拖动,画出符合自己要求的滚动条,或者直接双击该按钮,自动在界面设计区生成默认大小的滚动条,如图二所示:
图二
一、滚动条控件的属性:
1、Max(最大值)与 Min(最小值)属性:
滚动块处于最右边(横向滚动条)或最下边(竖向滚动条)时返回的值就是最大值;滚动块处于最左边或最上边,返回的值最小,如图三所示:
图三
Max 与 Min 属性是创建滚动条控件必须指定的属性,默认状态下, Max 值为 32767 ,Min 值为 0 。本属性既可以在界面设计过程中予以指定,也可以在程序运行中予以改变,如:
HsbShow.Min = 3
HsbShow.Max = 30
2、Value(数值)属性:
Value 属性返回或设置滚动滑块在当前滚动条中的位置,如图三所示。
Value 值可以在设计时指定,也可以在程序运行中改变,如:
HsbShow.Value = 24
3、SmallChange(小改变)属性:
当用户单击滚动条左右边上的箭头时,滚动条控件 Value 值的改变量就是 SmallChange,如图四:
图四
4、LargeChange(大改变)属性:
单击滚动条中滚动框前面或后面的部位时,引发 Value 值按 LargeChange 设定的数值进行改变,如图五:
图五
二、滚动条控件的事件:
与滚动条控件相关的事件主要是 Scroll 与 Change ,当在滚动条内拖动滚动框时会触发 Scroll 事件(但要注意,单击滚动箭头或滚动条时不发生 Scroll 事件),滚动框发生位置改变后则会触发 Change 事件。Scroll 事件用来跟踪滚动条中的动态变化,Change 事件则用来得到滚动条最后的值。
三、示例:
有如图六这样一个应用程序,当滚动条(HsbShow)的滚动块发生位移时,下面的显示标签(LblShow)自动显示滚动条当前的值;在拖动滚动框的过程中,显示标签(LblShow)则会显示“拖动中……”字样。
图六
1、创建界面。
其中,HsbShow 的 Min 为 0 ,Max 为 100 ,SmallChange 为 5 ,LargeChange 为 10 。
2、双击滚动条(HsbShow),进入代码编写窗口:
Private Sub HsbShow_Change()
LblShow.Caption = "滚动条当前值为:" & HsbShow.Value
End Sub
3、滚动条的拖动事件:
Private Sub HsbShow_Scroll()
LblShow.Caption = "拖动中……"
End Sub
福利游戏
相关文章
更多精选合集
更多大家都在玩
大家都在看
更多-
- 原神5.2版本有什么福利
- 时间:2024-11-21
-
- 无限暖暖谈幽幽最新过关技巧
- 时间:2024-11-21
-
- 伊甸之战新手少走弯路技巧总汇一览
- 时间:2024-11-21
-
- 伊甸之战卡包获得方法一览
- 时间:2024-11-21
-
- 伊甸之战战术研究馆打法技巧一览
- 时间:2024-11-21
-
- 伊甸之战肉身之转化过关攻略一览
- 时间:2024-11-21
-
- 伊甸之战战术研究馆玩法一览
- 时间:2024-11-21
-
- 伊甸之战兽族简单打法攻略一览
- 时间:2024-11-21