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
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
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颜色
怎样获取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値
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 区分大小写
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'这是绿色分量

推荐阅读