如何得到屏幕上给定坐标的一点的十六进制颜色值？？？

Question

最近想写一个小程序，其中有一个功能是获得鼠标所指位置的颜色值。就象photoshop的取色器一样.

Answer 1

GetPixel 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判断设备是否支持本函数
 
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=196936

Answer 2

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

Answer 3

我有做好了的例子~~~
[email protected]
记得给分