Allow UPPER-CASE only in a Text Box

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

Original Author: Acable

Code

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


About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 118 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.