用GetPixel获得picture每一点的RGB值,再把(R+G+B)/3得到灰度值,在把值设置回去(R,G,B均为灰度值)(可以用Circle画半径为一象素点的圆) 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,逻辑坐标中要检查的点
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,逻辑坐标中要检查的点