Uppercase

[Ironico 0]

Alguem podia me dar uma ajuda.Tenho uma caixa de texto - Text1Quero que qualquer texto digitado nessa caixa seja convertidoautomaticamente para Uppercase.coloqueiPrivate Sub Text1_Change() Text1.Text = UCase(Text1.Text)End SubSó que tudo que eu digito ele escreve na caixa de texto invertido.Se digito: paulo ele escreve PLUAPAlguem sabe como posso fazer isso ?

[jolienai 0]

VERIFIQUE SE É ISSO MESMO QUE você ESTÁ FAZENDO PORQUE O CODÍGO QUE você COLOCOU NÃO TEM NENHUM PROBLEMA...UM ABRAÇO!!!!

[William Rodrigues 0]

Brother !!!

 

Tenta colocar esse código no evento LostFocus().

Private Sub Text1_LostFocus()Text1.Text = UCase(Text1.Text)End Sub

Abraços,

William Rodrigues

[christianhess 0]

Private Sub Text1_Change()

Text1.Text = UCase(Text1.Text)

End Sub

Eu sei porq isso aconte:

 

a cada dígito que você digita ocorre o Text1_Change. Ai ele converte e escreve e daí vai colocando tudo pra frente, entedende.

 

deixa eu pensar um pouco...

 

você deve fazer como o William disse até eu achar outra maneira, eu já fiz isso mas naum me lembro agora

[William Rodrigues 0]

Salve pessoal !!!

Eu sei porq isso aconte:a cada dígito que você digita ocorre o Text1_Change. Ai ele converte e escreve e daí vai colocando tudo pra frente, entedende.

Muito bem christianhess...Ótima explicação !!!Abraços,William Rodrigues

[cassitos 2]

há uma alternativa:

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

    KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

O evento keypress ocorre antes do onchange, assim o código ASCII da tecla pressionada é convertida para o código ASCII maiúculo pressionado.

 

então: ASC, retorna o código ASCII da tecla pressionada em KeyAscii

Ucase... nem precisa falar né :P

chr, converte o código ascii em caracter.

 

Talvez seja trabalhoso, mas é bem eficiente para este caso.

 

ok?

[soloplayer 0]

Mano eu estava procurando este evento Tbm muito bom, grato ae.