vb.net后台取色 vbnet backgroundworker _颜色

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中，如何获取Graphics中某一指定点（像素）的颜色值？（VB语言）要使用GetPixel函数来取得像素的颜色值，代码如下：
1
2
3
【vb.net后台取色 vbnet backgroundworker】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拾色器设计，要求：能获取图片任意位置的颜色VB可使用Point方法来获取图片指定点的颜色。
Point 方法
按照长整数，返回在 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
Text6 = Val(Text3) \ 65536 'Blue
Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))
End Sub
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后台取色的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet backgroundworker、vb.net后台取色的信息别忘了在本站进行查找喔。

vb.net后台取色 vbnet backgroundworker

推荐阅读

分析案

不应期是什么意思?

西京东京中京中京在哪里

青柠檬黄柠檬可以放一起吗

屋子里放什么可以驱蚊家里放什么可以驱蚊子

著作权侵权举报机构是哪里？著作权侵权举报机构是哪里的

静暇的暇怎么组词暇组词

你们更喜欢在实体书店买书还是网上购书？

方舟手游渡渡鸟怎么养大

switchlite益智游戏，switch好玩的益智游戏

辣炒花菜的制作方法辣炒花菜怎么做

癌痛|为什么不能用哌替啶治疗癌痛？

维生素e和芦荟胶混合敷多久

为什么学生宿舍没热水器，怎么修复与排查方法？

个人养老保险缴费比例是多少？缴费明细怎么打印

W10专业版32位 Ghost版Win10系统下载

ps1游戏模拟器，ps1模拟器游戏大全

取款机只出凭条没出钱卡被取款机吞了怎么办

芒果跟牛奶能否一起吃芒果和牛奶能一起吃吗

炖莲藕排骨要放姜吗