Rubrik: Fenster & Forms | 01.11.02 |
Bei Betätigen der Esc-Taste MessageBox anzeigen VB-Version: VB5, VB6 | ||
Views: 12.792 |
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