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 =).
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
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
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.
muchas gracias por los codes =).
en el evento keypress del text:
Private Sub t_KeyPress(Index As Integer, KeyAscii As Integer)
KeyAscii = Asc(LCase(Chr(KeyAscii)))
end sub