Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
h = GetDC(0) '取得整个屏幕的DC
Colr = GetPixel(h, 645, 500) '取颜色
ReleaseDC 0, hdc '释放hDC
If Colr = &Hffffff Then
MsgBox "相同"
Else
MsgBox "不同"
End If
End Sub
像以上代码最多能判断一个坐标的一个颜色值,大多数时候还不准确。
请问怎么才能判断某一坐标区域的3个颜色值??
比如坐标为645.500 要判断这个坐标是否有3个相近的颜色值的其中一个,
这样做的目的是一个颜色不准确,就用3个相近的颜色比较,只要其中一个相同就可以了。。
完整代码怎么写,谢谢
|