vb.net获取颜色 vb颜色表示代码

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颜色
在vb.net中,如何获取Graphics中某一指定点(像素)的颜色值?(VB语言)要使用GetPixel函数来取得像素vb.net获取颜色的颜色值vb.net获取颜色,代码如下vb.net获取颜色:
1
2
3
4
5
private void button1_Click(object sender, EventArgs e)
{
Color color = new Bitmap(pictureBox1.Image).GetPixel(10, 10);
MessageBox.Show(color.ToString());
vb.net 对固定坐标取色Using b As New Bitmap(1, 1)
Using g As Graphics = Graphics.FromImage(b)
g.CopyFromScreen(New Point(300, 300), New Point, New Size(1, 1))
PictureBox1.BackColor = b.GetPixel(0, 0)
End Using
End Using
复制当前屏幕左上角位置(300,300)的一个点 , 取其颜色
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
【vb.net获取颜色 vb颜色表示代码】vb.net获取颜色的介绍就聊到这里吧 , 感谢你花时间阅读本站内容,更多关于vb颜色表示代码、vb.net获取颜色的信息别忘了在本站进行查找喔 。

    推荐阅读