用VB编写调色板

　2006-02-27 21:15:30　来源：WEB开发网　　　

核心提示：在VB程序中经常会用到背景色彩(backcolor)和前景色彩(forecolor)来设置颜色，除了调出调色板直接选用相应的颜色外，用VB编写调色板，在代码中我们也经常根据程序需要而改变其色彩的设置，学过VB的人都知道有两个函数来表示颜色，这个小程序虽然简单，却很实用，一个是QBCOLOR（），一个是RGB（R

在VB程序中经常会用到背景色彩(backcolor)和前景色彩(forecolor)来设置颜色，除了调出调色板直接选用相应的颜色外，在代码中我们也经常根据程序需要而改变其色彩的设置。学过VB的人都知道有两个函数来表示颜色，一个是QBCOLOR（），一个是RGB（R，G，B）。前者只能生成16种色彩，而后者可用来设置更加丰富多彩的颜色，但参数设置却很难掌握。怎么样才能正确设置出你所想要的色彩呢？下面我们就一起来编写一个小程序。

第一步：新建一个工程，设置用户界面及各控件属性如下：
-width="100">->

三个滚动条设置：min:0；max:255；smallchange:5；largechange:20

text1---text3用来显示你所选择单原色，并在相应的label中显示出数值。

Text4用来显示混合以后的颜色。

第二步：编写程序代码如下：

PRivateSubVScroll1_Change()

Label1.Caption="红色：" Str(VScroll1.Value)

Text1.BackColor=RGB(VScroll1.Value,0,0)

Text4.BackColor=RGB(VScroll1.Value,VScroll2.Value,VScroll3.Value)

EndSub

PrivateSubVScroll2_Change()

Label2.Caption="绿色：" Str(VScroll2.Value)

Text2.BackColor=RGB(0,VScroll2.Value,0)

Text4.BackColor=RGB(VScroll1.Value,VScroll2.Value,VScroll3.Value)

EndSub

PrivateSubVScroll3_Change()

Label3.Caption="兰色：" Str(VScroll3.Value)

Text3.BackColor=RGB(0,0,VScroll3.Value)

Text4.BackColor=RGB(VScroll1.Value,VScroll2.Value,VScroll3.Value)

EndSub