マウスをクリックしたときの実行コード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