Make Uppercase or lowercase in Textbox

how to Make Uppercase or lowercase in Textbox

Original Author: Sokha RUN

Code

'This to change it to Uppercase while typing
Private Sub Text1_KeyPress(KeyAscii As Integer)
  KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
'This to change it to Lower case while typing
Private Sub Text1_KeyPress(KeyAscii As Integer)
  KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 87 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.