KeyDown Code

[Voltron]

Here is some code to prevent users from hitting certain keys that are not part of the alphabet or integers, such as F1, Esc, Ctrl, and so on.


Public Function DisableKeys(KeyCode As Integer)
Select Case KeyCode
Case vbKeyF1 'F1 Key
KeyCode = 0 'Makes it so that if user presses this key it will do nothing
Case vbKeyF2
KeyCode = 0
Case vbKeyF3
KeyCode = 0
Case vbKeyF4
KeyCode = 0
Case vbKeyF5
KeyCode = 0
Case vbKeyF6
KeyCode = 0
Case vbKeyF7
KeyCode = 0
Case vbKeyF8
KeyCode = 0
Case vbKeyF9
KeyCode = 0
Case vbKeyF10
KeyCode = 0
Case vbKeyF11
KeyCode = 0
Case vbKeyF12
KeyCode = 0
Case vbKeyHome 'Home Key
KeyCode = 0
Case vbKeyInsert 'Insert Key
KeyCode = 0
Case vbKeyPageDown 'Page Down
KeyCode = 0
Case vbKeyPageUp 'Page Up
KeyCode = 0
Case vbKeyDelete 'Delete
KeyCode = 0
Case vbKeyControl 'Ctrl
KeyCode = 0
Case vbKeyShift 'Shift
KeyCode = 0
Case vbKeyReturn 'Enter
KeyCode = 0
Case vbKeyLeft 'Left Arrow
KeyCode = 0
Case vbKeyRight 'Right Arrow
KeyCode = 0
Case vbKeyUp 'Up Arrow
KeyCode = 0
Case vbKeyDown 'Down Arrow
KeyCode = 0
Case vbKeyEscape 'Escape Key
KeyCode = 0
End Select
End Function