Caixa Alta

[D4rk Schn31d3r]

Como faço pra ao digitar numa caixa de texto, tudo ficar em caixa alta?

Private Sub txtUsuar_KeyPress(KeyAscii As Integer)
    KeyAscii = ?
End Sub

[Bruno Krebs]

Oque é caixa alta, é letra maiúscula??

[D4rk Schn31d3r]

Isso, isso, isso, isso. (by Chaves )

[Joaozava]

Tambem num entendi

[Joaozava]

foi mal num tinha visto seu post D4rk Schn31d3r ..

[D4rk Schn31d3r]

Um camarada de um outro fórum me ajudou, fica assim:

Private Sub txtUsuar_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

[PiGmEu]

Edit: Postamos juntos hein D4rk Schn31d3r eheheh

Se voce quiser q apos um LostFocus tudo fique em Maiuscula é assim:

Private Sub txtUsuar_LostFocus()
   txtUsar = UCase(txtUsar)
End Sub

Mas se voce quiser q a cada letra digitada ela se transforme em maiuscula não muda muito coisa... é assim:

Private Sub txtUsuar_Change()
      txtUsar.Text = UCase(Text1.Text)
      txtUsar.SelStart = Len(Text1)
End Sub

Abraços!

[D4rk Schn31d3r]

Postamos no mesmo minuto, hehehe. É isso ae, as 3 opçãos funcionam.

[William Rodrigues]

Postamos no mesmo minuto

hehehehe

que coisa né...

É isso ae, as 3 opçãos funcionam

Muito bem...

Gostei de ver D4rk Schn31d3r, correu atrás do que queria...é isso æ

Muito bem PiGmEu

Abraços,

William Rodrigues