如何根据某个窗口中的某点的颜色。来判断那个颜色位于那个窗口的相对坐标

该怎么实现？

解决方案 »

  1.   

    Public Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long
    Public Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
      

  2.   

    首先取得窗体的句柄hWnd，根据这个句柄取得设备场景hDC,有了这个hDC就可以取制定点的颜色了。
      

  3.   

    Private Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If GetPixel(Form1.hdc, x, y) = vbBlack Then debug.print X,YEnd Sub