Como cambiar minúsculas
¿Cómo cambiar lo que se va escribiendo en un textbox a minúsculas?
En visual basic 6.0
Gracias un saludo
En visual basic 6.0
Gracias un saludo
1 Respuesta
Respuesta de Amin Cazares
1
Intenta esto: crea un modula en el cual declares esta función (en módulo para que la reconozca todo el programa)
"Function minusculas () (ByVal KeyAscii As Integer
If KeyAscii = KeyAscii + 32
End If
minusculas = KeyAscii
End Function"
y la mandas llamar en el evento keypress de la caja de texto mandandole el parametro keyascii. Quedaria asi;
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = minusculas(KeyAscii)
End Sub
"Function minusculas () (ByVal KeyAscii As Integer
If KeyAscii = KeyAscii + 32
End If
minusculas = KeyAscii
End Function"
y la mandas llamar en el evento keypress de la caja de texto mandandole el parametro keyascii. Quedaria asi;
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = minusculas(KeyAscii)
End Sub
