Visual Basic : Auf Tastendruck Programm schließen lassen

Zuerst natürlich in der Form (Designer) KeyPreview auf True setzen, dann im Code das hier einfügen:

Sub EndeAufTastendruck(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles Me.KeyPress

If e.KeyCode = Keys.P Then Me.Close() ' Oder für ein sofortiges Beenden der gesamten Anwendung anstelle von Me.Close() die drei Buchstaben «End» verwenden. End If

Am einfachsten ist, das hier einzufügen:

Sub New()
   Me.KeyPreview = True
End Sub

Sub EndeAufTastendruck(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles Me.KeyPress

   If e.KeyCode = Keys.P Then
        Me.Close()   ' Oder für ein sofortiges Beenden der gesamten Anwendung anstelle von Me.Close() die drei Buchstaben «End» verwenden.
   End If

End Sub

Sollte funktionieren (ist aus dem Kopf geschreiben).

Mit freundlichen Grüssen, Stefan Wittwer

Zuerst natürlich in der Form (Designer) KeyPreview auf True setzen, dann im Code das hier einfügen:

Sub EndeAufTastendruck(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles Me.KeyPress

If e.KeyCode = Keys.P Then Me.Close() ' Oder für ein sofortiges Beenden der gesamten Anwendung anstelle von Me.Close() die drei Buchstaben «End» verwenden. End If

End Sub

Wenn der Tastendruck unabhängig von Buttons geprüft werden soll, musst du den Callback an die Form hängen und dort die Funktion Form_KeyDown definieren, um den Tastendruck abzufangen.

Wenn dann deine Form nicht im Fokus ist (also der Benutzer einen anderen Dialog selektiert hat), springt die Funktion natürlich nicht an.

Die Form muss auch KeyPreview=true haben, wenn ich mich recht entsinne...