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.
Tutores.org
Mostrando Codigo - Visual Basic
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 = LCase(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 -->
<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
mgaravitomgaravito
4
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
Gabo
12/03/2006 16.01.17
4
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
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
progmanprogman
3
5
El codigo me parece exelente pero si activo ami me aparecen las letras alreve (HOLA = ALOH).
Comentario usuario
David
23/09/2005 22.53.03
1
5
Excelente el código, le doy un 10 de 10.Gracias y Saludos
Comentario usuario
GirminatorGirminator
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
UYIUYI
4
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
tutopresto.ittutopresto.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
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
fabianunfabianun
1
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 (+)
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
hueyapanhueyapan
1
5
¿Tendràn un codigo que al escribir en columnas A5:H50
Me escriba primera mayuscula?
Para pegar a hoja?
Me escriba primera mayuscula?
Para pegar a hoja?
Comentario usuario
Sin definirSin definir
1
5
genial tu código después de buscar 6 horas el tuyo me funciono a la primera
Comentario usuario
Jepc18Jepc18
3
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 AcostaDanny Acosta
2
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#
Comentario usuario
user123user123
4
5
Excelente el Codigo de Mayusculas a Mnusculas con LCase el problema es que cuando se escribe en el TexBox una emaeil toda en mayúscula el ultimo carácter queda en mayúsculas ejemplo:
123ABC@YAHOO.COM con la macro LCase 123abc@yahoo.coM
la única solución que veo es pner un punto final y luego borrarlo agradecería si se pudiera hacer la correcion GRACIAS
123ABC@YAHOO.COM con la macro LCase 123abc@yahoo.coM
la única solución que veo es pner un punto final y luego borrarlo agradecería si se pudiera hacer la correcion GRACIAS
INSERTAR COMENTARIO