VB.NET===HScrollBar的使用示例

Public Class Form1
    Private Sub HScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBar1.ValueChanged, HScrollBar2.ValueChanged, HScrollBar3.ValueChanged
        Dim red, green, blue As Long
        red = HScrollBar1.Value
        Label1.Text = "red:" & red
        green = HScrollBar2.Value
        Label2.Text = "green:" & green
        blue = HScrollBar3.Value
        Label3.Text = "blue:" & blue
        TextBox1.BackColor = Color.FromArgb(red, green, blue)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.ForeColor = TextBox1.BackColor
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox2.BackColor =