VB: Mausklick funktionieren nicht

Question

Meine Codes:

Me.KeyPreview = True 
... 

Private Sub Form_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick 
    If e.Button = Windows.Forms.MouseButtons.Right Then 
     MsgBox("Right Mouse clicked.") 
    End If 
End Sub 

Try Maus zu erfassen rechts klicken, aber nicht funktionieren.

Alle Vorschläge willkommen. Danke

Answer 1

Wie andere Erwähnung in den Kommentaren scheint Ihr Code richtig, aber wird nur auf einfache Form arbeiten. Um das zu überwinden, können Sie an Veranstaltungen teilnehmen.

Private Sub Form_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick, Button1.MouseClick, Control1.MouseClick, AnyOtherControl.MouseClick 
    If e.Button = Windows.Forms.MouseButtons.Right Then 
     MsgBox("Right Mouse clicked.") 
    End If 
End Sub 

Bitte ersetzen Steuer Namen Sie Ihre Veranstaltung in diesem Code feuern auf möchten:

Handles MyBase.MouseClick, Button1.MouseClick, Control1.MouseClick, AnyOtherControl.MouseClick 

Ich vermute, Sie eines Container-Steuerelemente verwenden, die meisten Ihrer Form füllen. Wenn Sie möchten, dass Ihre Veranstaltung mit ihnen zusammenarbeitet, müssen Sie sie zu Ihrer Veranstaltung hinzufügen.

Endlich gibt es auch eine Frage von DoubleClick, die über Ereignis nicht feuern wird. Um alles zu überwinden, müssen Sie MouseClick zu MouseDown