• Home
 · 
• String Manipulation
 · 
• Allow UPPER-CASE only in a Text Box

Allow UPPER-CASE only in a Text Box

Easy trick to allow only text and converts it to upper-case. (Backspace is optional)

Rate Allow UPPER-CASE only in a Text Box

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case 8
      'Delete this line and backspace will not be allowed
    Case 65 To 90
      'UPPER-CASE is allowed, do nothing here
    Case 97 To 122
      'This is lower case. By turning off Bit-5 lower-case will converted to UPPER-CASE
      KeyAscii = KeyAscii Xor 32
    Case Else
      'Other keys are not allowed. Set KeyAscii to 0 and nothing will be printed.
      KeyAscii = 0
  End Select
End Sub