vb.net中颜色常量 vb中颜色的代码大全

vb.net 如何读取ini文件定义的ForeColor颜色值

你好，我不知道你是用什么方法保存的，不过.net里的color有一个方法是Color.FromArgb 你可以这么做，dim

c

as

color=richtextbox1.ForeColor dim

colorstring

as

string=c.ToArgb().ToString

colorstring就是颜色的值（字符串）再把colorstring保存到ini文件加载颜色的时候，从ini里读取colorstring 具体是：dim

RtextColor

as

color=Color.FromArgb（cint(colorstring))richtextbox1.ForeColor

=RtextColor

相关问答

Q1: VB.NET：绘图后，如何才能取得所绘图形的颜色值？

加入一个TextBox控件,一个Command控件

代码:

Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Long) As Long

Private Sub Command1_Click()

Dim Color As Long

WindowDC = GetWindowDC(0) '获取屏幕的设备场景

Color = GetPixel(WindowDC, 500, 100) '获指定点的颜色

'分解RGB颜色值

R = (Color Mod 256) '红色

b = (Int(Color \ 65536)) '蓝色

G = ((Color - (b * 65536) - R) \ 256) '绿色

Text1.BackColor = RGB(R, G, b)

End Sub

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) '创建带有透明通道vb.net中颜色常量的ARGB颜色

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

Q3: 怎样获取vb.net中的颜色的ARGB値

Dim btp As Bitmap = PictureBox1.Image

Dim c As Color = btp.GetPixel(x_x, y_x)

'然后c.A,c.R,c.G,c.B就是对应的颜色的ARGB値

Q4: c#/vb.net如何通过反射获得颜色名称（字符串）对应的颜色（Color类型）？

public Color col(string colorName)

{

Type colorType = typeof(Color);

PropertyInfo info = colorType.GetProperty(colorName, BindingFlags.Public | BindingFlags.Static);

if (infos == null)

{

//throw Exception

}

return(Color)info.GetValue(null, null);

}

是这个意思么？输入“Red”， 返回Color.Red 区分大小写

Q5: VB6 如何进行颜色转换

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

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

你可以自己在VB6的立即窗口验证一下我上面所述是否正确：

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  '这是蓝色分量

vb.net中颜色常量的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb中颜色的代码大全、vb.net中颜色常量的信息别忘了在本站进行查找喔。