Jump to content

Convertir un texto a mayuscula en un TexBox


DRAMIDOM

Recommended Posts

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,

Link to comment
Share on other sites

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,

Link to comment
Share on other sites

  • 9 months later...

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.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy