Publicentral.com - Promocion en cientos de buscadoresPromocion en cientos de buscadores
Mostrando Codigo - Visual Basic

Conversion de texto a Mayusculas o Minusculas

El siguiente coxdigo convierte el texto que introducimos en un campo de texto del formulario a mayusculas o a minusculas.
Visitas: 95299 - 26/10/2004 23:55:52
CODIGO SIN DEMOSTRACIONCODIGO NO EJECUTABLENO CONTIENE ARCHIVO DESCARGABLE
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
Private Sub Text1_Change()
Dim I As Integer
Text1.Text = UCase(Text1.Text)
I = Len(Text1.Text)
Text1.SelStart = I
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
mgaravito
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.
Gabo 12/03/2006 16.01.17
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
progman
El codigo me parece exelente pero si activo ami me aparecen las letras alreve (HOLA = ALOH).
David 23/09/2005 22.53.03
Excelente el código, le doy un 10 de 10.Gracias y Saludos
Girminator
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
UYI
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!!!
jacque
muy buen aporte y si funciona a la perfeccion
tutopresto.it
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
Sin definir
usa

vba.ucase(txtcampo.text)
fabianun
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 (+)
hueyapan
¿Tendràn un codigo que al escribir en columnas A5:H50
Me escriba primera mayuscula?

Para pegar a hoja?
miguel 21-11-2007 14:50:03
Me sirvio mucho su ayuda, muchas gracias!!!
Sin definir
genial tu código después de buscar 6 horas el tuyo me funciono a la primera
Jepc18
hey perfecto el codigo...era lo que estaba buscando jeje muchas gracias..es un codigo sencillo pero como hace falta algunas veces verdad?..jeje
Danny Acosta
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.