用vb实现魔术棒功能

' 获得图象的像素高和宽
Private   Declare   Function GetObject() Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
'创建兼容DC的函数
Private Declare Function CreateCompatibleDC()Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function BitBlt()Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

'为DC选择图象的函数
Private Declare Function SelectObject()Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

'清除DC的函数
Private Declare Function DeleteDC()Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

'获得图象像素值的函数
Private Declare Function GetPixel()Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long</