Cambio de carácter
Necesito que al ir ingresando una cadena de caracteres en un txt me valide que la cadena sea la primera en mayúscula y el resto en minúscula, se me había ocurrido que en el keypress, pero no me acuerdo muy bien del uso del mid, etc.
Si me ayudaras me sería muy útil.
Gracias
Si me ayudaras me sería muy útil.
Gracias
1 Respuesta
Respuesta de xaviz
1
Así por encima lo que se me ocurre es lo siguiente.
Privase Sub Text1_KeyPress(KeyAscci as Integer)
If KeyAscii < 97 Or KeyAscii > 122 Then Exit Sub
If Text1.SelStart = 0 Then
KeyAscii = KeyAscii - 32
End If
End Sub
Privase Sub Text1_KeyPress(KeyAscci as Integer)
If KeyAscii < 97 Or KeyAscii > 122 Then Exit Sub
If Text1.SelStart = 0 Then
KeyAscii = KeyAscii - 32
End If
End Sub
