convertir txt a mayuscula minuscula mayuscuala...

[4D1cTo]

Estuve buscando info para hacer un conversor de texto...

si en una caja de texto escribo hola y apreto convertir quiero q aparezca HoLa , se entiende ?

estuve "googleando" y probando pero no me sale , la funcion ucase me pasa todo a mayuscula y la funcion lcase todo a minuscula ...
tmb encontre otro codigo que permite solamente tener la primer letra mayuscula y las demas minusculas
StrConv(text1, vbProperCase)
pero tmpoco se adecua a lo que yo busco

soluciones o ayudas plz

thx =).

[karmany]

Es sencillo, yo te he hecho un ejemplo que puedes modificar a tu gusto. Lo único ten en cuenta que si insertas un espacio la siguiente letra será igual que la anterior, pero lo puedes modificar si quieres..
Yo he hecho un Textbox: Text1 y un botón: Command1

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim y As String
palabra = Text1.Text
Text1 = ""
For x = 1 To Len(palabra) Step 2
y = UCase(Mid(palabra, x, 1))
Text1 = Text1 + y
Text1 = Text1 + LCase(Mid(palabra, x + 1, 1))
Next x
End Sub

[Cicklow]

Código [Seleccionar] Expandir


dim tmp as string
tmp=""
for i = 1 to len(text1.text)
if i mod 2 = 0 then
   tmp = tmp &  ucase(mid(text1.text,i,1))
else
   tmp = tmp &  lcase(mid(text1.text,i,1))
end if
next
text1.text = tmp
tmp=""

Este code lo que hace es convertir una en mayusculas y otra en minusculas sin inportar, espacios, numeros, etc..., lo del mod 2 =0 es porke si el resto de la divicion entre i / 2 es = 0 kiere de cir que es par, entonces es mayusculas, de lo contrario es un numero impar y es minusculas, saludos y suerte.

[4D1cTo]

muchas gracias por los codes =).

[Hadess_inf]

en el evento keypress del text:

Private Sub t_KeyPress(Index As Integer, KeyAscii As Integer)
  KeyAscii = Asc(LCase(Chr(KeyAscii)))
end sub