设定Mouse在某个固定范围

键入RECT
左等长
上等长
右等长
下等长
结束类型

声明函数clip cursor Lib " user 32 "(lpRect As Any)Long
声明函数show cursor Lib " user 32 "(ByVal bShow As Long)
声明函数SetCursorPos Lib " user 32 "(ByVal x As Long，_
ByVal y As Long)
声明函数getwindow rect Lib " user 32 " Alias " getwindow rect " _
(ByVal hwnd As Long，lpRect As RECT) As Long

注意:将鼠标的可移动范围设置在一个控件项内
public function to lockcursor(byvalctlhwnd as long)as boolean
dimrect5 are CT
dimres as long
GetWindowRect ctlHwnd，对rect 5进行注释:获取窗口的四个角
rect 5 . top = rect 5 . top
rect 5 . left = rect 5 . left
rect 5 . bottomSetCursorPos (rect5。Top + rect5。Bottom) 2，(rect5。左+右5。右)2

RES = clip cursor(rect 5)
如果res = 1，则
toLockCursor = True
Else
toLockCursor = False
End If
End函数

注意:将鼠标移动的圆圈设置为screen
public sub touch cursor()
dim r screen as rect
r screen . top = 0
r screen . left = 0
r screen。右=屏幕。宽屏。TwipsPerPixelX
rscreen。底部=屏幕。高度屏幕。TwipsPerPixelY
clip cursor r screen
End Sub

例如，设置鼠标只能在形式为
private子命令1 . click()
call to lockcursor(me . hwnd)
end sub
private子命令2 . click()
call to unlockecursor()[/br