用VB编写调色板
第一步：新建一个工程，设置用户界面及各控件属性如下：
三个滚动条设置：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
单击F5运行程序，先调出你所需要的颜色，然后查看一下各单色（红，兰，绿）值即可。如上图，我调出的颜色值是rgb(142,105,195).怎么样，这个小程序虽然简单，却很实用。用它来教幼儿园的小朋友认识各种不同的颜色也很不错的哟。奚越xxiyyue@sina.com->
