Capturing Keystroke in Key Press Event

Topic

New Reply

How to capture the keystroke which initiates a KeyPress event?
How could we find out if Esc or Ctrl+I has been pressed?
Armstrong

Reply | Quote

Replies

How to capture the keystroke which initiates a KeyPress event?
How could we find out if Esc or Ctrl+I has been pressed?
Armstrong

To test what key has been pressed you actually need to use the Key Down event.

Code:

Private Sub infantID_KeyDown(KeyCode As Integer, Shift As Integer)
	If KeyCode = vbKeyEscape Then
		MsgBox "Escape Key"
	ElseIf (KeyCode = vbKeyI) And (Shift And acCtrlMask) > 0 Then
		MsgBox "Ctrl I"
	End If
End Sub

Search in VBA help for more on this event. Search for Keycodes and it lists all the vb constants that represent the various keys.

Reply | Quote

To test what key has been pressed you actually need to use the Key Down event.

Code:

Private Sub infantID_KeyDown(KeyCode As Integer, Shift As Integer)
	 If KeyCode = vbKeyEscape Then
		 MsgBox "Escape Key"
	 ElseIf (KeyCode = vbKeyI) And (Shift And acCtrlMask) > 0 Then
		 MsgBox "Ctrl I"
	 End If
 End Sub

Search in VBA help for more on this event. Search for Keycodes and it lists all the vb constants that represent the various keys.

Hi John,
Thanks for your help. Is KeyCode property available in Macro?
Armstrong

Reply | Quote

Is KeyCode property available in Macro?

Not that I know of, but I have not written macros for many years now, so I am very rusty on what they can and cannot do.

Reply | Quote

How to capture the keystroke which initiates a KeyPress event?
How could we find out if Esc or Ctrl+I has been pressed?
Armstrong

Hi Armstrong,

For the values of any kestroke combination, try something along the lines of:

Code:

Private Sub TextBox1_KeyUp(ByVal KeyAscii As MSForms.ReturnInteger, ByVal Shift As Integer)
TextBox1.Text = KeyAscii & "," & Shift
End Sub

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Reply | Quote

Hi Armstrong,

For the values of any kestroke combination, try something along the lines of:

Code:

Private Sub TextBox1_KeyUp(ByVal KeyAscii As MSForms.ReturnInteger, ByVal Shift As Integer)
 TextBox1.Text = KeyAscii & "," & Shift
 End Sub

Hi Paul,
I’m sorry. I should have been more explicit about the purpose.
After a user presses Esc, my macro should cancel the Add Event.
How could my macro capture the keystroke the user just pressed?
Armstrong

Reply | Quote

How could my macro capture the keystroke the user just pressed?

Why do you keep on asking? You can’t use a macro for that; you need VBA to capture keystrokes.

Reply | Quote

Why do you keep on asking? You can’t use a macro for that; you need VBA to capture keystrokes.

Hi HansV,
I’m sorry. I didn’t know I kept asking. Now I realize. Thanks for your reminder.
Armstrong

Reply | Quote