Uppercase character

[Panucci]

How can I set the textbox to Uppercase character when I'm digiting?

 

[dsi]

Try something like this:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 32 To 126  'printable characters
            Text1.Text = Text1.Text & UCase(Chr(KeyAscii))
            KeyAscii = 0
            SendKeys "{END}"
    End Select
End Sub

 

[dsi]

I just noticed that if you use shift-numeric keys, the text starts highlighting. Somewhat annoying.

Replace:
    SendKeys "{END}"
With:
    Text1.SelStart = Len(Text1.Text)