otreblig
09 de Septiembre del 2005

NECESITO LOS CODIGOS DE UN TEXBOX PARA QUE SOLO ACEPTE CARACTERES MAYUSCULSA ESTANDO DESACTIVADA CAPS LOCK Y NUMEROS EN EL MISMO TEXBOX EJPL

RFC
AIJL040598AD4

mvallejos
09 de Septiembre del 2005

eso puedes lograrlo filtrando y modificando el parámetro Keyascci del evento Keypress

Select Case KeyAscii
Case 13,8,9 27 'Permitir ENTER, retroceso, Esc
KeyAscii = KeyAscii
Case Asc("0") to Asc("9")
KeyAscii = KeyAscii
Case Asc("A") to Asc("Z")
KeyAscii = KeyAscii
Case Asc("a) to Asc("z")
' convertir a mayússcula
KeyAscii = Asc(Ucase$(Chr$(Keyascii)))
Case Else
KeyAscii = 0 ' anulo la tecla
End Select

victor
09 de Septiembre del 2005

hola amigo aca tengo un codigo q te pasa todo a mayusculas y te permite solo letras

Private Sub txtEsn_KeyPress(KeyAscii As Integer)

Select Case AscW(UCase(ChrW(KeyAscii)))
Case 65, 66, 67, 68, 69, 70
'son los ascii de las letras de la a la f
KeyAscii = AscW(UCase(ChrW(KeyAscii)))
Case Else
KeyAscii =0
End Select

End Sub

Gaston Flores
09 de Septiembre del 2005

Aca te envio un codigo un poco mas optimizado que los demas.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789" & "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ" & Chr(8) & Chr(13), Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Este codigo te permite que borres cualquier caracter CHR (8)
Y que des enter CHR(13)