VB滚动条控件如何使用?
我自己下载了个滚动条的控件,但是不知道如何使用。如何才能用滚动条来控制文字页面的上下翻动?也不知道这样问对不对,我是新手请大家多多包涵!!祝大家学习快乐!!
[解决办法]
1、滚动条分为水平滚动条(HSCROLLBAR)和垂直滚动条(VSCROLLBAR)两种,可以作为输入设备或者速度、数量的指示器来使用.
2、基本属性:object.max[=value],object.min[=value],最大最小范围
object.value[=value],用来返回你滑动滚动条时所在位置对应的值
3、基本方法 drag 用于空间的开始、结束火取消拖动操作
move 移动控件
setfocus 将焦点移动至指定的控件
refresh 强制重绘控件
zorder 将控件放置在其图层的z-顺序的前端或者后端
4、基本事件 change
dragdrop
dragover
gotfocus
lostfocus
keydown
keyup
keypress
scroll
具体的可以看MSDN
[解决办法]
Private Sub Form_Load()
Form1.WindowState = 2
Label5.Left = (Screen.Width - Label5.Width) / 2
Text1.Text = 0
Text2.Text = 0
Text3.Text = 0
End Sub
Private Sub HScroll1_Change()
HScroll1.Max = 255
HScroll1.Min = 0
Label1.BackColor = RGB(HScroll1.Value, 0, 0)
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Text1.Text = HScroll1.Value
Text4.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Text4.Text = "Color"
End Sub
Private Sub HScroll2_Change()
HScroll2.Max = 255
HScroll2.Min = 0
Label2.BackColor = RGB(0, HScroll2.Value, 0)
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Text4.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Text2.Text = HScroll2.Value
End Sub
Private Sub HScroll3_Change()
HScroll3.Max = 255
HScroll3.Min = 0
Label3.BackColor = RGB(0, 0, HScroll3.Value)
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Text4.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Text3.Text = HScroll3.Value
End Sub