VB 神童教程第二章第十二节——综合示例五

VB 神童教程第二章第十二节——综合示例五(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