SO MAIUSCULOS NO TEXTBOX

USUARIO.EXCLUIDOS 02/06/2005 23:55:08
#86707

Olá para todos.

é o seguinte, eu estou desenvolvendo um projeto e gostaria de colocar em todos os campos TextBox caracteres somente MAIÃÅ¡SCULOS para que tudo que o usuário digite fique automaticamente MAIÃÅ¡SCULO, sem nem mesmo o Caps Lock estar ativado.

Tem como?
USUARIO.EXCLUIDOS 02/06/2005 23:57:42
#86708
cara... tem 2 métodos.. o mais facil seria:

Private sub text1_change()
text1.text=ucase(text1.text)
End Sub


desse jeito fica + facil e mais rapido... ja o outro metodo seria por tratamento de keyascii... que já é mais complicado... ai se qrer... te explico.. depois...
USUARIO.EXCLUIDOS 03/06/2005 00:04:07
#86709
Pois é cara, eu já havia tentado fazer dessa forma, porém, você já testou aí? Vai notar que a cursor fica estático, deixando tudo o que foi digitado, ao contrário.

Valew
ALEXANDRE.SANTO 03/06/2005 01:39:35
#86713
Deixe a propriedade keyPreview do form como true e coloque esse codigo:

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

Assim tudo o que digitar no form ficará em Maiuscula !!!
JEAN.JEDSON 03/06/2005 07:51:37
#86729
se quiser apenas um text em específico, use o exemplo do Alexandre Santo, mas no evento keypress do text, e não do form.
USUARIO.EXCLUIDOS 03/06/2005 08:44:03
#86750
Private Sub txtSeu_text_Change()
txtSeu_text.Text = UCase(txtSeu_text.Text)
txtSeu_text.SelStart = Len(txtSeu_text.Text)
End Sub
LIZANDRO 03/06/2005 10:37:56
#86777
Uso 2 funções para isso, caso queira

  
Public Function ConverteMaiusculo(KeyAscii As Integer) As String
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    ConverteMaiusculo = KeyAscii
    If KeyAscii = 39 Then
        KeyAscii = 0
    End If
End Function

Public Function ConverteMinusculo(KeyAscii As Integer) As String
    KeyAscii = Asc(LCase(Chr(KeyAscii)))
    ConverteMinusculo = KeyAscii
End Function
LIZANDRO 03/06/2005 10:38:46
#86778
Faltou a chamada
  
Private Sub txtEndereco_KeyPress(KeyAscii As Integer)
    ConverteMaiusculo KeyAscii
End Sub
PEPE.LEGAL 04/06/2005 01:12:18
#86939
amigo, sugiro que coloque a conversao para maiusculas no evento lostfocus do testbox, garanto que tera menos problemas.

Private Sub Text1_LostFocus()
Text1.Text = UCase(Text1.Text)
End Sub
USUARIO.EXCLUIDOS 04/06/2005 07:16:56
#86947
cara.. a correção para aquilo...
Private Sub Text1_Change()
Text1.Text = UCase(Text1.Text)
Text1.SelStart = Len(Text1.Text)
End Sub


agora.. no problems....

e se alguma resposta resolver o seu problema.. não esqueça... encerre o tópico...
CAPITAO.GARCIA 04/06/2005 10:23:35
#86958 
   KeyAscii = Asc(UCase(Chr(KeyAscii)))
este eh o q ganha em facilidade
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar