Saltar al contenido

Convertir un texto a mayuscula en un TexBox

publicado

Hola a todos, me quisiera unir a los aportes y para esto les doy este código que puede ser de gran utilidad. Supongamos que tenemos un texbox en el que introducimos textos pero deseamos que estos sean introducidos solo en mayuscula sin tener que tener el caps lock presionado. Haremos lo siguiente:

Private Sub Textbox1_Change()
Dim I As Integer
Textbox1.Text = UCase(Textbox1.Text)
I = Len(Textbox1.Text)
Textbox1.SelStart = I
End Sub[/PHP]

Si lo desean les subo un archivo con varios texbox programados con este codigo y asi puedan verlo trabajando.

Espero les sirva.

Saludos,

Featured Replies

publicado
  • Autor
Hola Dramidon es muy util tu aporte por lo que a muchos nos servira! (lo he probado y funciona perfecto)

Gracias!

Esta semana me dedicaré a subir aportes trataré de hacerlo con archivos también asi es mas util de ver el funcionamiento; y de dividirlo por temas. Veré si dispongo de tiempo.

Saludos,

  • 9 months later...
publicado

Una pequeña modificación:

 
Dim Posicion As Integer

Private Sub Textbox1_Change()
With TextBox1
.Text = UCase(.Text)
.SelStart = Posicion + 1
End With
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Posicion = TextBox1.SelStart
End Sub
[/PHP]

Con esto evitamos que al introducir texto entre varios caracteres nos mueva el cursor a la última posición.

publicado

Excelente funciona , gracias por tu aporte.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.