Question

VB代码 锁定鼠标

FORM LOAD事件后,实现如下功能:

按F1锁定鼠标,按F4解除锁定.

要代码
鼠标的位置可以是任意的,在按F1后鼠标停留在最后所处的位置.

Answer 1

一楼的问题也太大了吧.鼠标都锁了,用command.click有点问题.应该这样:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
if KeyCode=112 then 'F1
.....
else if KeyCode=115 then 'F4
........
end if

End Sub

Answer 2

Option Explicit
Private Type POINTAPI
x As Long
y As Long
End Type
Dim x As POINTAPI
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 10
GetCursorPos x
End Sub

Private Sub Command2_Click() '解除锁定
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
SetCursorPos x.x, x.y
End Sub

Answer 3

用API函数SetCursorPos

Answer 4

得用API才行的。