Hallo Leute,
ich habe ein Problem mit der KeyPreview-Methode in meinem Projekt.
Hier der Code:
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyDown
Unten
Case vbKeyUp
Oben
Case vbKeyRight
Rechts
Case vbKeyLeft
Links
End Select
End Sub
Sub Unten()
MsgBox "Pfeiltaste nach unten wurde gedrückt"
End Sub
Sub Oben()
MsgBox "Pfeiltaste nach oben wurde gedrückt"
End Sub
Sub Rechts()
MsgBox "Pfeiltaste nach rechts wurde gedrückt"
End Sub
Sub Links()
MsgBox "Pfeiltaste nach links wurde gedrückt"
End Sub
Das ganze funktioniert leider nur auf einer Standard-Form und auch nur dann wenn keine Steuerelemente auf der Form sind, trotz aktivierter KeyPreview-Eigenschaft.
Ebenso funktioniert es nicht wenn es sich um eine MDIChild-Form handelt (wohl aus den selben Gründen?)
Nur wenn ich den Fokus und den Tab immer auf der Titelleiste der Form habe, funktioniert es. Weiß jemand Rat. (Betrifft Win2K & XP)
Danke, Gruß
Jochen
ich habe ein Problem mit der KeyPreview-Methode in meinem Projekt.
Hier der Code:
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyDown
Unten
Case vbKeyUp
Oben
Case vbKeyRight
Rechts
Case vbKeyLeft
Links
End Select
End Sub
Sub Unten()
MsgBox "Pfeiltaste nach unten wurde gedrückt"
End Sub
Sub Oben()
MsgBox "Pfeiltaste nach oben wurde gedrückt"
End Sub
Sub Rechts()
MsgBox "Pfeiltaste nach rechts wurde gedrückt"
End Sub
Sub Links()
MsgBox "Pfeiltaste nach links wurde gedrückt"
End Sub
Das ganze funktioniert leider nur auf einer Standard-Form und auch nur dann wenn keine Steuerelemente auf der Form sind, trotz aktivierter KeyPreview-Eigenschaft.
Ebenso funktioniert es nicht wenn es sich um eine MDIChild-Form handelt (wohl aus den selben Gründen?)
Nur wenn ich den Fokus und den Tab immer auf der Titelleiste der Form habe, funktioniert es. Weiß jemand Rat. (Betrifft Win2K & XP)
Danke, Gruß
Jochen