Mayusculas en VB 6.0

[help_acosta]

Hola quisiera saber como puedo hacer para que un textbox aunque este desactivada la opcion Caps Look lo que ingrese se vuelva en MAYUSCULA

[fdx4u]

Hola, hace mucho que no toco VB6, pero creo que seria algo asi:

Public sub Text1_change()
text1.text = UCase(text1.text) // Ucase convierte en mayusculas el texto
text1.text = Len(Text1.text) // Posiciona el cursor al final del texto
end sub

Espero que te sirva.

[help_acosta]

voy a probar muchas gracias!!
pero tengo una duda por que pones public sub y no private sub????? como lo pone el editor de codigo de vb.

[Avellaneda]

Iniciado por help_acosta

Hola quisiera saber como puedo hacer para que un textbox aunque este desactivada la opcion Caps Look lo que ingrese se vuelva en MAYUSCULA

Hola, otra forma de hacerlo pero en el evento KeyPress del TextBox

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(StrConv(Chr(KeyAscii), vbUpperCase))
End Sub

[culd]

Iniciado por Avellaneda

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(StrConv(Chr(KeyAscii), vbUpperCase))
End Sub

Procesamiento de mas...

Algo mas simple y facil

Código:

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

[fdx4u]

Iniciado por help_acosta

voy a probar muchas gracias!!
pero tengo una duda por que pones public sub y no private sub????? como lo pone el editor de codigo de vb.

No me habia dado cuenta, hace mucho que no uso VB, no lo puse aproposito. Deberia ser "private sub"

[David]

En las FAQs ya está la respuesta a esa pregunta. Yo usaría el evento Change debido a que si hacemos en el KeyPress si el texto se coloca con copiar y pegar no lo convertirá a mayúsculas.