vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Fenster & Forms01.11.02
Bei Betätigen der Esc-Taste MessageBox anzeigen

VB-Version:  VB5, VB6
 Views:  11.294 

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

 
 
Copyright ©2000-2020 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.