Question

VB中获取窗体内某个坐标的颜色值

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.Caption = "X:" & X & " Y:" & Y
End Sub
这个可以获取窗体内部颜色值 但是当窗体上有控件时 被控件挡住的部分就获取不了了，有没有办法实现 当窗体上有控件时 我就获取控件上的颜色。我不要那个读全屏颜色的代码 ，那个我会。我要的是只读窗体内部颜色值的，即使窗体最小化也能正常读取出窗体某个坐标点的颜色。

Answer 1

把窗体,"打印" 到 picture 控件再用 picture1.point(x,y) 窗体被别的程序盖住时可行,最小化时,窗体只有一个标题栏 Private Declare Function PrintWindow Lib "user32" (ByVal SrcHwnd As Long, ByVal DesHDC As Long, ByVal uFlag As Long) As Long'把窗体form1 打印到 窗体form2.picture1 pictuer1的autoredraw 属性要为truePrivate Sub Command1_Click()Call PrintWindow(Form1.hWnd, Form2.Picture1.hDC, 0)
Debug.Print Form2.Picture1.Point(100, 100)
End Sub