Converting characters to upper-case...
Code:
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) _
Handles TextBox1.KeyPress
' replace the selected text with an uppercase character. (Inserts at caret position
' if no text is selected.)
If TextBox1.Text.Length < TextBox1.MaxLength Then
TextBox1.SelectedText = e.KeyChar.ToString.ToUpper
End If
' cancel standard processing.
e.Handled = True
End Sub
Ok, here's the problem. What I'm trying to do is have a small text box that will accept characters and automatically turn them into capital letters. However, when I try to erase characters using the back-space key, that doesn't work at all. What seems to be the problem?
Re: Converting characters to upper-case...
Hi;
Use LostFocus instead
text1.text = ucase(text1.text)
Re: Converting characters to upper-case...
This code should help you in trapping the backspace..
Code:
'If keypressed is Backspace, don't do nothing
If e.KeyChar = vbBack Then
Exit Sub
End If
Re: Converting characters to upper-case...
if your only requirement is uppercassing of all characters entered then try setting the 'CharacterCasing' property of the textbox to 'Upper'.
Re: Converting characters to upper-case...
Quote:
Originally Posted by adcomp
Hi;
Use LostFocus instead
text1.text = ucase(text1.text)
That prevents me from inputting anything at all...
Re: Converting characters to upper-case...
Quote:
Originally Posted by sanjay13
if your only requirement is uppercassing of all characters entered then try setting the 'CharacterCasing' property of the textbox to 'Upper'.
Geez, I can't believe I missed that. Thanks :) .