颜色识别问题

[klj123]

如何识别JPG图片上一种颜色和趋近于这种颜色的其他色（如：灰色和趋近灰色),就像Photoshop中的魔术棒，有人说用颜色容差，但我不知如何用，请高手指教，谢谢！

[happy_sea]

获取两个点的颜色值(long)，用以下方法分别分离出rgb值：
r = Color And &HFF
g = (Color \ &H100) And &HFF
b = (Color \ &H10000) And &HFF
计算两个颜色值的容差(R1-R2)^2+(G1-G2)^2+(B1-B2)^2是否在你定的范围之内

[SYSSZ]

不成熟的看法,魔术棒本质上是鼠标,用API是可以很容易测出鼠标处的颜色值,那么以鼠标处颜色为基准,设定一个范围,就是所谓的容差了,在这个范围内遍历选区内每个像素点,魔术棒要选的颜色也就有了.

[SYSSZ]

这是获取屏幕任意点颜色值的代码,不知LZ有没有?

Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim z As POINTAPI
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()
End
End Sub

Private Sub Timer1_Timer()
Dim a, b, c, d As Long
GetCursorPos z
ret = GetDC(0)
a = GetPixel(ret, z.X, z.Y)
Label5.Caption = "点的十进制颜色值：" & a
Label1.Caption = "点的位置：" & z.X & "," & z.Y
b = a And &HFF
c = (a And 65280) \ 256
d = (a And &HFF0000) \ 65356
Label2.Caption = "点的RGB(" & b & "," & c & "," & d & ")"
Label3.Caption = "16进制色：" & "Ox" & Hex(a)
Label4.Caption = "网页的颜色：#" & Hex(a)
Picture1.BackColor = RGB(b, c, d)
End Sub

[bob008]

上面都有了。。。闪

[IamDeane]

小仙妹发过这个你搜搜看吧

[gzcfsoft]

我也很想知道。