vb.net实践编程鼠标的简单介绍

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 的详解，大致使用如上

相关问答

Q1: 如何在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）模拟鼠标左键按下

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

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

Q3: vb.net 如何获取鼠标单击的控件名称

这个简单。

在VB.net中vb.net实践编程鼠标，每个事件都对应有两个参数：sender 和 e 。提取 sender 参数信息就可以获取控件名称。如果不理解其中机制vb.net实践编程鼠标，vb.net实践编程鼠标你直接 msgbox(sender) 将其输出vb.net实践编程鼠标，就能查看其中玄机。

获取控件名称代码：CType(sender, Control).Name。

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

您好vb.net实践编程鼠标，建议您使用mouse_event或者 Cursor.Position来实现。例如：

1. 您需要将鼠标移动dx, dyvb.net实践编程鼠标的位置。

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, yvb.net实践编程鼠标的位置

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

        Cursor.Position = New Point(x, y)

    End Sub

请您试一下。

Q5: 求大神指点vb.net 怎么实现鼠标左键按住在移动鼠标达到选中文件的效果呀.我用mouse_even没有效果.

看图片背景vb.net实践编程鼠标，我又试了下资源管理器vb.net实践编程鼠标，文件是选中的状态

选中文件和选中文字vb.net实践编程鼠标，背景色是不同的

关于vb.net实践编程鼠标和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。