Code ausführen, wenn die Maus angeklickt wird VB

Question

Ich möchte, dass bestimmter Code ausgeführt wird, wenn die Maus geklickt wird. Die meisten Posts, die ich finde, führen den Code nur dann aus, wenn die Maus innerhalb des Formulars oder innerhalb eines bestimmten Objekts angeklickt wird. Ich möchte, dass der Code überall die Maus ausgeführt wird. Ist das überhaupt möglich?

Answer 1

Sie können die GetAsyncKeyState API verwenden und die Maus nach links und rechts drücken. Hier ist ein Beispiel, das einen Timer verwendet, um

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 

abzufragen