Converting characters to upper-case...

[YourSurrogateGod]

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?

[adcomp]

Hi;

Use LostFocus instead

text1.text = ucase(text1.text)

[Shuja Ali]

This code should help you in trapping the backspace..

'If keypressed is Backspace, don't do nothing
If e.KeyChar = vbBack Then
	Exit Sub
End If

[sanjay13]

if your only requirement is uppercassing of all characters entered then try setting the 'CharacterCasing' property of the textbox to 'Upper'.

[YourSurrogateGod]

Hi;

Use LostFocus instead

text1.text = ucase(text1.text)

That prevents me from inputting anything at all...

[YourSurrogateGod]

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 .