锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net取rgb值 vbnet getobject

IT技术控件

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：绘图后，如何才能取得所绘图形的颜色值？加入一个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 获取当前鼠标点的RGBPrivate Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
Dim GetColor As Color = CType(PictureBox1.Image, Bitmap).GetPixel(e.X, e.Y)
TextBox3.Text = GetColor.B.ToString
TextBox2.Text = GetColor.G.ToString
TextBox1.Text = GetColor.R.ToString
End Sub
在vb.net中，如何获取Graphics中某一指定点（像素）的颜色值？（VB语言）要使用GetPixel函数来取得像素vb.net取rgb值的颜色值vb.net取rgb值 ， 代码如下vb.net取rgb值：
1
2
3
4
5
【vb.net取rgb值 vbnet getobject】private void button1_Click(object sender, EventArgs e)
{
Color color = new Bitmap(pictureBox1.Image).GetPixel(10, 10);
MessageBox.Show(color.ToString());
VB中怎样把ARGB颜色各分量提取出来呢？rgb值的格式为（16进制）：0x00bbggrr
1. 提取rgb各分量值：
Function RGBbit(ByVal RGB, blue%, green%, red%)
blue = ((RGB And HFF0000) \ H10000)
green = ((RGB And HFF00) \ H100)
red = (RGB And HFF)
End Function
调用方法：定义3个变量r,g,b 整形，CallRGBbit(13870724, r, g, b)
2. 由三色获得RGB值
Function RevRGB(blue%, green%, red%) As Long
RevRGB = (blue * H10000) + (green * H100) + red
End Function
vb.net拾色器设计，要求：能获取图片任意位置的颜色VB可使用Point方法来获取图片指定点vb.net取rgb值的颜色 。
Point 方法
按照长整数vb.net取rgb值，返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色 。
语法
object.Point(x, y)
'窗体判色代码:
Private Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = X
Text2 = Y
Text3 = Point(X, Y)
Text4 = (Val(Text3) Mod 65536) Mod 256 'Red
Text5 = (Val(Text3) Mod 65536) \ 256 'Green
Text6 = Val(Text3) \ 65536 'Blue
Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))
End Sub
'PictureBox判色代码:
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = X
Text2 = Y
Text3 = Picture1.Point(X, Y)
Text4 = (Val(Text3) Mod 65536) Mod 256 'Red
Text5 = (Val(Text3) Mod 65536) \ 256 'Green

推荐阅读


上一篇：java里写html代码，java html代码

下一篇：头条号直播视频推荐，头条号直播怎么赚钱