如何编写一个调色板

Question

如上

Answer 1

使用滚动条作为颜色值的输入方式是最好的选择，试想一下，如果采用文本框来输入颜色值将会有多么麻烦。此外，颜色的显示是借助图片框的背景色来实现的
'设置红色的值
Private Sub VScroll1_Change()    Label1.Caption = "红色：" + Str(VScroll1.Value)
    
    Picture1.BackColor = RGB(VScroll1.Value, 0, 0)
    
    Picture4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)End SubPrivate Sub VScroll2_Change()    Label2.Caption = "绿色：" + Str(VScroll2.Value)
    
    Picture2.BackColor = RGB(0, VScroll2.Value, 0)
    
    Picture4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)End SubPrivate Sub VScroll3_Change()    Label3.Caption = "兰色：" + Str(VScroll3.Value)
    
    Picture3.BackColor = RGB(0, 0, VScroll3.Value)
    
    Picture4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)End Sub 欢迎光临电脑爱好者论坛 bbs.cfanclub.net
 

Answer 2

Dim r As Integer
Dim g As Integer
Dim b As IntegerPrivate Sub HScroll1_Change()
Picture1_Click
Label1_Click
End Sub
Private Sub HScroll2_Change()
Picture1_Click
Label2_Click
End Sub
Private Sub HScroll3_Change()
Picture1_Click
Label3_Click
End Sub
Private Sub Label1_Click()
Label1.Caption = HScroll1.Value
End Sub
Private Sub Label2_Click()
Label2.Caption = HScroll2.Value
End Sub
Private Sub Label3_Click()
Label3.Caption = HScroll3.Value
End Sub
Private Sub Picture1_Click()
r = HScroll1.Value
g = HScroll2.Value
b = HScroll3.Value
Picture1.BackColor = RGB(r, g, b)
End Sub