VB中的颜色设置.docx

1、VB中的颜色设置VB中的颜色设置界面上的彩色图形能够产生更强的视觉效果，因而越来越受到用户的重视。在Visual Basic中，窗体、控件、图形以及文字信息都可以用不同的颜色显示。对于所有的颜色属性和图形方法，每种颜色都由一个Long整数表示。基于具有能处理256色或256色以上的视频适配器和显示驱动程序的系统，Visual Basic可支持256种颜色。对于多媒体应用程序，或对于那些需要显示接近相片质量图像的应用程序来说，具有同时显示256色的功能是特别有价值的。Visual Basic中的许多控件，有决定控件显示颜色的属性。请记住，这些属性中有些也适用于不是图形的控件。BackColor：

2、对用于绘画的窗体或控件设置背景颜色。如果在绘图方法进行绘图之后改变BackColor属性，则已有的图形将会被新的背景颜色所覆盖。ForeColor：设置绘图方法在窗体或控件中创建文本或图形的颜色。改变ForeColor属性不影响已创建的文本或图形。BorderColor：给形状控件边框设置颜色。FillColor：为用Circle方法创建的圆和用Line方法创建的方框，设置填充颜色。一、调色板在VB应用程序的界面设计阶段，使用调色板能够可视化地设置当前对象的颜色。打开调色板的方法有两种：（1） 从属性窗口找到要设置的颜色属性，单击右端的向下箭头，就弹出一个如图11-14 所示的调色板，可以可视

3、化地设定颜色。 图11-15 VB的调色板（2）另一种方法是从VB集成环境的“视图”菜单中选取“调色板”（图11-15）。这个调色板具有更强的颜色设置功能。它既可以设置对象的前景色、背景色，也可以进行细致的颜色调整。图11-16 颜色定义框单击调色板左上方的设置选择框可以选定设置前景色或背景色。这个选择框的下方右一个标有“Aa”的小方框是效果显示框。如果觉得调色板现有的缺省颜色不够满意，可以双击第4排中的任一个小空格（或单击，然后再击“定义颜色”按钮），将弹出一个颜色定义框（图11-16）。可以用鼠标拖动色板上带有4个黑色小方块的颜色游标和右边量度条上的三角形游标，观察效果显示框的颜色变化。直

4、到取得满意的颜色，单击“添加颜色按钮”，定义的颜色就出现在调色板的空格中。这种颜色就成为可用颜色了。当然，直接从颜色定义框的“色调”、“饱和度”、“亮度”等文本框中直接输入数据也可以定义颜色。二、颜色参数用调色板可以在设计阶段设置窗体或控件的颜色。如果想在程序运行期间设置对象的颜色，就必须使用颜色参数。在运行时指定颜色参数值的方式有四种：（1）使用 RGB 函数（2）使用 QBColor 函数。（3）使用在VB的颜色常数。（4）直接输入颜色值。 1RGB 函数RGB是Red（红）Green（绿）Blue（蓝）的缩写，RGB函数通过三原色的值设置一种混合颜色。RGB函数格式如下：RGB( , )

5、 这里的、均为整数，取值范围为0255，代表混合颜色中每一种原色的分量（亮度）。0表示亮度最低，255表示亮度最高。如果颜色参数值超过255，会被当作255 。RGB函数由三个参数经数学组合而产生的一个Long 整数值，表示一个特定的颜色值，其范围在016777215。也就是说，从理论上RGB函数最多可以表示16777216 种颜色，但实际上会受到系统硬件的限制。标准CGA显示器只能同时显示16种颜色，EGA显示器支持64 色、VGA显示器可显示256色。和实际画图时一样，用红、绿、蓝三原色可以“配出”各种颜色。例如，红、绿混合可以得到黄色，最亮的黄色用RGB函数表示为“RGB(255,255

6、,0)”，0表示没有蓝色。再如，白色被表示为“RGB(255,255,255)”，而“RGB(128,128,128)”表示中灰色等等。表11-8列示了部分常见的标准颜色，以及这些颜色的红、绿、蓝三原色的成份。表11-8 常见标准颜色的 RGB 值 颜色 红色值 绿色值 蓝色值 黑色 0 0 0 蓝色 0 0 225 绿色 0 255 0 青色 0 255 255 红色 255 0 0 洋红色 255 0 255 黄色 255 255 0 白色 255 255 255 例如：Form1.BackColor = RGB(0, 128, 0) 设定背景为绿色Form2.BackColor = RG

7、B(255, 255, 0) 设定背景为黄色PSet (100, 100), RGB(0, 0, 64) 设指定点为深蓝色用 Point 方法,可以返回在窗体或图片框上所指定点的 RGB 颜色值。格式： . Point ( x, y ) 例11.11 本例使用Point方法来确定一个窗体上的一个指定点的颜色。Private Sub Form_Click () Dim LeftColor, MidColor, Msg, RightColor 声明变量 AutoRedraw = -1 打开AutoRedraw Height = 3 * 1440 将高度设置为 3 英寸 Width = 5 * 14

8、40 将宽度设置为 5 英寸 BackColor = QBColor(1) 将背景设置为蓝色。 ForeColor = QBColor(4) 将前景设置为红色 Line (0, 0)-(Width / 3, Height), , BF 红框 ForeColor = QBColor(15) 将前景设置为白色 Line (Width / 3, 0)-(Width / 3) * 2, Height), , BF LeftColor = Point(0, 0) 查找左框颜色 MidColor = Point(Width / 2, Height / 2) 查找中框颜色 RightColor = Poin

9、t(Width, Height) 查找右框颜色 Msg = The color number for the red box on the left side of Msg = Msg & the form is & LeftColor & . The Msg = Msg & color of the white box in the center is Msg = Msg & MidColor & . The color of the blue Msg = Msg & box on the right is & RightColor & . MsgBox Msg 显示信息End Sub 2Q

10、BColor 函数Visual Basic保留了Quick BSAIC的QBColor函数。该函数用一个整数值对应RGB的常用颜色值。QBColor函数的格式如下：QBColor 其中“颜色值”的取值范围是015，共可表示16种颜色，见表11-9。表11-9 QBColor 函数取值 QB颜色值 颜色 对应 RGB 颜色值 0 黑色 RGB(0,0,0) 1 蓝色 RGB(0,0,191) 2 绿色 RGB(0,191,0) 3 青色 RGB(0,191,191) 4 红色 RGB(191,0,0) 5 洋红色 RGB(191,0,191) 6 黄色 RGB(191,191,0) 7 白色 R

11、GB(191,191,191) 8 灰色 RGB(64,64,64) 9 亮蓝色 RGB(0,0,255) 10 亮绿色 RGB(0,255,0) 11 亮青色 RGB(0,255,255) 12 亮红色 RGB(255,0,0) 13 亮洋红色 RGB(255,0,255) 14 亮黄色 RGB(255,255,0) 15 亮白色 RGB(255,255,255) 例11.12 本例使用QBColor函数将MyForm窗体的BackColor属性，改成ColorCode参数指定的色彩。Sub ChangeBackColor (ColorCode As Integer, MyForm As F

12、orm) MyForm.BackColor = QBColor(ColorCode)End Sub 3颜色常数Visual Basic定义了一些颜色符号常数，包括8种常用颜色和Windows控制面板使用的系统颜色。使用系统常量，可以使应用程序的风格与Windows控制面板类似，因而更具专业化。这些常量的用法与前面介绍的相同。这些常用颜色和系统颜色的对应值由表 11-10 和表 11-11 列出。表11-10 系统颜色常量 符号常数 值 描述 VbScrollBars &H80000000 滚动条颜色 VbDesktop &H80000001 桌面颜色 VbActiveTitleBar &H80

13、000002 活动窗口标题栏颜色 VbInactiveTitleBar &H80000003 非活动窗口标题栏颜色 VbMenuBar &H80000004 菜单背景颜色 VbWindowBackground &H80000005 窗口背景颜色 VbWindowFrame &H80000006 窗口框架颜色 VbMenuText &H80000007 菜单上文字的颜色 VbWindowText &H80000008 窗口内文字的颜色 VbTitleBarText &H80000009 标题，尺寸框和滚动箭头内文字的颜色 VbActiveBorder &H8000000A 活动窗口边框的颜色 V

14、bInactiveBorder &H8000000B 非活动窗口边框的颜色 VbApplicationWorkspace &H8000000C 多文档界面(MDI)应用程序的背景颜色 VbHighlight &H8000000D 控件内选中项的背景颜色 VbHighlightText &H8000000E 控件内选中项的文字颜色 VbButtonFace &H8000000F 绘在命令按钮正面的颜色 VbButtonShadow &H80000010 绘在命令按钮边缘的颜色 VbGrayText &H80000011 变灰的（无效的）文字 VbButtonText &H80000012 揿压按

15、钮上文字的颜色 VbInactiveCaptionText &H80000013 非活动标题内文字的颜色 vb3DHighlight &H80000014 三维显示元素的高亮颜色 vb3DDKShadow &H80000015 三维显示元素的最暗阴影颜色 vb3DLight &H80000016 低于 vb3Dhighlight 的 三维次高亮颜色 vb3DFace &H8000000F 文字表面的颜色 vb3DShadow &H80000010 文字阴影的颜色 VbInfoText &H80000017 提示窗内文字的颜色 VbInfoBackground &H80000018 提示窗内背景

16、的颜色 表 11-11 常用颜色常量 文字常数 值 颜色 vbBlack &H0 黑色 vbRed &HFF 红色 vbGreen &HFF00 绿色 vbYellow &HFFFF 黄色 vbBlue &HFF0000 兰色 vbMagenta &HFF00FF 洋红 vbCyan &HFFFF00 青色 vbWhite &HFFFFFF 白色 4直接使用颜色设置值使用RGB函数QBColor函数和系统内部颜色常数来指定颜色都不是直接的，因为Visual Basic只是将它们解释为与它所代表的颜色比较接近的一种颜色。如果程序员清楚地知道 VB是如何用数值来指定颜色，就可以给颜色参数和属性指定

17、一个准确值直接指定颜色。通常用十六进制数表示颜色值。正常的RGB颜色的有效范围是从0到16777215 ( &HFFFFFF& )。每种颜色的设置值（属性或参数）都是一个四字节的整数。对于这个范围内的数，其高字节都是0，而低三个字节，从最低字节到第三个字节，分别定义了红、绿、蓝三种颜色的值。红、绿、蓝三种成分都是用0到255(&HFF) 之间的数表示。因此，可以用十六进制数按照下述语法来指定颜色：&HBBGGRR&其中： BB 指定蓝颜色的值；GG 指定绿颜色的值；RR 指定红颜色的值。每个数段都是两位十六进制数，即从 00 到 FF。中间值是 80。因此，下面的数值是这三种颜色的中间值，指定

18、了灰颜色：&H808080&在Windows工作环境中，每一种颜色具有特定的意义。这些颜色称为系统颜色，对应的颜色数值范围从&H80000000到&H80000015。每一种系统颜色，既有所定义的常数也有直接的颜色设置值。对系统颜色来说，其直接颜色设置值的高位字节与普通RGB颜色的高位字节是不同的。对于RGB颜色来说，其高位字节为0，而对于系统颜色来说，其高位字节为80，剩下的数字则指示某一特定的系统颜色（见表11-10）。例如：&H80000002& 这个十六进制数，表示为一个活动窗口的标题颜色。设计时，通过属性窗口选择颜色属性时，选择“系统”选项卡，就能够选择系统设置值，VB将其自动转换成

19、十六进制值。也可在“对象浏览器”中寻找系统颜色的定义常数。以上介绍了颜色参数的4种使用方式，程序员可以根据自己的需要选定。例1113 该例用不同的方式使用颜色参数，画出4个矩形。运行结果如图11-17 所示。Option ExplicitPrivate Sub Form_Click() Dim offsetx As Integer, offsety As Integer offsetx = 150 offsety = 150 Line (100, 100)-Step(offsetx, offsety), QBColor(1), BF Line -Step(offsetx * 2, offsety * 2), RGB(0, 255, 0), BF Line -Step(offsetx * 3, offsety * 3), vbRed, BF Line -Step(offsetx * 4, offsety * 4), &HFFFF&, BFEnd Sub 图11-17 用不同形式颜色参数画图