vb.net颜色编码 vb中颜色

VB6 如何进行颜色转换

首先纠正一下vb.net颜色编码，HFFFFFFFF不是白色，正确的应该是HFFFFFF，共三个字节，每个字节分别是红绿蓝三原色的分量值。如果用HFFFFFFFF（这是四个字节），VB6会报错的。

其次，vbWhite是VB的内部常量，它的值就是HFFFFFF（也就是十进制的16777215），所以不存在转换的问题。建议尽量使用类似vbWhite、vbRed、vbBlue这样的常量来表示颜色，因为它们很直观，即使不懂编程（但懂点英语）的人也知道它们就是白色、红色、蓝色的意思。

vb.net颜色编码你可以自己在VB6的立即窗口验证一下vb.net颜色编码我上面所述是否正确vb.net颜色编码：

Print vbWhite   '显示结果为16777215

Print Hex(vbWhite)   '显示结果为FFFFFF

补充说一下，颜色的多种表示方式，其实它们最终的值都是相等的，并不需要所谓的转换，比如以下是纯蓝色的多种表示方式：

vbBlue

RGB(0, 0, 255)

HFF0000

16711680

以上这些表示方式，其实它们的值都是一样的，都是等于16711680，你甚至可以拿它们直接来进行数学运算呢！

vbBlue + RGB(0, 0, 255) + HFF0000 + 16711680 = 66846720

66846720 / 4 = 16711680

如果你是想让一个颜色值分解为红绿蓝三原色分量，可以这样：

color1 = vbWhite   '这是白色

red = color1 Mod H100  '这是红色分量

green = color1 \ H100 Mod H100  '这是绿色分量

blue = color1 \ H10000  '这是蓝色分量

相关问答

Q1: vb.net复选框及字体颜色问题 题目是图上的第十题，计算代码我会做，但是那个红字黄底的代码怎么写

        TextBox1.ForeColor = Color.Red

        TextBox1.BackColor = Color.Yellow

        TextBox1.Text = 1234

Q2: VBNET怎么获取控件颜色的RGB值，又怎么用RGB将颜色赋给控件颜色。

R/G/B值最小是0最大是255属Byte值类型

Dim cr As Color = 控件.BackColor '获取控件背景色

Dim alpha As Byte = cr.A '透明度

Dim R As Byte = cr.R 'R值

Dim G As Byte = cr.G 'G值

Dim B As Byte = cr.B 'B值

Dim outAcr As Color = Color.FromArgb(alpha, R, G, B) '创建带有透明通道的ARGB颜色

Dim outcr As Color = Color.FromArgb(R, G, B) '创建不透明的RGB颜色

Q3: vb.net里改标签背景颜色的代码是什么啊

Label1.BackColor = Color.Red

Label1.BackColor = Color.Blue

Label1.BackColor = Color.Yellow

关于vb.net颜色编码和vb中颜色的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。