欢迎光临
我们一直在努力

用vb编写调色板_visualbasic教程

建站超值云服务器,限时71元/月

在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

-width=”100″>->

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

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 用vb编写调色板_visualbasic教程
分享到: 更多 (0)