Tastatureingabe... Problem!!

Mailyn

Erfahrenes Mitglied
Also, bisher habe ich eine Tastatureingabe immer so verarbeitet, wie in dem angehängten Projekt! Aber da gibt es folgendes Problem: Sobald d Form einen Command-Button oder eine Textbox enthält, funktioniert das nicht mehr! Wie kann man das anders lösen?
 
Hallo, das kannst Du so machen:
Code:
Private Sub Form_Load()
  Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 27 Then Unload Me
End Sub
oder so:
Code:
Private Sub Form_Load()
  Me.KeyPreview = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
  If KeyAscii = 27 Then Unload Me
End Sub
 
Zurück