UPPERCASE

USUARIO.EXCLUIDOS 15/01/2005 19:04:58
#61029
TENHO UM PROBLEMAS. ESTOU DESENVOLVENDO UM PROGRAMA ONDE QUERO QUE QUANDO O USUARIO DIGITAR OS DADOS EM UM TEXTBOX OS DADOS JA ENTREM EM LETRAS MAIUSCULAR. ISTO é POSSIVEL POIS NA MINHA EMPRESA TRABALHAMOS COM UM PROGRAMA DESTE TIPO + NÃO CONSIGO ESTE RESULTADO DE JEITO NENHUM.
HELP ME!
FELIPEA 15/01/2005 21:09:50
#61077
Use isso numa textbox

Private Sub Text1_Change()
    Text1.Text = UCase(Text1)
    Text1.SelStart = Len(Text1)
End Sub
CAJU 15/01/2005 21:32:00
#61085 Resposta escolhida
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
VB6MASTER 15/01/2005 21:33:55
#61087
pode ser também:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Não se esqueça que a propriedade KeyPreview do Form deve ser TRUE.
WEBMASTER 15/01/2005 22:02:48
#61101
hehehe...igualzinho...rsrs
VB6MASTER 15/01/2005 22:13:55
#61102
é verdade, diferença de 05 segundos.
WEBMASTER 15/01/2005 22:23:12
#61105
eh...rsrs
Tópico encerrado , respostas não são mais permitidas
Voltar