用VB编写调色板

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



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





文章来自vb爱好者：http://vb.zzzyk.com
[page_break]

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



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



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



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



Private Sub VScroll1_Change() 



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



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



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



End Sub 



Private Sub VScroll2_Change() 



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



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



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



End Sub



Private Sub VScroll3_Change() 



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



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



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



End Sub

单击F5运行程序，先调出你所需要的颜色，然后查看一下各单色（红，兰，绿）值即可。如上图，我调出的颜色值是rgb(142,105,195).怎么样，这个小程序虽然简单，却很实用。用它来教幼儿园的小朋友认识各种不同的颜色也很不错的哟。 奚越 xxiyyue@sina.com



文章来自vb爱好者：http://vb.zzzyk.com

上一个：VB开发技巧三则
下一个：教小朋友认识"红绿灯"