Primer Caracter En Mayuscula De Un String

[ale_xi]

Saludos

Me encuentro con el problema de ver como podría colocar a Mayuscula solo la primera letra de un string que se esté escribiendo en un TextBox e incluso que se evalue que si en el string hay un espacio en blanco, colocar en mayuscula la primera letra, y el resto quede en minuscula.

Ej: Augusto Valvuena

Unas lineas de código que haga esto sin que el usuario tenga que hacerlo por si mismo, algo automatizado.

Muchas gracias por cualquier ayuda.

[AxioUK]

Hola ale_xi

Prueba con esto:

Código: (VB) [Seleccionar]

Private Sub txtbox_LostFocus()
Dim sPalabra() As String
Dim Palabra As String
Dim i As Integer

sPalabra = Split(txtbox.Text, " ")

txtbox.Text = ""

For i = LBound(sPalabra) To UBound(sPalabra)
    Palabra = UCase$(Left$(sPalabra(i), 1)) & LCase$(Mid$(sPalabra(i), 2, Len(sPalabra(i))))
    txtbox.Text = txtbox.Text & " " & Palabra
Next i
End Sub

Saludos Cordiales

[ale_xi]

No me funcionó el codigo

[AxioUK]

Si Funciona, debes usarlo en el LOSTFOCUS del Cuadro de texto....

https://mega.nz/#!jc5l1SwI!S-JAxXar8OtRy_pX6p5ZVXutXEq7XQcLb9Qww6XlVzs

[ale_xi]

gracias AxioUK
Si me funcionó el código.. pero yo quiero usa evento Change

[AxioUK]

jajaja ese "yo quiero" me sonó a mi bebita cuando hace berrinche...

prueba con este Código en el Evento KEYPRESS

Código: (VB) [Seleccionar]

Private Sub txtbox_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeySpace Then
    sPalabra = Split(txtbox.Text, " ")
    txtbox.Text = ""
    KeyAscii = 0
    For i = LBound(sPalabra) To UBound(sPalabra)
        Palabra = UCase$(Left$(sPalabra(i), 1)) & LCase$(Mid$(sPalabra(i), 2, Len(sPalabra(i))))
        txtbox.Text = txtbox.Text & Palabra & " "
        txtbox.SelStart = Len(txtbox.Text)
    Next i
End If

End Sub


[LeandroA]

hola, esta función hace lo mismo pero vos ubicarla donde te guste

MsgBox StrConv("hola mundo", vbProperCase)

saludos.

[AxioUK]

Debo leer más... o usar más el Google...



Así debieras usarla en el evento Change, que es lo que querías:

Código: (VB) [Seleccionar]

Private Sub txtText1_Change()
With txtText1
    .SelStart = Len(.Text)
    .Text = StrConv(.Text, vbProperCase)
End With
End Sub


[ale_xi]

hola AxioUK... muchas gracias por enviarme el código, me funciono muy bien