TextBox
Hola...
¿Cómo hago para que a medida que vaya escribiendo una persona en un textbox la primera letra de cada palabra se convierta en mayúscula?. Es decir si escribo "ana maría" que al escribir se ponga en mayúscula así "Ana María"
Gracias
¿Cómo hago para que a medida que vaya escribiendo una persona en un textbox la primera letra de cada palabra se convierta en mayúscula?. Es decir si escribo "ana maría" que al escribir se ponga en mayúscula así "Ana María"
Gracias
1 Respuesta
Respuesta de coctel
1
Esta es la manera más fácil, pero te pondrá mayúsculas en todas las palabras, quieras o no.
1.- En tu formulario ajusta la propiedad Keypreview a True.
2.- En el procedimiento Keypress de tu TEXTBOX por el siguiente código
Private Sub Form_KeyPress(KeyAscii As Integer)
a = Len(Text1.Text)
If a > 1 Then
If Mid$(Text1.Text, a, 1) = " " Then
B$ = UCase(Chr$(KeyAscii))
KeyAscii = Asc(B$)
End If
Else
If a = 0 Then
B$ = UCase(Chr$(KeyAscii))
KeyAscii = Asc(B$)
End If
End If
End Sub
1.- En tu formulario ajusta la propiedad Keypreview a True.
2.- En el procedimiento Keypress de tu TEXTBOX por el siguiente código
Private Sub Form_KeyPress(KeyAscii As Integer)
a = Len(Text1.Text)
If a > 1 Then
If Mid$(Text1.Text, a, 1) = " " Then
B$ = UCase(Chr$(KeyAscii))
KeyAscii = Asc(B$)
End If
Else
If a = 0 Then
B$ = UCase(Chr$(KeyAscii))
KeyAscii = Asc(B$)
End If
End If
End Sub
