Convertir un texto a mayuscula en un TexBox

[DRAMIDOM]

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,

[Gerson Pineda]

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

Gracias!

[DRAMIDOM]

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,

[Gerson Pineda]

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.

Que bueno y tomate tu tiempo! Saludos

[LUISFO]

Excelente aporte.

[tuve]

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.

[LUISFO]

Excelente funciona , gracias por tu aporte.