跪求颜色识别问题

[olderboy]

如何识别图象中指定的坐标点是不是某种颜色啊? 急求算法.....

[qiu5208]

可以用api函数

[CommandButton]

窗体和图片控件的Point方法可以办到啊

[cbm6666]

'添加 Picture1 装载一张图片

'本代码是鼠标在图片上移动, 找到 黑色 会提示你 找到啦

Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Dim SchColor&
Private Sub Form_Load()
Picture1.ScaleMode = 3
SchColor = 0 '找黑色
End Sub

Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = GetPixel(Picture1.hDC, X, Y) & IIf(GetPixel(hDCp, X, Y) = SchColor, " 找到啦", "")
End Sub

[cbm6666]

'更正

Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Dim SchColor&
Private Sub Form_Load()
Picture1.ScaleMode = 3
SchColor = 0 '找黑色
End Sub

Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = GetPixel(Picture1.hDC, X, Y) & IIf(GetPixel(Picture1.hDC, X, Y) = SchColor, " 找到啦", "")
End Sub

[cbm6666]

'添加 Command1 Picture1

Private Sub Command1_Click()
Dim X1&, Y1&
For X1 = 0 To Picture1.Width
For Y1 = 0 To Picture1.Height
If GetPixel(Picture1.hDC, X1, Y1) = SchColor Then MsgBox CStr(X1) & "," & CStr(Y1): Exit Sub
Next Y1
Next X1
End Sub

[olderboy]

"幸福的子弹"."CommandButton","Sam Liu" 谢谢你们`````