Question

VB程序怎样锁定鼠标？

程序里只有一个文本框和一个按钮。要求鼠标只能在软件界面里活动，键盘不能操作。也不能关闭这个软件。只有当输入的密码对时才关闭这个软件。
（假如密码是123）

Answer 1

Option Explicit

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 = 100: r.Top = 100
r.Right = 100: r.Bottom = 100
ClipCursor r
End Sub

Private Sub Command2_Click()‘解除锁定
ClipCursor ByVal 0&
End Sub

最核心的科技给你了，如果你水平不够改装，那么HI我