ucase

[Pavel Nedved 0]

Hi There, http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

 

What's up. Fala Pessoal, Estou precisando de uma forcinha, na verdade é uma coisa bem simples, mas espero que me dem um desconto.

 

Quero saber como eu posso fazer para deixar os txt's todos com UCASE defaut sem precisar colocar UCASE no lostfocus.

----------------------

Ex.: :MEU CAMPO TXT :

----------------------

 

Desde já agradeço! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[jubarick 0]

Esta dúvida já foi abordada em um tópico alguns dias atrás.

 

Tente utilizar o seguinte código...

 

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

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif Espero ter ajudado!

[Pavel Nedved 0]

Valeu jubarick, quebrando a cabeça aqui eu tinha conseguido, com o seguinte código.

 Dim ValorLen As Long    If txtnome.Text <> "" Then        txtnome.Text = UCase(txtnome.Text)        ValorLen = Len(txtnome.Text)        txtnome.SelStart = ValorLen    End If

Mas com a sua ajuda é claro que vou preferir o Seu código pois é mais limpo.

 

Obrigado, até a proxima.

[jubarick 0]

O seu código também tem um probleminha, caso estejamos digitando com o cursor no meio da string do TextBox o cursor será jogado para o final da mesma o que pode ser um pouco inconveniente...

 

O uso da variável ValorLen também é desnecessário.

 

If txtnome.Text <> "" Then       txtnome.Text = UCase(txtnome.Text)       txtnome.SelStart = Len(txtnome.Text)End If

[Pavel Nedved 0]

É Verdade http://forum.imasters.com.br/public/style_emoticons/default/yes.gif , muito obrigado pela correção. http://forum.imasters.com.br/public/style_emoticons/default/graduated.gif