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?

Hi;

Use LostFocus instead

text1.text = ucase(text1.text)

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

---

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

Quote:

---

Originally Posted by adcomp

Hi;

Use LostFocus instead

text1.text = ucase(text1.text)

---

That prevents me from inputting anything at all...

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 :) .