VB.NET模拟鼠标问题

Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)

创新互联是一家集网站建设,贺州企业网站建设,贺州品牌网站建设,网站定制,贺州网站建设报价,网络营销,网络优化,贺州网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

Dim postion1 As New Point

mouse_event(H1 Or H8000, postion1.X * 65535 / 1366, postion1.Y * 65535 / 768, 0, 0)

'按绝对位置移动鼠标

'在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元，

'当前所用显示屏分辨率为1366*768

'所以要进行如上转换

mouse_event(H2, 0, 0, 0, 0) '鼠标左键按下

mouse_event(H4, 0, 0, 0, 0) '鼠标左键弹起

msdn上有 mouse_event 的详解，大致使用如上

求大神指点vb.net 怎么用SendInput来实现鼠标移动到指定位置呢?

您好，建议您使用mouse_event或者 Cursor.Position来实现。例如：

1. 您需要将鼠标移动dx, dy的位置。

Public Sub MouseMoveBy(ByVal dx As Integer, ByVal dy As Integer)

Cursor.Position = New Point(Cursor.Position.X + dx, Cursor.Position.Y + dy)

End Sub

或者

Public Sub MouseMoveBy(ByVal dx As Integer, ByVal dy As Integer)

mouse_event(0, dx, dy, 0, 0)

End Sub

2. 您需要将鼠标移动到x, y的位置

Public Sub MouseMoveTo(ByVal x As Integer, ByVal y As Integer)

Cursor.Position = New Point(x, y)

End Sub

请您试一下。

VB.net怎么实现运行时鼠标拖动改变控件的大小啊

控件是可以显示在里面的，你只要加个label，把label的属性设为visualble=fause就行。设置鼠标经过头像的mouseHover和mouseLeave事件，当mouseHover时label的属性visualble=true，当mouseLeave时label的属性visualble=fause即可。窗体的鼠标事件可以设置控件的cursor属性，里面可以选择许多种鼠标图形。 只要是正常的Form都可以改变窗体大小，但是无边框的窗体只能用函数改变或者设置属性，在debug后是不能改变的。拖动窗体需要在窗体的load时间里面写入当鼠标单击不放时的事件即可，不难。

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

调用api

在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.net操作鼠标 vbs实现鼠标点击
文章网址：http://pwwzsj.com/article/dooigsg.html