Trucos de Visual Basic 6.0 Convertir un texto a mayúsculas o minúsculas


Crear un formulario y situar un TextBox. Escribir:

Private Sub Text1_Change()
Dim I As Integer
Text1.Text = UCase(Text1.Text)
I = Len(Text1.Text)
Text1.SelStart = I
End Sub

Comentarios sobre Convertir un texto a mayúsculas o minúsculas

Jorge dice:

No hace falta tanto codigo, con poner: Private Sub Text1_Change() Text1.Text = UCase(Text1.Text) End Sub es suficiente
Comentario publicado 17/03/2010 6:16:00
José Romo dice:

Que tal! es una buena forma de cambiar a mayusculas conforme vamos escribiendo... PERO... lo que nos dice jorge: Text1.Text = UCase(Text1.Text) no funciona, puesto que pondra en orden inverso las letras... es decir, la primer letra que pongamos, quedara al final del textbox y con el primer código (el largo) no acepta los espacios, pone todo junto, sabran alguna forma de evitar esto?... gracias
Comentario publicado 18/03/2010 20:36:00
Ariel dice:

En el evento KeyPress If KeyAscii = 13 Then TextModelo.SetFocus Else KeyAscii = Asc(UCase(Chr(KeyAscii))) End If
Comentario publicado 28/04/2010 3:16:00
Dejar un comentario
Nombre:

Mail:

Web:

Comentario: