运行单击鼠标时的代码 VB

Question

我希望某些代码在单击鼠标时运行。我发现的大多数帖子仅在鼠标在表单内或某个对象内单击时才执行代码。我希望代码运行 任何地方 单击鼠标。这甚至可能吗？

Answer 1

您可以使用GetAsyncKeyState api并检查鼠标左右键。这是一个使用定时器轮询

的示例

Imports System.Runtime.InteropServices
Public Class Form1
    <DllImport("user32.dll")> _
    Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
    End Function

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.LButton) <> 0 Then
            Debug.Print("Left button click")
        ElseIf GetAsyncKeyState(Keys.RButton) <> 0 Then
            Debug.Print("Right button click")
        End If
    End Sub
End Class

运行单击鼠标时的代码 VB

Run Code When The Mouse is Clicked VB

vb.net

mouse

运行 单击鼠标时的代码 VB

Run Code When The Mouse is Clicked VB

vb.net

mouse

运行单击鼠标时的代码 VB