RGB调色板

RGB调色板——编程取色好帮手
红、绿、蓝为光中的三原色，也是彩色液晶屏显示的三基色，通过对这三种原色的不同比例搭配可以产生各种颜色。Visual Basic中的RGB函数是和以上的原理相同。函数的形式如下：RGB(r,g,b)。其中r,g,b分别表示红、绿、蓝，它们的取值范围为0～255。在编程时通过调节r,g,b的值就能得到各种颜色。
当运行程序后屏幕上出现如图画面。调节三个水平滚动条就返回r,g,b的值和相应的颜色。可以通过调整滚动条的“SmallChange”属性的数值来设定单击滚动条两端箭头时之滚动量。
Rem RGB调色板程序
Private Sub HScroll1_Change()
Picture1_Click
Label1_Click
在具体编程的时候，如想取得某种颜色，r,g,b应各取什么值呢？为了解决这个问题，我们可以通过以下VB程序生成一个“RGB调色板”工具，便于编程取颜色。
以下程序采用了三个水平滚动条控件，分别用于调节r,g,b的值，它们的Max属性设为255；三个标签控件分别用于返回r,g,b的值；一个图片框用于返回相应的颜色。具体的程序如下：
End Sub
Private Sub Picture1_Click()
r = HScroll1.Value
g = HScroll2.Value
b = HScroll3.Value
Picture1.BackColor = RGB(r, g, b)
End Sub
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
Privacture1_Click
Label2_Click
End Sub
Private Sub HScroll3_Change()
Picture1_Click
Label3_Click
End Sub
Private Sub Label1_Click()