Private Sub HScrollBar1_Scroll(ByVal sender As Object, _
ByVal e As ScrollEventArgs) _
Handles HScrollBar1.Scroll
Me.BackColor = HScrollBar1.Value
End Sub
Run Code Online (Sandbox Code Playgroud)
如何设置BackColor表单?如何使用RGB值?
Geo*_*ton 16
Me.BackColor = Color.FromArgb(255,255,255)
Run Code Online (Sandbox Code Playgroud)
...用您需要的值替换每个参数上的255.例如
Me.BackColor = Color.FromArgb(HScrollBar1.Value,HScrollBar2.Value,HScrollBar3.Value)
Run Code Online (Sandbox Code Playgroud)