拾取颜色？？？

Question

用API函数 GetPixel。
'Module.basDeclare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Option Explicit
Type POINTAPI
x As Long
y As Long
End Type
'formDim z As POINTAPIPrivate Sub Timer1_Timer()Dim a, b, c, d As Long
GetCursorPos z
a = GetPixel(GetDC(0), z.x, z.y)
b = a And &HFF
c = (a And 65280) \ 256
d = (a And &HFF00000) \ 65536
Picture1.BackColor = RGB(b, c, d)End Sub

Answer 1

'楼上的正确Option ExplicitPrivate Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As LongPrivate Type POINTAPI
    x As Long
    y As Long
End TypeDim z As POINTAPIPrivate Sub Form_Load()
    Timer1.Interval = 10
End SubPrivate Sub Timer1_Timer()
    Dim a As Long, b As Long, c As Long, d As Long
    
    GetCursorPos z
    
    a = GetPixel(GetDC(0), z.x, z.y)
    
    b = a And &HFF
    c = (a And 65280) \ 256
    d = (a And &HFF00000) \ 65536
    
    Picture1.BackColor = RGB(b, c, d)End Sub

Answer 2

用GetDC取得的设备场景没有释放！Timer1_Timer要这样写：Private Sub Timer1_Timer()
    Dim a As Long, b As Long, c As Long, d As Long
    Dim TemphDC as long
    
    GetCursorPos z
    
    TemphDC=GetDC(0)
    a = GetPixel(TemphDC, z.x, z.y)
    ReleaseDC 0, TemphDC
    
    b = a And &HFF
    c = (a And 65280) \ 256
    d = (a And &HFF00000) \ 65536
    
    Picture1.BackColor = RGB(b, c, d)End Sub

Answer 3

Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As L

Answer 4

原来是这个api，我找了半天。

Answer 5

b = a And &HFF&
    c = (a And &HFF00&) \ 256
    d = (a And &HFF0000) \ 65536这样的颜色才对。