Question

设计调色板应用程序，用三个滚动条作为三种基本颜色的输入工具，合成的颜色显示在右边的颜色区。颜色区是

Answer 1

Dim a As Integer
Dim b As Integer
Dim c As Integer
Private Sub Form_Load()
HScroll1.Max = 255
HScroll2.Max = 255
HScroll3.Max = 255
Label1 = "调色区"
End Sub

Private Sub HScroll1_Change()
a = HScroll1.Value
Label1.BackColor = RGB(a, b, c)
End Sub

Private Sub HScroll2_Change()
b = HScroll2.Value
Label1.BackColor = RGB(a, b, c)
End Sub

Private Sub HScroll3_Change()
c = HScroll3.Value
Label1.BackColor = RGB(a, b, c)
End Sub