Alexforo
18 de Diciembre del 2003

HOLA QUE TAL TENGO UN PROBLEMA,
COMO LE HAGO PARA QUE UN TEXT ACEPTE SOLAMENTE MAYUSCULAS Y LAS REFLEJE AUNQUE EL USUARIO TENGA EL TECLADO ACTIVADO(CAPS LOCK) CON MINUSCULAS ... Y VICEVERSA

ESPERO SU AYUDA MUCHAS GRACIAS

naveguito
18 de Diciembre del 2003

La funcion ucase devuelve todo mayusculas por ejemplo :

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
Text1.Text = UCase(Text1.Text)
End Select
End Sub

Con este codigo lo que hago es dejar escribir al usuario como quiera mayusculas y minusculas luego cuando manda un intro lo que hago es convertir todo a mayusculas

Alexforo
18 de Diciembre del 2003

ENCONTRE ESTE CODIGO CHECALO ESTA INTERESANTE AQUI HASTA EN EL MOMENTO QUE ESCRIBES ACEPTA MAYUSCULAS SOLAMENTE

rivate Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >= 97 And KeyAscii <= 122 _
Then KeyAscii = KeyAscii - 32

End Sub


AQUI SOLO ACEPTA MAYUSCULAS COMO TE HABIA MENCIONADO PERO AHORA LO QUE QUIERO ES QUE NO ACEPTE CARACTERES QUE NO SEAN LETRAS COMO LO SON */-+?¿)& ETC. TU SABES

TIENES ALGUNA IDEA DE COMO HACER ESO?

naveguito
18 de Diciembre del 2003

Pues bueno has de saber el codigo ascii de esos caracteres y hacerlo con un if,por ejemplo seria asi
private sub text1_keyperss
if keyascii=42(codigo ascii del asterico) or keyascii=44(codigo ascii de la coma y asi sucesivamente) then
Keyascii=0
end if
end sub

P.D:si quieres saber los codigos ascii pones en el evento keypress de un Textbox lo siguiente msgbox keyascii

Espero que te ayude en algo

Buyeya
18 de Diciembre del 2003

Hola, proba con lo siguiente..
En el keyascii del textbox, si está entre 60 y 95 escribe de la A-Z en mayusculas..
If KeyAscii >= 60 And KeyAscii <= 90 Then
'ESTA EN MAYUSCULAS
ELSE
'Sino lo pasa a mayusculas
TEXT1.TEXT = UCASE(TEXT1.TEXT)
ENDIF
'Para hacerlo con minusculas, no creo que te cueste mucho..
Saludos