VB教程:滚动条(ScrollBar)

8、滚动条(ScrollBar)

作⽤：当应⽤程序或控件不能⾃动⽀持滚动时，⽤⽔平和垂直的滚动条控件，为它们提供这⼀功能。

滚动条控件有两类：⽔平滚动条HscrollBar、垂直滚动条VscrollBar。

（1）常⽤属性

见教材P135表5-13。

经常⽤到的属性有：

value——当前滑动块的位置

在滚动条中，滚动块所处的位置可以代表⼀个输⼊值。value属性值即为体现滚动块在滚动条中位置的数值。对于⽔平滚动条，当滚动块处于最左边时，value取最⼩值Min；对于垂直波动条，当滚动块处于最顶端时，value取最⼩值Min。反之，则value值取值。在中间的各个位置，value值与位置是严格按照⽐例来设定的。

改变滚动条value属性的⽅法有四种；

直接在属性窗⼝中设定value值；

⿏标单击两端箭头键改变滚动条数值；

可将滚动框沿滚动条拖动到任意位置；

⽤⿏标单击滚动条中滚动块两侧的部分，使滚动块以翻页的速度移动。

value属性的缺省值为O到32，767，缺省情况下，value取0和32，767中的某个数值(包括0和32，767)。

max——滚动条值

min——滚动条最⼩值

滚动条的value属性有取值范围的限制，取值范围由max属性和min属性设置，⼀般情况，max代表value的值，min代表value 的最⼩值。

如果希望滚动条显⽰的信息从较⼤数值向较⼩数值变化．可将Min设置成⼤于max的值。

largechange——变化量(单击滑动块)

smallchange——最⼩变化量(单击箭头)

（2）常⽤事件

Change事件和Scroll事件阻焊油墨

单击滚动条的滚动箭头、滚动区域或滚动条的Value属性改变时、滚动条具有焦点时再按下PageUp、Pagedown键，都可以引发Change事件和Scroll事件。

两者的不同在于：单击滚动条的滚动箭头、滚动区域或拖动滚动块后，才能引发Change事件，⽽拖动滚动块时，就可引发Scroll事件。

（3）例⼦

例1见教材P136。

界⾯：

代码：

Private Sub Form_Load()

HScroll1.Max = 50 '⽔平滚动条的值

陶粒砂过滤

HScroll1.Min = 0 '⽔平滚动条的最⼩值

HScroll1.SmallChange = 1 '单击⽔平滚动条的滚动箭头按钮⽽产⽣的变化值

HScroll1.LargeChange = 10 '单击⽔平滚动区域⽽产⽣的变化值

VScroll1.Max = 50 '垂直滚动条的值

VScroll1.Min = 0 '垂直滚动条的最⼩值

VScroll1.SmallChange = 1 '单击垂直滚动条的滚动箭头按钮⽽产⽣的变化值

VScroll1.LargeChange = 5 '单击垂直滚动区域⽽产⽣的变化值

End Sub

--------------------------------------------------------------------------------

Private Sub HScroll1_Change()

Label2.Caption = HScroll1.Value

End Sub

--------------------------------------------------------------------------------

Private Sub VScroll1_Change()充气模型

Label1.Caption = VScroll1.Value

End Sub

[程序演⽰] [程序下载]

在上例中，将Change事件改为Scroll事件，再试⼀试。

例2：在窗体的范围内跟踪⿏标的位置。见教材P137。

在窗体上放置⼀个图⽚框、⼀个⽔平和⼀个垂直滚动条。

界⾯：

薄鳅

代码：

Private Sub Form_Load()

HScroll1.Min = 0

VScroll1.Min = 0 '设置滚动条的最⼩值

HScroll1.Max = 100

VScroll1.Max = 100 '设置滚动条的值

ntest

VScroll1.Value = 50

HScroll1.Value = 50 '初始化滚动块的位置

End Sub

--------------------------------------------------------------------------------

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Y > Picture1.Top And Y < Picture1.Top + Picture1.Height Then

VScroll1.Value = (Y - Picture1.Top) / (Picture1.Height) * 100 '跟踪垂直位置（按照⽐例来设定）End If

If X > Picture1.Left And Y < Picture1.Left + Picture1.Width Then

HScroll1.Value = (X - Picture1.Left) / (Picture1.Width) * 100 '跟踪⽔平位置

End If

End Sub

--------------------------------------------------------------------------------

Private Sub HScroll1_Change()

Label1.Caption = "X=" & HScroll1.Value

压延加工End Sub

--------------------------------------------------------------------------------Private Sub VScroll1_Change()

Label2.Caption = "Y=" & VScroll1.Value

End Sub

[程序演⽰] [程序下载]

例3：通过单击滚动块显⽰⼀年12个⽉。

界⾯：

代码：

Private Sub Command1_Click()

Unload Form1

End Sub

--------------------------------------------------------------------------------Private Sub Form_Load()

HScroll1.Value = Month(Now)

HScroll1.Min = 1

HScroll1.Max = 12

End Sub

--------------------------------------------------------------------------------

Private Sub HScroll1_Change()

Label4.Caption = HScroll1.Value

End Sub

本文发布于:2024-09-22 04:37:20，感谢您对本站的认可！

本文链接：https://www.17tex.com/tex/2/286425.html

上一篇：罗技MxMaster2s无线鼠标购买、使用、体验

下一篇：快速移动到excel第一行的方法

标签：滚动属性位置数值

留言与评论（共有 0 条评论）