请问锁住鼠标的代码是什么?
请问锁住鼠标的代码是什么?
ClipCursor 可以实现，但是最为懒惰的方法就是用 SetCursorPos，只用一个 api 函数，爽！！
窗体上放一个 timer interval = 1 的控件。
Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Timer1_Timer()
SetCursorPos 0, 0 '这样就把光标放到屏幕左上角位置，你也可以随便调，只是当心溢出
End Sub
如果用 alt + f4关闭了窗体，那也就取消锁定了
[此贴子已经被作者于2006-4-8 17:33:48编辑过]