by M.Irfan Ali (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 4th December 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Convert Lower case to Upper case
API Declarations
It's only 4 lines code
and easy to Understand
Call ConvUpcase(KeyAscii)
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
Call ConvUpcase(KeyAscii)
End Sub
Private Sub ConvUpcase(keyvalue As Integer)
If keyvalue >= 97 And keyvalue <= 122 Then
keyvalue = keyvalue - 32
End If
End Sub