VB中的颜色函数.doc

VB中的颜色函数Visual Basic提供了两个选择颜色函数QBColor和RGB，其中QBColor函数能够选择16种颜色，RGB函数能够选择更多的颜色。1、RGB函数（其中R代表红色、G代表绿色、B代表蓝色）一般格式： RGB（数值表达式1,数值表达式2,数值表达式3)其中，数值表达式1的值是0，255之间的整数，表示颜色中红色的部分；数值表达式2的值是0，255之间的整数，表示颜色中绿色的部分；数值表达式3的值是0，255之间的整数，表示颜色中蓝色的部分。功能：由红、绿、蓝这三种颜色的不同比例值调和生成其他的颜色。下表列出了一些常见的RGB函数颜色效果。RGB函数常数返回值颜色RGB（0，0，0）VbBlack&H0黑色RGB（255，0，0）VbRed&HFF0红色RGB（0，255，0）VbGreen&HFF00绿色RGB（0，0，255）VbBlue&HFF0000蓝色RGB（0，255，255）VbCyan&HFFFF00青色RGB（255，0，255）VbMagenta&HFF00FF紫红色RGB（255，255，0）VbYellow&HFFFF黄色RGB（255，255，255）VbWhite&HFFFFFF白色2、QBColor函数颜色也可以用QBColor函数来表示。VB中用QBColor（i）代表一种颜色，如下表：i值颜色i值颜色0黑色8灰色1蓝色9亮蓝色2绿色10亮绿色3青色11亮青色4红色12亮红色5粉红色13亮粉红色6黄色14亮黄色7白色15亮白色QBColor 函数 返回一个 Long，用来表示所对应颜色值的 RGB 颜色码。 语法 QBColor(color) 必要的 color 参数是一个界于 0 到 15 的整型。 设置值 color 参数有以下这些设置： 值 颜色 值 颜色 0 黑色 8 灰色 1 兰色 9 亮兰色 2 绿色 10 亮绿色 3 青色 11 亮青色 4 红色 12 亮红色 5 洋红色 13 亮洋红色 6 黄色 14 亮黄色 7 白色 15 亮白色 说明 color 参数代表使用于早期版本的 Basic（诸如 Microsoft Visual Basic for MS-DOS 以及 Basic Compiler）的颜色值。始于最低有效字节，返回值指定了红、绿、蓝三原色的值，用于设置成 VBA中RGB 系统的对应颜色。 如：QBColor（2）代表绿色；QBColor（6）代表黄色。表示颜色的方法对应的也有几种，如，表示一个背景颜色为黑色： Form1.BackColor = RGB(0,0.0)或: Form1.BackColor = VbBlack也可以为: Form1.BackColor = QBColor(0) 例：显示颜色。界面：添加一个Shape控件、3个TextBox控件、2个标签、两个水平滚动条。代码：Private Sub HScroll1_Change() a = HScroll1.Value Label4.Caption = a Text1.BackColor = QBColor(a)End SubPrivate Sub HScroll2_Change() a = HScroll2.Value Label