Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Function HEXCOLOR(ByVal X As Long, ByVal Y As Long) As String
HEXCOLOR = Hex(GetPixel(GetDC(0), X, Y))
End Function
Private Sub Command1_Click()
MsgBox HEXCOLOR(10, 100)
End Sub
VB声明
Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
说明
在指定的设备场景中取得一个像素的RGB值
返回值
Long,指定点的RGB颜色。如指定的点位于设备场景的剪切区之外,则返回CLR_INVALID
参数表
参数 类型及说明
hdc Long,一个设备场景的句柄
x,y Long,逻辑坐标中要检查的点
注解
用GetDeviceCaps判断设备是否支持本函数