Programación General > Visual Basic 6.0 e inferiores
Primer Caracter En Mayuscula De Un String
DiabloRojo:
Otra forma pero en el evento KeyPress:
--- Código: Text --- Private Sub Text1_KeyPress(KeyAscii As Integer) Dim TextAnt As String ' Almacena el contenido "actual" del Textbox Dim Letra As String ' Para chequear el último caracter que hay en el texto ' TextAnt = Text1.Text letra = Right(TextAnt, 1) If ((letra = " ") Or (Len(TextAnt) = 0)) Then KeyAscii = Asc(UCase(Chr(KeyAscii))) End IfEnd Sub
Esta forma de lograr que la primera letra de cada palabra sea mayúscula me gusta más ya que no toma el texto completo para modificarlo , cada vez que ocurre el evento (como sucede si se usa la función StrConv en el evento Change).
Saludos,
DiabloRojo.
UserCode:
uhmm... si cpmario el colocarlo en el LostFocus es una buena idea, ni lo pense asi, disculpas.
Muy buen código jodijo5 funciona a la perfección compadre, corto y eficiente.
Y mis felicitaciones a DiabloRojo también, no solo por un código que realiza estupendamente el trabajo sino por 2 formas de hacerlo.
Perdon por el retraso, a todos los programadores de este hilo, mis más sinceras y agradecidas felicitaciones (a todos) por igual, solo hasta ahora es que pude ver lo de este TextBox y pasar por aqui, en el peor de los casos haberlo dejado asi, sin la forma de cambiar o ajustar esto en el string, pero gracias a todos ustedes este TextBox podrá hacer lo pensado.
Muchas gracias, es una muy buena comunidad de programadores.
THE END.
Navegación
[*] Página Anterior
Ir a la versión completa