VB神童教程第二章第十二节——综合示例五

如图1所示，有一个应用程序拖动红色、绿色和蓝色的滚动框来确定文本框的背景颜色，还有一个垂直滚动条可以用来控制文本框的大小。

一、图像着色问题:

自然界中千变万化的颜色，在电脑上可以组合出红绿蓝三原色，这正是图像处理软件中RGB模式的原理。比如黑色是由红绿蓝三种颜色组成，都是0，白色是三原色255的组合，等等。

在RGB模式下，每种颜色最多有255种变化，也就是说，只要R、G、B在各自255的范围内，这种颜色就是有效的。

在VB中，RGB也被用作颜色描述。如果文本框的背景色为白色，则表示为:text1.backcolor = RGB (255，255，255)。

二、VB中对象的初始值存储:

在VB中，经常会移动对象的位置，或者动态改变对象的大小。一般来说，程序被调入后会存储原始数据，以便在位移或大小变化后恢复原始数据，这个功能是通过初始值存储来完成的。

方法是原始数据，如坐标值、原始长度、宽度和高度等。，被赋给一个变量，最后通过调用该变量可以恢复默认状态。

三。编程:

1.创建如图1所示的程序接口。

文本框的属性:

名称:txt内容文本:无

代表颜色的三个标签:

红色标签，名称:LBL红色说明:红色

绿色标签，名称:LBL绿色说明:绿色

蓝色标签，名称:LBL蓝说明:蓝色

代表颜色的三个水平滚动条:

最小值:0最大值:255小变化:1大变化:5

显示“尺寸”字样的标签:

名称:LBL尺寸说明:尺寸

控制文本框大小的垂直滚动条:

名称:VsbSize最小值:0最大值:100小变化:1大变化:5

用于显示不同尺寸的标签:

名称:LblShow标题:无

2.双击红色滚动条，在弹出的程序代码窗口中输入:

私有Sub HsbRed_Change()

TxtContent。BackColor = RGB(HsbRed。值，HsbGreen。值，hsb值。值)

末端接头

此外，为HsbRed的滚动事件输入上面的代码:

私有Sub HsbRed_Scroll()

TxtContent。BackColor = RGB(HsbRed。值，HsbGreen。值，hsb值。值)

末端接头