Question

VB 鼠标控制

Answer 1

form1添加两个command控件和一个timer控件,添加如下代码:
Dim
moulast
As
POINTAPI
Dim
moubegin
As
POINTAPI
Dim
MoveCount
As
Integer
Dim
mousestep
As
POINTAPI
Private
Sub
Command1_MouseUp(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)

MsgBox
("你按下了Command1键")

Timer1.Enabled
=
False
End
Sub
Private
Sub
Command2_Click()

Dim
destrect
As
RECT

'获得Command1在屏幕上的坐标。

GetWindowRect
Command1.hwnd,
destrect

'获得要移动到的位置的光标的坐标。

moulast.X
=
destrect.Left

moulast.Y
=
destrect.Top

'获得当前光标的坐标。

GetCursorPos
moubegin

Timer1.Enabled
=
True

stepx
=
moulast.X
-
moubegin.X

stepy
=
moulast.Y
-
moubegin.Y

mousestep
=
moubegin
End
Sub
Private
Sub
Timer1_Timer()

mousestep.X
=
mousestep.X
+
15

mousestep.Y
=
mousestep.Y
+
10

SetCursorPos
mousestep.X,
mousestep.Y

If
mousestep.X
>
moulast.X
And
mousestep.Y
>
moulast.Y
Then

Timer1.Enabled
=
False

SendMessage
Command1.hwnd,
WM_LBUTTONUP,
10,
10

End
If
End
Sub
Module1代码:
Public
Type
RECT

Left
As
Long

Top
As
Long

Right
As
Long

Bottom
As
Long
End
Type
Public
Type
POINTAPI

X
As
Long

Y
As
Long
End
Type
Public
Const
WM_LBUTTONUP
=
&H202
Public
Declare
Function
GetWindowRect
Lib
"user32"
(ByVal
hwnd
As
Long,
lpRect
As
RECT)
As
Long
Public
Declare
Function
SetCursorPos
Lib
"user32"
(ByVal
X
As
Long,
ByVal
Y
As
Long)
As
Long
Public
Declare
Function
GetCursorPos
Lib
"user32"
(lpPoint
As
POINTAPI)
As
Long
Public
Declare
Function
SendMessage
Lib
"user32"
Alias
"SendMessageA"
(ByVal
hwnd
As
Long,
ByVal
wMsg
As
Long,
ByVal
wParam
As
Long,
lParam
As
Any)
As
Long

Answer 2

你是希望调用command的click事件吧
没必要这么麻烦的,
当你需要点击command时
只需写上
command1_click
就可以了,相当于是调用事件