I need to be able to stop users using the shift key. This is to stop the use of Uppercase letters.
I can't use the Ucase$ statement because I need to change Vowel letters into capitals by using code.
Printable View
I need to be able to stop users using the shift key. This is to stop the use of Uppercase letters.
I can't use the Ucase$ statement because I need to change Vowel letters into capitals by using code.
An easy way would be to trap on the Keypress event and convert Upper case keystrokes to lower case.
Here is a small example using a TextBox
private Sub Text1_KeyPress(KeyAscii as Integer)
Debug.print KeyAscii
If KeyAscii > 64 And KeyAscii < 91 then KeyAscii = KeyAscii Or &H20
End Sub
John G