VB中HScroll1的使用方法

HScrollBar

在项目列表很长或者信息量很大时，可以使用滚动条来提供简便的定位。它还可以模拟当前所在的位置。滚动条可以作为输入设备，或者速度、数量的指示器来使用－例如，可以用它来控制计算机游戏的音量，或者查看定时处理中已用的时间。

说明

使用滚动条作为数量或速度的指示器、或者作为输入设备时，可以利用 Max 和 Min
属性设置控件的适当变化范围。

Change 事件

HScrollBar 和 VScrollBar（水平和垂直滚动条） － 移动滚动条的滚动框部分。该事件在进行滚动或通过代码改变
Value 属性的设置时发生。

以下是使用HScrollBar控件改变窗体背景色的代码：

Option Explicit
    
Private Sub Form_Load()
    Me.Show
    HScroll1.Max = 255
    HScroll2.Max = 255
    HScroll3.Max = 255
    HScroll1.Min = 0
    HScroll2.Min = 0
    HScroll3.Min = 0
    Me.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

Private Sub HScroll1_Change()
    Me.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

Private Sub HScroll2_Change()
    Me.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

Private Sub HScroll3_Change()
    Me.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

Private Sub HScroll1_Scroll()
Label1.Caption = HScroll1.Value
End Sub