Question

VB代码鼠标

软件运行后，鼠标只能在该软件内移动，不能移到别的地方，求这样控制鼠标的代码怎么写？

Answer 1

这样： 试试，能不能，我是win7，可以。不过，窗体的边框属性必须为默认 Option Explicit Private Const lBorder As Long = 7 '边框大小，经测试，至少为7才能不出现用户点击窗体边缘导致失效。（可以自己调整，调成100蛮好玩的） Dim R As RECT Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function ClipCursor Lib "user32" (lpRect As RECT) As Long 'lpRect-鼠标光标限制到的矩形 Private Declare Function ClipCursorByNum Lib "user32" Alias "ClipCursor" (lpRect As Long) As Long 'lpRect-传0，取消鼠标光标限制 Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Sub Form_Load() '窗体载入后，鼠标只能在窗体范围内移动 SetRect R, Left / Screen.TwipsPerPixelX + lBorder, Top / Screen.TwipsPerPixelY + lBorder, (Left + Width) / Screen.TwipsPerPixelX - lBorder, (Top + Height) / Screen.TwipsPerPixelY - lBorder ClipCursor R End Sub Private Sub Form_Unload(Cancel As Integer) '窗体退出时，取消鼠标光标限制范围 ClipCursorByNum 0 End Sub

Answer 2

您也可以通过
lostfocus
和
setfocus来实现。
当鼠标去点击软件以外的其它地方时，就会出发
lostfocus事件。
如：
在form的lostfocus事件中写下：form.setfocus
即可。
Private
Sub
Form_LostFocus()
form1.setfocus
End
Sub

Answer 3

这个还不简单吗？以下是代码： Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long Private Sub Command1_Click() Dim r As RECT r.Left = 0: r.Top = 0 r.Right = 320: r.Bottom = 200 ClipCursor End Sub Private Sub Command2_Click() ClipCursor ByVal 0& End Sub