锐客网

  1. 首页 > 生活百科 > it技术 > >

包含vb.netrgb的词条

IT技术控件

vb.net拾色器设计，要求：能获取图片任意位置的颜色VB可使用Point方法来获取图片指定点的颜色 。
【包含vb.netrgb的词条】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 获取当前鼠标点的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里,这行代码是错误的:Label4.ForeColor = RGB(255, 255, 255),相信大家都懂什么意思,那么正确的代应改成
Label4.ForeColor = Color.FromArgb(255, 255, 255, 255)
RGB函数是这样vb.netrgb的
Public Function RGB(Red As Integer, Green As Integer, Blue As Integer) As Integer
它返回一个Integer不是Color结构
应该用Color.FromArgb
Public Shared Function FromArgb(alpha As Integer, red As Integer, green As Integer, blue As Integer) As System.Drawing.Color
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) '获取屏幕vb.netrgb的设备场景
Color = GetPixel(WindowDC, 500, 100) '获指定点vb.netrgb的颜色
'分解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) '创建带有透明通道的ARGB颜色
Dim outcr As Color = Color.FromArgb(R, G, B) '创建不透明的RGB颜色
关于vb.netrgb和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：平板怎么修复u盘，平板电脑系统u盘

    下一篇：视频号作品怎么发在朋友圈，视频号怎么发表到朋友圈