vb编程：锁定鼠标光标位置 vb窗口定义光标位置

如何获取鼠标在我定义的坐标系的坐标（vb） Private Type POINTAPI '定义坐标的类型X As LongY As LongEnd TypePrivate Declare Function ScreenToClient Lib\"user32\"(ByVal hwnd As Long，lpPoint As POINTAPI)As LongPrivate Declare Function GetCursorPos Lib\"user32\"(lpPoint As POINTAPI)As Long'5480.88 3472.43Private Sub Form_Load()Dim I As DoubleDim J As DoubleMe.Height=12330Me.Width=14865Me.Scale(398924.16，4323446.22)-(404405.04，4319973.79)'自定义坐标系For I=399617.646 To 404405.04 Step 1097.376 '画网格线CurrentX=I '标注CurrentY=4319973.79+100Print CStr(I)Me.Line(I，4319973.79)-(I，4323446.22)NextFor J=4322752.734 To 4320667.276 Step-693.486CurrentX=398520.27+400CurrentY=J-50Print JMe.Line(398520.27，J)-(404405.04，J)NextMe.PSet(401114.912，4321362.762)，vbRed '测试它与label1 label2 的值是否相差很大End SubPrivate Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)Dim MousePS As POINTAPI'Dim ps As POINTAPIGetCursorPos MousePS '获取鼠标在屏幕的位置ScreenToClient Me.hwnd，MousePS '把。vb编程：锁定鼠标光标位置，本篇经验，需要用到3个函数（DLL调用命令），1个时钟组件。以及v自带的窗口。可以当成一个恶作剧程序，也可以运用到其它方面。VB获取窗口下，鼠标光标位置所在的控件句柄 API：GetForegroundWindow 可以获取到有焦点的顶层窗口。获取有焦点的子窗口只能用GetFocus，但是如果当前顶层窗口属于其他线程，GetFocus将返回NULL。没有好的办法解决，除非AttachThreadInput或者用钩子（HOOK）。