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

推荐阅读

通州区市场监管局|中秋月饼开启“普抽”模式，不合格的全下架，严惩经营方！

德阳市帘通商贸有限公司携手帘通：打造高端珠帘

瓷砖空鼓率国家标准瓷砖空鼓率国家标准规范是哪个

四叶草泡酒有哪些好处四叶草泡水喝功效

你们最喜欢第五人格的什么cp？我可能会跟你们灭缘,因为我只喜欢先祭和哭信？

电饼铛烤肉做法视频电饼铛烤肉做法

螃蟹石榴一起吃了怎么办

桌子上爬的极小的虫子是什么

自己造一个ReactDOM

塑身衣晚上睡觉可以穿吗？

固自我所出的意思是什么

如何把微信的钱转到QQ里如何把微信的钱转到qq

基于百度地图数据分析,百度收购yy数据分析

美的挂机空调e9是什么故障,一起来看看先

D09-08-晓蕾-第五章记忆术进阶学习实操练习

biubiubiubiu是什么意思 biubiubiu是什么意思

如何去除眼角皱纹打什么针？

大学校长和市一级平级嘛？

高猛酸钾染衣服上怎么洗掉

青春期白带多怎么办！！