Question

如何让鼠标永远置于VB窗口中，结束后就不这样了？

（代码）

Answer 1

Private Declare Function ClipCursor Lib "user32" (lpRect as any) as long
private type RECT
left as long
top as long
right as long
bottom as long
end type

锁定：
Dim R As RECT
R.Left = Me.Left / Screen.TwipsPerPixelX
R.Top = Me.Left / Screen.TwipsPerPixelY
R.Right = R.Left + Me.Width / Screen.TwipsPerPixelX
R.Bottom = R.Top + Me.Height / Screen.TwipsPerPixelY

释放：
ClipCursor vbNull

追问

说简单点

追答

这够简单了

追问

Private Declare Function ClipCursor Lib "user32" (lpRect as any) as long
private type RECT
left as long
top as long
right as long
bottom as long
end type

是啥玩意啊？
必须在它后面加锁定和释放吗？

追答

不是。
应是
private sub form_load()
Dim R As RECT
R.Left = Me.Left / Screen.TwipsPerPixelX
R.Top = Me.Left / Screen.TwipsPerPixelY
R.Right = R.Left + Me.Width / Screen.TwipsPerPixelX
R.Bottom = R.Top + Me.Height / Screen.TwipsPerPixelY
end sub
当退出时
ClipCursor vbNull

追问

不行啊

说用户定义类型未定义