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 = TextBox1.BackColor
    End Sub
End Class
 

运行结果：

********************************************************************************************

HScrollBar是滚动滑块，是动态调节控件

主要有两个事件：

Scroll    当HScrollBar的滑块拖动时触发该事件

ValueChanged    除了滑块拖动时触发该事件，当Value的值发生改变时也会触发该事件

******************************************************************************************

在设置RGB的时候不能拖动到255时需要改变控件的maximum的值，255+10-1，想知道为什么可以深究一下