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