vb 滚动条 hscorllbar 控制 textbox 的背景颜色和大小

三、程序设计：

    1、创建如图一的程序界面。

    文本框的属性：
　　Name：TxtContent　　Text：None

    三个表示色彩的标签：

    红色标签，Name：LblRed　　Caption：红色
　　绿色标签，Name：LblGreen　　Caption：绿色
　　蓝色标签，Name：LblBlue　　Caption：蓝色

    三个表示色彩的横向滚动条：
　　Min：0　　Max：255　　SmallChange：1　　LargeChange：5

    显示“大小”字样的标签：
　　Name：LblSize　　Caption：大小

    对文本框大小进行控制的竖向滚动条：
　　Name：VsbSize　　Min：0　　Max：100　　SmallChange：1　　LargeChange：5

    用于显示大小变化尺寸的标签：
　　Name：LblShow　　Caption：None

    2、双击红色滚动条，在弹出的程序代码窗口中输入：

    Private Sub HsbRed_Change()
　　TxtContent.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value)
　　End Sub

    另外，就 HsbRed 的 Scroll 事件也输入上面的代码：

    Private Sub HsbRed_Scroll()
　　TxtContent.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value)
　　End Sub

    3、同理所得，在绿色与蓝色滚动条中输入相应代码。这样，通过滚动条控制文本框背景色的目的达到了。

    4、在“通用”选项中定义全局全量，用来储存文本框的原始尺寸：

    Dim Iwidth As Integer
　　Dim Iheight As Integer

    5、用来改变文本框尺寸的竖向滚动条：

    Change 事件：
　　Private Sub VsbSize_Change()
　　TxtContent.Width = Iwidth * (VsbSize.Value / 100)
　　TxtContent.Height = Iheight * (VsbSize.Value / 100)
　　LblShow.Caption = VsbSize.Value & "%"
　　End Sub

    Scroll 事件：
　　Private Sub VsbSize_Scroll()
　　TxtContent.Width = Iwidth * (VsbSize.Value / 100)
　　TxtContent.Height = Iheight * (VsbSize.Value / 100)
　　LblShow.Caption = VsbSize.Value & "%"
　　End Sub

    6、调试：

    按 F5 键进行调试，发现文本框的尺寸无法调整。这是因为，没有在初始状态下将原文本框的宽度、高度赋值给变量。

    在 Form 的 Load 事件中输入以下代码：

    Private Sub Form_Load()
　　Iwidth = TxtContent.Width
　　Iheight = TxtContent.Height
　　LblShow.Caption = "100%"
　　End Sub

详细代码如下：

Dim Iwidth As Integer
Dim Iheight As Integer

Private Sub Form_Load()
    Iwidth = TxtContent.Width
    Iheight = TxtContent.Height
    LblShow.Caption = "100%"

End Sub

Private Sub hsbblue_Change()
TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
End Sub

Private Sub hsbblue_Scroll()
TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
End Sub

Private Sub hsbgreen_Change()
TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
End Sub

Private Sub hsbgreen_Scroll()
TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
End Sub

Private Sub hsbred_Change()
TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
End Sub

Private Sub hsbred_Scroll()
TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
End Sub

Private Sub VsbSize_Change()
TxtContent.Width = Iwidth * (VsbSize.Value / 100)
TxtContent.Height = Iheight * (VsbSize.Value / 100)
LblShow.Caption = VsbSize & "%"
End Sub

Private Sub VsbSize_Scroll()
TxtContent.Width = Iwidth * (VsbSize.Value / 100)
TxtContent.Height = Iheight * (VsbSize.Value / 100)
LblShow.Caption = VsbSize & "%"
End Sub