vb颜色对照表复习课程
VB中的颜色
VB中颜色的表示RGB函数QBColor函数十六进制颜色值VB颜色常量VB系统颜色常数基础知识：十六进制数➢RGB函数RGB是Red，Green，Blue的缩写，RGB函数通过三原色的值混合产生一种颜色。
函数格式： RGB(红色值，绿色值，蓝色值)说明：红、绿、蓝色值均为 0~255 间的整数。
下表是一些常见颜色的RGB值。
其它颜色的RGB值请运行程序颜色.EXE 。
➢QBColor函数QBColor 函数是从 Quick Basic 中“继承”下来的，用一个整数值对应RGB的常用颜色值。
函数格式： QBColor（颜色值）说明：颜色值为 0~15 。
➢十六进制颜色值这是VB中表达颜色最直接的方法。
格式： &HBBGGRR&说明：BB、GG、RR分别为两位十六进制数，表示蓝、绿、红色的亮度，其值为 00 ~ FF,中间值为80。
例如：&HFF0000&为亮蓝色，&H00FFFF&（也可写为&HFFFF&）为黄色。
➢VB颜色常量➢VB系统颜色常数VB定义了一些颜色符号常数，包括8种常用颜色和Windows控制面板使用的系统颜色。
使用系统常量，可以使应用程序风格更具专业化。
例如：常数vbDesktop对应颜色值&H80000001，代表桌面颜色。
当我们直接在属性窗口中设置BackColor之类属性值时，就可以看到这些系统颜色值。
使用 MSDN 帮助系统中的“索引”，输入关键字“颜色常数”查看，可查看VB系统颜色的说明。
➢补充：关于十六进制数我们知道，计算机内部存储、处理的数据全部是二进制数，但在计算机语言中还有一种常用的数值——十六进值，它的特点是使用十六个数码：0~9，A~F，计算时采用“逢十六进一”的规则。
十六进制与十进制及二进制的对应关系如下。
按照换算关系，(A3B)16 = 10×162+3×161+11×160 = 2560+48+11 = (2619)10(FF) 16 = 15×161+15×160 = 240+15 = (255)10（学习的目的是增长知识，提高能力，相信一分耕耘一分收获，努力就一定可以获得应有的回报）。
vba 颜色值范围
vba 颜色值范围摘要：1.VBA颜色值基本概念2.VBA颜色值范围3.VBA颜色值的运用4.实例演示正文：在VBA（Visual Basic for Applications）编程中，颜色值是一种重要的参数，用于设置文本、图形、界面等元素的样式。
了解VBA颜色值的范围和应用方法，有助于我们更好地美化程序界面和提高用户体验。
一、VBA颜色值基本概念VBA颜色值由三个部分组成：红色分量（R）、绿色分量（G）和蓝色分量（B）。
每个分量的取值范围是0到255，因此，一个VBA颜色值可以表示为：(R, G, B)。
二、VBA颜色值范围在VBA中，颜色值的范围为0到16777215。
这是因为每个颜色分量都有256（0-255）种可能的取值，三个分量组合在一起，就可以形成约4294967296种不同的颜色。
但在实际应用中，并非所有颜色都会被使用到。
一般来说，VBA颜色值的范围可以分为以下几个部分：1.0-16777215：这是所有的VBA颜色值，包括系统预定义的颜色和自定义颜色。
2.16777216-335544319：这是保留给系统使用的颜色值，程序员不应在此范围内定义新的颜色。
3.335544320-4294967295：这是可供程序员自定义的颜色值范围，但请注意，并非所有颜色在此范围内都能被正确显示。
三、VBA颜色值的运用在VBA编程中，颜色值主要应用于以下场景：1.设置文本颜色：可以使用RGB函数或直接使用颜色值设置文本颜色。
2.设置图形颜色：在绘制图形时，可以使用颜色值设置填充颜色或边框颜色。
3.设置界面元素颜色：在设计用户界面时，可以使用颜色值调整按钮、文本框等元素的样式。
四、实例演示以下是一个设置文本颜色的示例：```vbaSub SetTextColor()Dim rgbColor As VariantrgbColor = RGB(255, 0, 0) " 设置红色文本颜色ActiveDocument.Content.Font.Color = rgbColor " 将文档中的文本颜色设置为红色End Sub```通过以上实例，我们可以看到如何使用VBA颜色值设置文本颜色。
程式语言II讲解
第9章 繪圖與音樂
本章大綱
VB色彩 座標系統 繪圖系統 繪圖方法 繪圖有關屬性 圖形檔案存取 VB音樂
9-1 VB色彩
VB色彩除了直接在屬性視窗中指定顏色外， 也可以經由程式設定。 顏色設定方法有四種:
1.色彩常數 2.QBColor 3.RGB 4.16進制數值
前景設定為藍色
Text1.Backcolor =RGB(255,0,0)
背景設定為紅色
顏色
黑色 深藍 深綠 深靛 深紅 深紫紅 深黃 淡灰 深灰
數 值
&H0 &H800000 &H8000& &H808000 &H80 &H800080
9-1-4 16進位數值法
語法 :
物件.顏色屬性=&HBBGGRR
說
明
0 1 2 3 4 5 6 7
使用者自定 Twips VB系統預設 Point 點 Pixels 像素 Character 字元 Inches 英吋 Milimeter 公厘 Centimeter 公分
9-2-2 座標系統
VB所使用的座標為直角座標，但其座標點 及正負方向，可由程式設計者設定。 其方法為使用Scale來改變座標系統。 語法: 物件收納器.Scale(x1,y1 – x2,y2)
4 破折線.點線.點線 5 透明 6 內實線
FillColor 圓或矩形內填充的顏色
圓內填充紅色
FillStyle 填充線條的型式
0 1 2 3 4 5 6 7 實心 透明 水平線 垂直線 左上到右下的斜線 右上到左下的斜線 垂直交叉線 對角交叉線
第10章 VB图形操作
必要参数，数值范围从0到255，表示颜色的蓝色成分
10.1 坐标和颜色
表10-1-3 一些常见的标准颜色值
颜色 黑色 蓝色 红色值 0 0 绿色值 0 0 蓝色值 0 255
绿色
青色 红色 洋红色 黄色 白色
0
0 255 255 255 255
255
255 0 0 255 255
0
255 0 255 0 255
【例10-5】代码
10.2 图形控件
图10-2-1 例10-5运行界面
10.2 图形控件
10.2.2 图像框（Image）控件
Image控件的用途与PictureBox控件相似。但 它只能用于显示图形，不能作为其他控件的容 器，也不支持PicureBox控件的高级方法。
10.2 图形控件
10.1 坐标和颜色
以下规则用于 Visual Basic坐标系统：
当移动控件或调整控件的大小时，使用控件容器的坐标 系统。如果直接在窗体上绘制对象时，窗体就是容器。 如果在框架或图片框里绘制控件时，框架或控件是容器 。 所有的图形和 Print 方法，使用容器的坐标系统。 一些用来调整窗体大小或移动窗体的语句，用来表示窗 体的位置和大小。 当创建用来调整窗体大小或移动窗体的代码时，应先检 查 Screen 对象的 Height 属性和 Width 属性，以确保窗 体在屏幕上大小合适。 任何容器的缺省坐标系统，都是由容器的左上角（0，0 ）坐标开始。
VB中的颜色函数
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）RGB（255，0，0）RGB（0，255，0）RGB（0，0，255）RGB（0，255，255）RGB（255，0，255）RGB（255，255，0）RGB （255，255，255）2、QBColor函数颜色也可以用QBColor函数来表示。
VB中用QBColor（i）代表一种颜色，如下表：i值颜色黑色蓝色绿色青色红色粉红色黄色白色i值131415颜色灰色亮蓝色亮绿色亮青色亮红色亮粉红色亮黄色亮白色常数VbBlackVbRedVbGreenVbBlueVbCyanVbMagentaVbYellowVbWhite返回值&H0&HFF0&HFF00&HFF00&HFF00&HFF00FF&HFF&HFFF颜色黑色红色绿色蓝色青色紫红色黄色白色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（诸如MicrosoftVisualBasicforMS-DOS以及BasicCompiler）的颜色值。
VB颜色设置 优质课件
白色：RGB(255，255，255) 黑色：RGB(0，0，0) 红色： RGB(255，0，0) 蓝色： RGB(0，0，255)
QBColor颜色系统(函数)
语法：QBColor(color) 可选择红、蓝、绿等16种简单颜色中的一种。 color 参数：颜色码，是一个界于 0 到 15 的整数。 color 参数有以下这些设置（见下页）：
8 灰色 9 亮兰色 10 亮绿色 11 亮青色 12 亮红色 13 亮洋红色 14 亮黄色 15 亮白色Fra bibliotek长整型数表示颜色
可以用十六进制数按照下述语法来指定颜色：
&HBBGGRR& BB 指定蓝颜色的值，GG 指定绿颜色的值，RR 指
定红颜色的值。每个数段都是两位十六进制数，即 从 00 到 FF。
例如：
Line (500,700)-(1200,2000), RGB(0,255,0),BF Line (1500,1700)-(1200,2000),vbRed,BF Line (2500,3700)-(1200,2000),&HFFFF&,BF
Visual Basic6.0
颜色设置
6、设置绘图颜色
在运行时指定颜色参数值的方式有4种：
使用RGB函数 使用QBColor函数 使用VB的颜色常数 直接输入颜色值(长整型数)
RGB颜色系统(函数)
计算机可以使用三原色RGB(即红色(Red)、绿色(Green)、蓝色 (Blue))来表示颜色，RGB各项的数值为0~255，用十六进制表 示就是00~FF。
QBColor函数
vba 颜色值范围 -回复
vba 颜色值范围-回复VBA颜色值范围在VBA编程中，我们经常需要操作电子表格或图形界面的颜色。
了解VBA 颜色值范围是很重要的，因为它将帮助我们直观地选择适当的颜色以满足我们编程的需求。
在本篇文章中，我们将一步一步地探索VBA中的颜色值范围，详细介绍如何使用这些颜色值。
第一步：了解RGB颜色模型VBA中的颜色值使用RGB（红绿蓝）模型进行表示。
RGB模型基于将红色、绿色和蓝色三种颜色的不同组合来创建新的颜色。
每种颜色的取值范围是0到255，其中0表示最小值（无颜色），255表示最大值（全颜色）。
想象一下，我们想要创建一个深紫色。
可以使用RGB模型来选择适当的红色、绿色和蓝色值。
例如，我们可以使用RGB(128, 0, 128)，其中128表示中间值。
红色和蓝色的中间值混合在一起，我们将得到一个深紫色。
第二步：使用RGB函数在VBA中，我们可以使用RGB函数来创建颜色。
RGB函数采用三个参数，分别代表红色、绿色和蓝色的值。
以下是RGB函数的语法：RGB(Red, Green, Blue)例如，我们想要将单元格A1的背景颜色设置为深紫色。
我们可以使用以下代码：Range("A1").Interior.Color = RGB(128, 0, 128)这将使得A1单元格的背景颜色变为深紫色。
第三步：使用预定义的颜色常量除了手动选择RGB值之外，VBA还提供了一些预定义的颜色常量，这些常量代表了一些常见的颜色。
这样，我们就不必记住每个颜色的RGB值，而是直接使用常量即可。
以下是一些常用的颜色常量：vbBlack（黑色）vbWhite（白色）vbRed（红色）vbGreen（绿色）vbBlue（蓝色）vbYellow（黄色）...等等。
要使用这些颜色常量，我们可以将它们与RGB函数结合使用。
例如，要将A1单元格的背景颜色设置为绿色，我们可以使用以下代码：Range("A1").Interior.Color = vbGreen第四步：使用颜色索引在VBA中，颜色也可以使用0到56之间的索引值来表示。
VBA基础九：画表格线及表外线的颜色定义
VBA基础九：画表格线及表外线的颜⾊定义原表⽬标统计汇总表VBA代码Private Sub CommandButton1_Click()Dim arr, i&, n&, d As Object, s$, a()arr = Sheet1.Range("A1").CurrentRegionSet d = CreateObject("Scripting.Dictionary")For i = 3 To UBound(arr)s = arr(i, 7) & "|" & arr(i, 2) & "|" & arr(i, 3) & "|" & arr(i, 4) & "|" & arr(i, 5)If Not d.Exists(s) Thenn = n + 1: ReDim Preserve a(1 To 12, 1 To n)d(s) = arr(i, 6)a(1, n) = arr(i, 2) '名称a(2, n) = arr(i, 7) '材质a(3, n) = arr(i, 3) '长a(4, n) = arr(i, 4) '宽a(5, n) = arr(i, 5) '厚Elsed.Item(s) = d.Item(s) + arr(i, 6)End IfNextSheet3.Range("A5:L10000").ClearContentsSheet3.Range("A5:L10000").Borders.LineStyle = xlNoneIf n = 0 Then Exit SubSheet3.Range("A5").Resize(d.Count, UBound(a)) = WorksheetFunction.Transpose(a)Sheet3.Range("G5").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.items)Sheet3.Range("A5").Resize(d.Count, 12).Borders.LineStyle = xlContinuousEnd Sub运⾏后的效果指定起点和⽌点，画线，上⾊Sub DrawLine(StartX As Variant, StartY As Variant, EndX As Variant, EndY As Variant) ActiveSheet.Shapes.AddLine(StartX, StartY, EndX, EndY).SelectSelection.ShapeRange.Line.Weight = 2Selection.ShapeRange.Line.ForeColor.SchemeColor = 10Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)End SubSub lqxs()Dim ks, js, shp As Shape, a, b, a1, a2, b1, b2, x1, y1, x2For Each shp In Sheet1.ShapesIf shp.Type = 9 Then shp.DeleteNextks = Range("a1").Value: js = Range("b1").Valuea = ks * 24:b = js * 24a1 = Int(a): a2 = a - a1b1 = Int(b): b2 = b - b1x1 = Cells(4, a1 - 5).Left + Cells(4, a1 - 5).Width * a2: y1 = Cells(4, a1 - 5).Top + Cells(4, a1 - 5).Height * 0.5 x2 = Cells(4, b1 - 5).Left + Cells(4, b1 - 5).Width * b2DrawLine x1, y1, x2, y1Range("a1").SelectEnd Sub前景⾊：表外⾯的线条及颜⾊：红⾊：.Color = -16776961。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
v b颜色对照表
颜色
常数值描述
vbBlack &H0 黑色
vbRed &HFF 红色
vbGreen &HFF00 绿色
vbYellow &HFFFF 黄色
vbBlue &HFF0000 兰色
vbMagenta &HFF00FF 洋红
vbCyan &HFFFF00 青色
vbWhite &HFFFFFF 白色
系统颜色
常数值描述
vbScrollBars &H80000000 滚动条颜色
vbDesktop &H80000001 桌面颜色
vbActiveTitleBar &H80000002 活动窗口标题栏颜色
vbInactiveTitleBar &H80000003 非活动窗口标题栏颜色
vbMenuBar &H80000004 菜单背景颜色
vbWindowBackground &H80000005 窗口背景颜色
vbWindowFrame &H80000006 窗口框架颜色
vbMenuText &H80000007 菜单上文字的颜色
vbWindowText &H80000008 窗口内文字的颜色
vbTitleBarText &H80000009 标题，尺寸框和滚动箭头内文字的颜色vbActiveBorder &H8000000A 活动窗口边框的颜色
vbInactiveBorder &H8000000B 非活动窗口边框的颜色vbApplicationWorkspace &H8000000C 多文档界面 (MDI) 应用程序的背景颜色vbHighlight &H8000000D 控件内选中项的背景颜色
vbHighlightText &H8000000E 控件内选中项的文字颜色
vbButtonFace &H8000000F 绘在命令按钮正面的颜色
vbButtonShadow &H80000010 绘在命令按钮边缘的颜色
vbGrayText &H80000011 变灰的（无效的）文字
vbButtonText &H80000012 揿压按钮上文字的颜色vbInactiveCaptionText &H80000013 非活动标题内文字的颜色
vb3DHighlight &H80000014 三维显示元素的高亮颜色
vb3DDKShadow &H80000015 三维显示元素的最暗阴影颜色
vb3DLight &H80000016 低于 vb3Dhighlight 的三维次高亮颜色
vb3DFace &H8000000F 文字表面的颜色
vb3DShadow &H80000010 文字阴影的颜色
vbInfoText &H80000017 提示窗内文字的颜色
vbInfoBackground &H80000018 提示窗内背景的颜色
颜色常数
颜色
常数值描述
vbBlack &H0 黑色
vbRed &HFF 红色
vbGreen &HFF00 绿色
vbYellow &HFFFF 黄色
vbBlue &HFF0000 兰色
vbMagenta &HFF00FF 洋红
vbCyan &HFFFF00 青色
vbWhite &HFFFFFF 白色
系统颜色
常数值描述
vbScrollBars &H80000000 滚动条颜色
vbDesktop &H80000001 桌面颜色
vbActiveTitleBar &H80000002 活动窗口标题栏颜色
vbInactiveTitleBar &H80000003 非活动窗口标题栏颜色
vbMenuBar &H80000004 菜单背景颜色
vbWindowBackground &H80000005 窗口背景颜色
vbWindowFrame &H80000006 窗口框架颜色
vbMenuText &H80000007 菜单上文字的颜色
vbWindowText &H80000008 窗口内文字的颜色
vbTitleBarText &H80000009 标题，尺寸框和滚动箭头内文字的颜色vbActiveBorder &H8000000A 活动窗口边框的颜色
vbInactiveBorder &H8000000B 非活动窗口边框的颜色vbApplicationWorkspace &H8000000C 多文档界面 (MDI) 应用程序的背景颜色vbHighlight &H8000000D 控件内选中项的背景颜色
vbHighlightText &H8000000E 控件内选中项的文字颜色
vbButtonFace &H8000000F 绘在命令按钮正面的颜色
vbButtonShadow &H80000010 绘在命令按钮边缘的颜色
vbGrayText &H80000011 变灰的（无效的）文字
vbButtonText &H80000012 揿压按钮上文字的颜色
vbInactiveCaptionText &H80000013 非活动标题内文字的颜色
vb3DHighlight &H80000014 三维显示元素的高亮颜色
vb3DDKShadow &H80000015 三维显示元素的最暗阴影颜色
vb3DLight &H80000016 低于 vb3Dhighlight 的三维次高亮颜色
vb3DFace &H8000000F 文字表面的颜色
vb3DShadow &H80000010 文字阴影的颜色
vbInfoText &H80000017 提示窗内文字的颜色
vbInfoBackground &H80000018 提示窗内背景的颜色
vbScrollBars 0x80000000 滚动条颜色
vbDesktop 0x80000001 桌面颜色
vbActiveTitleBar 0x80000002 活动窗口的标题栏颜色
vbInactiveTitleBar 0x80000003 非活动窗口的标题栏颜色
vbMenuBar 0x80000004 菜单背景色
vbWindowBackground 0x80000005 窗口背景色
vbWindowFrame 0x80000006 窗口框架颜色
vbMenuText 0x80000007 菜单文本颜色
vbWindowText 0x80000008 窗口文本颜色
vbTitleBarText 0x80000009 标题、调整框和滚动箭头的文本颜色vbActiveBorder 0x8000000A 活动窗口边框颜色
vbInactiveBorder 0x8000000B 非活动窗口边框颜色vbApplicationWorkspace 0x8000000C 多文档界面 (MDI) 应用程序的背景色vbHighlight 0x8000000D 控件中选中项目的背景色
vbHighlightText 0x8000000E 控件中选中项目的文本颜色
vbButtonFace 0x8000000F 命令按钮表面阴影颜色
vbButtonShadow 0x80000010 命令按钮边缘阴影颜色
vbGrayText 0x80000011 灰色（无效）文本
vbButtonText 0x80000012 下压按钮文本颜色
vbInactiveCaptionText 0x80000013 非活动标题文本颜色
vb3DHighlight 0x80000014 3-D 显示元素的突出显示颜色
vb3DDKShadow 0x80000015 3-D 显示元素的最深阴影颜色
vb3DLight 0x80000016 vb3Dhighlight 之外最亮的 3-D 颜色
vbInfoText 0x80000017 工具提示文本颜色
vbInfoBackground 0x80000018 工具提示背景色
RGB(red, green, blue)
RGB 函数的语法含有以下这些命名参数：
部分描述
red 必要参数；Variant (Integer)。
数值范围从 0 到 255，表示颜色的红色成份。
green 必要参数；Variant (Integer)。
数值范围从 0 到 255，表示颜色的绿色成份。
blue 必要参数；Variant (Integer)。
数值范围从 0 到 255，表示颜色的兰色成份。
说明
可以接受颜色说明的应用程序的方法和属性期望这个说明是一个代表 RGB 颜色值的数值。
一个 RGB 颜色值指定红、绿、蓝三原色的相对亮度，生成一个用于显示的特定颜色。
传给 RGB 的任何参数的值，如果超过 255，会被当作 255。
下面的表格显示一些常见的标准颜色，以及这些颜色的红、绿、蓝三原色的成份：
颜色红色值绿色值兰色值
黑色 0 0 0
兰色 0 0 255
绿色 0 255 0
青色 0 255 255
红色 255 0 0
洋红色 255 0 255
黄色 255 255 0
白色 255 255 255。