如何在VB.net中用程序控制鼠标移动和点击

调用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）模拟鼠标左键按下

VB鼠标移动事件

来的晚,帮顶顶，楼上代码很好，很强大.嘿嘿`~!!

不过有点局限，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

VB.NET 如何把鼠标移动事件写在模块中,并跟写在窗体中一样有效。

这个还是要放在窗体中，因为是窗体发生的事件，我猜你觉得乱的原因是你每个控件都写好几个鼠标进入、离开之类的事件？其实很多类似的控件，可以合并成一个事件，只要handle后面带上多个控件名称即可。

vb.net鼠标事件

e 只是一个名称而已 无所谓 重要的是 e 后面的as什么类型 e As System.Windows.Forms.MouseEventArgs

你在该过程内打字母 e. 会自动出现该对象的属性 方法 根据英文了解大致能知道它的功能

VB里的mousemove事件举例

这是鼠标移动时发生的事件，如：

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事件