Question

VB 怎么样获得鼠标在屏幕上那一点的颜色值

Answer 1

放一个按扭,写入下面代码.运行,鼠标随便放一个地方,用按回车键来按按扭就会看到效果.

Private Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long
Private Declare Function CreateDCA& Lib "gdi32" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Long)
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Type pointapi
x As Long
y As Long
End Type

Private Sub Command1_Click()
Dim a As Long
Dim p As pointapi
a = CreateDCA("DISPLAY", vbNullString, vbNullString, 0)
GetCursorPos p
Me.BackColor = GetPixel(a, p.x, p.y)
DeleteDC a
End Sub