• Home
 · 
• Miscellaneous
 · 
• Force Upper Case in a Text box, Combo box, Mask edit box etc.,

Force Upper Case in a Text box, Combo box, Mask edit box etc.,

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.,



Rate Force Upper Case in a Text box, Combo box, Mask edit box etc.,

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

  '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
__________________________________