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 Sub Private Sub HScroll2_Change a HScroll2.Value Label2.Caption a Shape1.FillStyle 0 Shape1.FillColor QBColor a End Sub