by Trinh Nguyen (4 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 27th July 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Force Upper Case in a Text box, Combo box, Mask edit box etc.,
API Declarations
'The method given below can be applied to a text box, combo box, Maskedit box, List box, etc.,
'Force UpperCase in Text1
KeyAscii = Asc(UCase(Chr((KeyAscii)))
End Sub
_________________________________
Private Sub combo1_KeyPress(KeyAscii As Integer)
'Force UpperCase in a combo box
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
__________________________________