Bei Betätigen der Esc-Taste MessageBox anzeigen VB-Version:  VB5, VB6
	Views:  748

Möchten Sie eine Warnung anzeigen, wenn der Benutzer die Esc-Taste drückt? In diesem Fall muss die Form-Eigenschaft KeyPreview auf True festgelegt werden. Entweder geht das zur Entwurfszeit über das Eigenschaftenfenster oder per Code

Private Sub Form_Load()
  KeyPreview = True
End Sub

Damit erhält die Form noch vor den auf der Form befindlichen Controls die Möglichkeit, ganz gezielt auf bestimmte Tastendrücke zu reagieren. Den Druck auf dieEsc-Taste ermitteln Sie dann im Form_KeyPress-Event so:

Private Sub Form_KeyPress(KeyAscii As Integer)
  ' ESC ?
  If KeyAscii = 27 Then
    ' zurücksetzen, so dass kein anderes Control die Taste "auswerten" kann
    KeyAscii = 0
 
    ' MsgBox anzeigen
    MsgBox "Anwendung wird jetzt beendet!", vbInformation, "Achtung"
    Unload Me
    End
  End If
End Sub

Das war's dann auch schon