如何取得当前鼠标点的色彩值,vb菜鸟第一问，希望能写出注释啊谢谢了

Question

我打算编写一个函数，能够取得当前鼠标位置的色彩值
本人是菜鸟希望能写的明白一点，谢谢了各位兄弟！

Answer 1

GetCursorPos     
    GetPixel

Answer 2

哦，你自己看看api说明就行了

Answer 3

显示鼠标移过的一幅图像和桌面任何位置处的RGB颜色。
http://vbworld.sxnw.gov.cn/Source/openfile.asp?kind=graphics&id=25&filename=RGBPickerCtrl.zip

Answer 4

“吸管”--用鼠标取得像素的颜色
http://www0.ccidnet.com/tech/msrc/2000/05/15/58_706.html

Answer 5

原程序都不能下载~~~~
其中页面上的程序
有一句是:
d=GetDc(0)
ReleaseDC Me.hwnd, b
ReleaseDc 的第一个参数是干吗的
我写的是个函数的话，我没有hwnd给他啊

Answer 6

ReleaseDC VB声明 
Declare Function ReleaseDC Lib "user32" Alias "ReleaseDC" (ByVal hwnd As Long, ByVal hdc As Long) As Long 
说明 
释放由调用GetDC或GetWindowDC函数获取的指定设备场景。它对类或私有设备场景无效（但这样的调用不会造成损害） 
返回值 
Long，执行成功为1，否则为0 
参数表 
参数 类型及说明 
hwnd Long，要释放的设备场景相关的窗口句柄 
hdc Long，要释放的设备场景句柄 
注解 
对那些用CreateDC一类的DC创建函数生成的设备场景，不要用本函数
 “Me.hwnd”是指你的窗体的句柄

Answer 7

哦，Me.hWnd是我窗体的句柄
但是 我写的是个得到（其他程序）某点的色彩值的函数
所以我在释放设备的时候 ReleaseDc 第一个参数要求一个句柄
我写的函数里没有任何句柄 那我应该怎么写这个第一个参数呢

Answer 8

dim d as long
d=GetDc(0)
~~~~~~
~~~~~~
~~~~~~
ReleaseDC Me.hwnd, d
ReleaseDc 的第一个参数是干吗的
我写的是个函数的话，我没有hwnd给他啊

Answer 9

hwnd Long，要释放的设备场景相关的窗口句柄 
我自己写的程序里面有3个窗体
这个相关的窗口是指调用这个函数的窗体还是目标窗口（其他程序的）
Public Function GetColor()
   Dim b as long :Dim PP as POINTAPI :Dim X as long
   GetCurSorPos (PP)
   b =GetDc (0)
   X=GetPixe(b,PP.X,PP.y)       
   GetColor=X                
   ReleaseDC     '这里该释放b了吧 可是ReleaseDc第一个参数是窗口句柄，我应该怎么写呢
   
end sub