Visual Basic - En mayusculas la primera letra de un texto
Códigos Visual Basic
Mediante Ucase y este codigo conseguimos que se muestre la primera letra del texto que se encuetra en Text1.Text en mayusculas mientras el resto se muestra en minusculas.
para el funcionamiento debe de haber un campo de formulario llamado Text1
CODIGO
// Codigo ofrecido por Tutores.org
cr$ = Chr$(13) + Chr$(10)
t$ = Text1.Text
If t$ <> ""Then
Mid$(t$, 1, 1) = UCase$(Mid$(t$, 1, 1))
For i = 1 To Len(t$) - 1
If Mid$(t$, i, 2) = cr$ Then Mid$(t$, i + 2, 1) = UCase$(Mid$(t$, i + 2, 1))
If Mid$(t$, i, 1) = " "Then Mid$(t$, i + 1, 1) = UCase$(Mid$(t$, i + 1, 1))
Next
Text1.Text = t$
EndIf
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - En mayusculas la primera letra de un texto" href="http://www.tutores.org/codigo/1583/" target="_blank">En mayusculas la primera letra de un texto</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
biscontibisconti
35
y como se hace para que pueda seguir escribiendo y no vuelva al inicio
Comentario usuario
cecilia aguascecilia aguas
55
esto no responde a nada de mis dudas lo que yo quiero saber es por que la mayuscula va al inicio de in texto