如何取得当前鼠标指针所在位置的颜色？

Question

首先使用GetCursorpos函数的到鼠标的位置
在使用getpixel函数即可得到鼠标所指象素的颜色值！

Answer 1

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
Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Sub Timer1_Timer()
    Dim p As POINTAPI
    Dim d As Long
    Dim dd As Long
    Dim l As Long
    GetCursorPos p
    d = GetDesktopWindow()
    dd = GetWindowDC(d)
    l = GetPixel(dd, p.x, p.y)
    Picture1.BackColor = l
End Sub

Answer 2

这里窗体上添加了一个timer控件，间隔时间0.1秒，还有一个picturebox，名称picture1，测试通过。