SO MAIUSCULOS NO TEXTBOX

FELIPEA 04/06/2005 10:30:46
#86960
Fiz uma PROCEDURE
Veja:

Essa é a procedure que vai cuidar das palavras menores
Private Sub Fazer_Ucase(NomedaTextBox As Object, Texto)
    NomedaTextBox.Text = UCase(Texto)
    NomedaTextBox.SelStart = Len(NomedaTextBox)
End Sub


Coloque o nome da procedure no Text1_Change nesse formato:
Fazer_Ucase(NomedaTextBox , Texto)
Private Sub Text1_Change()
    Fazer_Ucase Text1, Text1
End Sub
USUARIO.EXCLUIDOS 04/06/2005 11:36:36
#86972
chega de enrolação... zuera... pronto assim serve:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub
USUARIO.EXCLUIDOS 05/06/2005 01:19:43
#87043
Muito obrigado a todos, foi de grandíssima ajuda. Utilizei esse método mesmo:

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

Até logo
USUARIO.EXCLUIDOS 05/06/2005 10:23:44
#87061
entaum feche o topico né.. hehehe
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar