VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - RGB调色板
发表评论(0)作者:赵挺, 平台:VB6.0+Win98, 阅读:12791, 日期:2000-11-03
RGB调色板
2000-10-18 15:41:46  

--------------------------------------------------------------------------------




红、绿、蓝为光中的三原色,通过对这三种原色的不同比例搭配产生各种颜色。Visual Basic中的RGB函数是和以上的原理相同。函数的形式如下:RGB(r,g,b)。其中r,g,b分别表示红、绿、蓝,它们的取值范围为0~255。在编程时通过调节r,g,b的值就能得到各种颜色。
但在具体编程时,取得某种颜色,r,g,b各取什么值,凭空是难以确定的。于是笔者用VB编了一个“RGB调色板”程序,较好地解决了这个问题。此程序可作为编程时,取颜色的小工具。
本程序采用了三个水平滚动条控件,分别用于调节r,g,b的值,它们的Max属性设为255;三个标签控件分别用于返回r,g,b的值;一个图片框用于返回相应的颜色。具体的程序如下:
当运行程序后屏幕上出现如图画面。调节三个水平滚动条就返回r,g,b的值和相应的颜色。
Rem RGB调色板程序
Private 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
(江苏苏州塑料一厂人事部
赵挺 215002)