vbnet控制鼠标点击 vba 控制鼠标 点击

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)

'按绝对位置移动鼠标

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

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

'所以要进行如上转换

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

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

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

相关问答

Q1: VB.NET2013如何控制鼠标在某一坐标点击一下

Imports System.Runtime.InteropServices

DllImport("user32.dll") 

    Private Shared Function SetCursorPos(ByVal X As Integer, ByVal Y As Integer) As Boolean    End Function

    DllImport("user32.dll") 

        Private Shared Sub mouse_event(ByVal flags As MouseEventFlag, ByVal dx As Integer, ByVal dy As Integer, ByVal data As UInteger, ByVal extraInfo As UIntPtr)    End Sub

    Flags()

        Private Enum MouseEventFlag As UInteger   

            Move = H1 

            LeftDown = H2

             LeftUp = H4

             RightDown = H8

             RightUp = H10

              MiddleDown = H20 

              MiddleUp = H40 

               XDown = H80 

                XUp = H100

                Wheel = H800 

                VirtualDesk = H4000

                Absolute = H8000 

     End Enum

 

 

SetCursorPos(intX, intY)mouse_event(MouseEventFlag.LeftDown, intX, intY, 0, UIntPtr.Zero)

mouse_event(MouseEventFlag.LeftUp, intX, intY, 0, UIntPtr.Zero)

Q2: vb.net中,如何实现鼠标在listbox控件上移动时,鼠标所到的条目背景变黑、字变白；移开后还原?

复杂vbnet控制鼠标点击的不会vbnet控制鼠标点击，来点儿简单的vbnet控制鼠标点击，借用在listbox里按下鼠标时再移动vbnet控制鼠标点击，会高亮显示选择行，并且会随鼠标移动而变化的这一特点改进的，不足之处是在listbox里，此时处于鼠标左键在按下状态。

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

Private Sub ListBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseMove

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)

End Sub

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

调用api

在Visual Baisc.net中vbnet控制鼠标点击的声明vbnet控制鼠标点击：

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 '模拟鼠标指针移动

例vbnet控制鼠标点击：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10vbnet控制鼠标点击，10）模拟鼠标左键按下

关于vbnet控制鼠标点击和vba 控制鼠标 点击的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。