17.03.2018, 13:54
Hallo Leute,
ein kleines Experiment auf der Userform:
Gegeben, absolut leere Userform einzigste Prozedur:
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
MsgBox Chr(KeyCode)
End Sub
Ihr clickt auf die Form und bekommt das entsprechende Zeichen angezeigt. So weit so gut.
Jetzt das Problem:
Ihr installiert noch einen CommandButton darauf:
Private Sub CommandButton1_Click()
CommandButton1.TakeFocusOnClick = False
End Sub
(Den Fokus habe ich schon mal versucht vom Commandbutton wegzunehmen, hat aber sonst nicht viel zu bedeuten!)
Und jetzt mein Problem: Ich möchte weiterhin das entsprechende KeyCode - Zeichen angezeigt bekommen, wenn ich irgendeine Taste drücke.
Der "CommandButton" überlagert aber die Userform Events.
Wie kriege ich so etwas hin?
ein kleines Experiment auf der Userform:
Gegeben, absolut leere Userform einzigste Prozedur:
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
MsgBox Chr(KeyCode)
End Sub
Ihr clickt auf die Form und bekommt das entsprechende Zeichen angezeigt. So weit so gut.
Jetzt das Problem:
Ihr installiert noch einen CommandButton darauf:
Private Sub CommandButton1_Click()
CommandButton1.TakeFocusOnClick = False
End Sub
(Den Fokus habe ich schon mal versucht vom Commandbutton wegzunehmen, hat aber sonst nicht viel zu bedeuten!)
Und jetzt mein Problem: Ich möchte weiterhin das entsprechende KeyCode - Zeichen angezeigt bekommen, wenn ich irgendeine Taste drücke.
Der "CommandButton" überlagert aber die Userform Events.
Wie kriege ich so etwas hin?