Question

VB的鼠标无法移动，隐藏，的代码

我想别人一按我的Command1，他的鼠标就无法移动。
别人一按我的Command2，他的鼠标就隐藏起来。
Command2的隐藏鼠标只是在窗体里隐藏啊。。我要在任何地方都隐藏

Answer 1

果然是问题大王啊。
建一个Command1，Command2，代码如下，可以满足你的要求。保险起见，可以加一个Command3，用来恢复。当然如果你不需要，就不写他的代码。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
Dim p As RECT
ClipCursor p
End Sub

Private Sub Command2_Click()
ShowCursor 0
End Sub

Private Sub Command3_Click()
ShowCursor 1
ClipCursor 0&
End Sub
有问题再找我。

Answer 2

api函数。

Answer 3

才40分

Answer 4

鼠标都不动了

怎么按你的command2？