Question

vb.net拾色器设计，要求：能获取图片任意位置的颜色

Answer 1

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

Answer 2

Dim pix As New System.Drawing.Bitmap() '随便哪张图(改一下)
pix = System.Drawing.Bitmap.FromFile(图片文件的路径)
Dim colors As New System.Windows.Forms.ColorDialog()
colors.AllowFullOpen = True
colors.Color = pix.GetPixel(25, 30) '图中 点25,30(可修改) 的颜色。
If colors.ShowDialog() = Forms.DialogResult.OK Then
Me.Backcolor = colors.Color '拾色器里选择的颜色。
End If

Answer 3

你出多少rmb