Programación General > Visual Basic 6.0 e inferiores

 Primer Caracter En Mayuscula De Un String

(1/3) > >>

UserCode:
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.

UserCode:
Tengo el siguiente código que podría indicarse que realiza la operación de mantener en una cadena la primera letra en mayuscula y el resto en minuscula, el problema está en que produce el error: Espacio de Pila Insuficiente.

Private Sub TxtNombre_Change()
    Dim i As Long
    Dim Reves As String
    Reves = ""
    For i = Len(TxtNombre.Text) To 1 Step -1
        Reves = Reves & Mid(TxtNombre.Text, i, 1)
    Next i
    TxtNombre.Text = StrConv(Reves, vbProperCase)
End Sub

Cómo podría solventar esto.
Saludos.

Sagutxo:
salu2.


--- Código: Text ---Dim TuCadena as stringDim Valstr as string Valstr= ucase(mid$(Tucadena,1,1)) & mid$(tucadena,2) Esto comvierte el string ya creado, pero si capturas los caracteres pulsados solo tienes que comprobar si el string que introduce tiene mas de 1 car, por ejemplo, con la función [B]Len[/B] y cambiar el primer caracter solo si [B]len(cadena) =1[/B] . 
No lo he probado pero supongo que tiene que funcionar

Espero haberte podido ayudar.

Agur

zareth:
holas  :hola:
tal vez te pueda servir esto:

--- Código: Text --- Private Sub Text1_Change()Dim x As IntegerIf Len(Trim(Text1.Text)) = 1 Then    Text2.Text = UCase(Mid(Text1.Text, 1, 1))ElseIf InStr(1, Text1.Text, " ", 1) > 0 Then    x = InStr(1, Text1.Text, " ", 1)    Text2.Text = UCase(Mid(Text1.Text, 1, 1)) + Mid(Text1.Text, 2, x - 1) + UCase(Mid(Text1.Text, x + 1, 1)) + Mid(Text1.Text, x + 2, Len(Text1.Text))Else    Text2.Text = UCase(Mid(Text1.Text, 1, 1)) + Mid(Text1.Text, 2, Len(Text1.Text))End IfEnd Sub  aki lo hice con dos cuadros de texto, solo cambia el valor de salida para ke sea en un cuadro de texto.. suerte

z4r3th  :comp:
PD: ojo ke esta validacion es para dos palabras, ejem: Augusto Valvuena. No lo he probado con tres o mas... pero ya tienes la idea... nos vemos

UserCode:
gracias a ambos probare con los códigos que me han indicado y les notifico.
saludos.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente