Publicentral.com - promocion,paginas,web,tutores,publicentralPromocion de paginas webs
Mostrando Codigo - Visual Basic
Code

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.
Visitas: 28,756 - 23/12/2005 1:43:25
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
EXPLICACION

para el funcionamiento debe de haber un campo de formulario llamado Text1 

CODIGO


// Codigo ofrecido por Tutores.org

  1.   cr$ = Chr$(13) + Chr$(10)
  2.   t$ = Text1.Text
  3.   If t$ <> "" Then
  4.    Mid$(t$, 1, 1) = UCase$(Mid$(t$, 1, 1))
  5.    For i = 1 To Len(t$) - 1
  6.      If Mid$(t$, i, 2) = cr$ Then Mid$(t$, i + 2, 1) = UCase$(Mid$(t$, i + 2, 1))
  7.      If Mid$(t$, i, 1) = " " Then Mid$(t$, i + 1, 1) = UCase$(Mid$(t$, i + 1, 1))
  8.    Next
  9.    Text1.Text = t$
  10.   End If



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
bisconti
3 5
y como se hace para que pueda seguir escribiendo y no vuelva al inicio
Comentario usuario
cecilia aguas
1 5
esto no responde a nada de mis dudas lo que yo quiero saber es por que la mayuscula va al inicio de in texto
Comentario usuario
30-06-2012 23:18:26
3 5
me funciono a las mil maravillas muchas gracias
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.