189 8069 5689
调用api
创新互联建站主要从事网站设计制作、网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务怀远,十多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792
在Visual Baisc.net中的声明：
Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下
Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放
Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下
Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放
Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下
Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放
Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动
例：
mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0
'在（10，10）模拟鼠标左键按下
来的晚,帮顶顶，楼上代码很好，很强大.嘿嘿`~!!
不过有点局限，mousemove事件只局限在form中.
建议通过GetCursorPos
API来获取鼠标坐标.
从而判断,鼠标是否移动
呵呵,根据你要求写了下面代码，你试试
Private
Declare
Function
GetCursorPos
Lib
"user32"
(lpPoint
As
POINTAPI)
As
Long
Private
Type
POINTAPI
x
As
Long
y
As
Long
End
Type
Dim
NowPos
As
POINTAPI
'用来纪录鼠标停止时坐标
Const
HandleTime
=
20
'20分钟后处理
Dim
NowCount
As
Integer
'用来纪录鼠标停止了多久
Private
Sub
Form_Load()
Timer1.Interval
=
1000
'1秒检测一次
Timer1.Enabled
=
True
Timer2.Interval
=
60000
'1分钟一次
timer时间
Timer2.Enabled
=
False
GetCursorPos
NowPos
NowCount
=
End
Sub
Private
Sub
Timer1_Timer()
Dim
tmpPos
As
POINTAPI
GetCursorPos
tmpPos
If
tmpPos.x
=
NowPos.x
And
tmpPos.y
=
NowPos.y
Then
If
Not
Timer2.Enabled
Then
Timer2.Enabled
=
True
Else
Timer2.Enabled
=
False
NowCount
=
End
If
NowPos
=
tmpPos
Me.Caption
=
"当前鼠标坐标是:"
NowPos.x
","
NowPos.y
"鼠标已经静止了"
NowCount
"分钟了哦"
End
Sub
Private
Sub
Timer2_Timer()
NowCount
=
NowCount
+
1
If
NowCount
=
HandleTime
Then
MsgBox
"你已经20分钟没动过了哦，退出我吗
？"
End
Sub
这个还是要放在窗体中，因为是窗体发生的事件，我猜你觉得乱的原因是你每个控件都写好几个鼠标进入、离开之类的事件？其实很多类似的控件，可以合并成一个事件，只要handle后面带上多个控件名称即可。
e 只是一个名称而已 无所谓 重要的是 e 后面的as什么类型 e As System.Windows.Forms.MouseEventArgs
你在该过程内打字母 e. 会自动出现该对象的属性 方法 根据英文了解大致能知道它的功能
这是鼠标移动时发生的事件，如：
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox "你点到我啦！"
End Sub
当鼠标移动到这个标签控件的时候，就弹出对话框
扩展资料：
鼠标事件是Visual Basic编程中最常用到的事件，多数控件都支持鼠标操作，因此对鼠 标事件进行编程是非常重要的。
鼠标事件主要有以下几种：
MouseDown：鼠标按下时发生的事件。
MouseUp：鼠标抬起时发生的事件。
MouseMove：鼠标移动时发生的事件，对某控件的此事件进行编程，则当鼠标移过此控件时就会触发此事件，执行其相应代码。
参考资料来源：百度百科-VB事件