Publicentral.com - publicentra, promocion, promocionar, buscadores, paginas webs, registroPublicentral.com - promocion de paginas web y negocios online
Mostrando Codigo - Visual Basic
Code

Visual Basic - Conversion de texto a Mayusculas o Minusculas

Códigos Visual Basic

El siguiente coxdigo convierte el texto que introducimos en un campo de texto del formulario a mayusculas o a minusculas.
Visitas: 104,874 - 26/10/2004 23:55:52
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
EXPLICACION

En un formulario debemos introducir un campo de texto que se llamará Text1 ( predetermindado )

Al escribir sobre este texto, este cambiara a mayusculas o minusculas automaticamente.

Mayusculas:
Text1.Text = UCase(Text1.Text)

Minusculas:
Text1.Text = L
Case(Text1.Text)

CODIGO


// Codigo ofrecido por Tutores.org

  1. Private Sub Text1_Change()
  2. Dim I As Integer
  3. Text1.Text = UCase(Text1.Text)
  4. I = Len(Text1.Text)
  5. Text1.SelStart = I
  6. End Sub



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Conversion de texto a Mayusculas o Minusculas" href="http://www.tutores.org/codigo/1414/" target="_blank">Conversion de texto a Mayusculas o Minusculas</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
mgaravito
2 5
me parece excelente el codigo le doy del 1- 10 10 puntos, yo tenia un codigo pareceidso pero en el keypress pero este igual resulta.
Comentario usuario
12/03/2006 16.01.17
2 5
Hola !
Tengo un pq problema...
La verdad es que nunca habia trabajado con VB y ahora lo hago con Excel.
Tengo este código que es ingresar en una casilla en Excel un texto que el usuario ingresa en el TextBox pero me genera un error al pegar el este codigo...

Private Sub TextBox1_Change()
Range("A6").Select
ActiveCell.FormulaR1C1 = "DGHO-UAO-AAO-" + TextBox1
End Sub

Al pegarlos supongo que queda asi:

Private Sub TextBox1_Change()
Range("A6").Select
ActiveCell.FormulaR1C1 = TextBox1
Dim I As Integer
TextBox1.TextBox = UCase(TextBox1.TextBox)
I = Len(TextBox1.TextBox)
TextBox1.SelStart = I
End Sub

Pero me genera error. Quien me puede decir como lo hago
Comentario usuario
progman
3 5
El codigo me parece exelente pero si activo ami me aparecen las letras alreve (HOLA = ALOH).
Comentario usuario
23/09/2005 22.53.03
3 5
Excelente el código, le doy un 10 de 10.Gracias y Saludos
Comentario usuario
Girminator
5 5
con esta instruccion es sufieciente:TextBox1.TextBox = UCase(TextBox1.TextBox)esa por sis ola te convierte el texto a mayusculasyo te recomiendo usar una cadena:dim mayusculas as stringmayusculas = UCase(TextBox1.TextBox)y listo, tu texto se convierte a mayusculas y queda almacenado en la cadena mayusculas, la cual ya puedes mofificar a placersaludos
Comentario usuario
UYI
3 5
hola!! necesito ke alguien me ayude a convertir de un texbox letras minusculas a mayusculas cuando de click en el botony me aparezca ya letras mayusculas en un label!! gracias!!!
Comentario usuario
jacque
1 5
muy buen aporte y si funciona a la perfeccion
Comentario usuario
tutopresto.it
1 5
excelente hijo ...

Private Sub TextBox1_Change()
Range("A6").Select
ActiveCell.FormulaR1C1 = TextBox1
Dim I As Integer
TextBox1.TextBox = UCase(TextBox1.TextBox)
I = Len(TextBox1.TextBox)
TextBox1.SelStart = I
End Sub

SINCERAMENTE ... DESCONOSCO
Comentario usuario
Sin definir
2 5
usa

vba.ucase(txtcampo.text)
Comentario usuario
fabianun
5 5
Una forma más fácil, rápida y breve sería hacerlo así:

Private Sub TextBox1_Change()
' Asigna el valor a la celda sin seleccionarla
Range("A6").value= TextBox1.Text
Dim I As Integer
TextBox1.TextBox = UCase(TextBox1.TextBox)
I = Len(TextBox1.TextBox)
TextBox1.SelStart = I
End Sub

para escribir una línea de texto que concatene o se una con otra se debe hacer con (&) no con (+)
Comentario usuario
hueyapan
5 5
¿Tendràn un codigo que al escribir en columnas A5:H50
Me escriba primera mayuscula?

Para pegar a hoja?
Comentario usuario
21-11-2007 14:50:03
2 5
Me sirvio mucho su ayuda, muchas gracias!!!
Comentario usuario
Sin definir
1 5
genial tu código después de buscar 6 horas el tuyo me funciono a la primera
Comentario usuario
Jepc18
2 5
hey perfecto el codigo...era lo que estaba buscando jeje muchas gracias..es un codigo sencillo pero como hace falta algunas veces verdad?..jeje
Comentario usuario
Danny Acosta
4 5
Alguein me puede ayudara, necesito un codigo que al salisr de un txt las palabras que haya ingresado la primer letra aparezca en mayusculas, las demas no, esto es en C#
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.