Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Restringir Teclado.

25/07/2003 - 23:28 por Aníbal | Informe spam
Ayuda Hacer una pregunta
Hola,
Quería saber cual es la mejor manera (el código más corto) para que en un
TextBox solo se puedan escribir letras (mayusculas y minusculas) y se pueda
precionar los botones, <Retroceso>, <Tab>,<Enter>,Ñ,ñ,<Espacio>
y todas las vocales con tilde (á,é,í,ó,ú.ÁÉÍÓÚ).
Yo lo hice pero me quedó muy largo y repeitivo:

Private Sub txt1_KeyPress(KeyAscii As Integer)

If KeyAscii > 90 Then
If ( _
KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 180 And _
KeyAscii <> 193 And KeyAscii <> 201 And KeyAscii <> 225 And _
KeyAscii <> 233 And KeyAscii <> 205 And KeyAscii <> 237 And _
KeyAscii <> 211 And KeyAscii <> 243 And KeyAscii <> 241 And _
KeyAscii <> 209 And KeyAscii <> 250 And KeyAscii <> 218 Then _
KeyAscii = 0
ElseIf KeyAscii < 65 And KeyAscii <> 8 And KeyAscii <> 9 And _
KeyAscii <> 10 And KeyAscii <> 32 Then
KeyAscii = 0
End If
End Sub

Si es posible, además que se pueda evitar de alguna manera la incersión de
caracteres en el TextBox mediante el bóton derecho del mouse.
Gracias.
email Siga el debateRespuesta 9 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Rodacaps
26/07/2003 - 09:26 | Informe spam
y por que no controlas que no puedas introducir números y ya está. Creo que
es lo mas rápido según he leido, referente al ratón, "no entiendo" a no ser
que te refieras al copiar y pegar, claro, de lo contrario no se a que te
refieres.
Espero te sea de ayuda

Saludos

Rodacaps

Avda. del Cid, 10 Bajo
System Valencia

"Aníbal" escribió en el mensaje
news:
Hola,
Quería saber cual es la mejor manera (el código más corto) para que en un
TextBox solo se puedan escribir letras (mayusculas y minusculas) y se


pueda
precionar los botones, <Retroceso>, <Tab>,<Enter>,Ñ,ñ,<Espacio>
y todas las vocales con tilde (á,é,í,ó,ú.ÁÉÍÓÚ).
Yo lo hice pero me quedó muy largo y repeitivo:

Private Sub txt1_KeyPress(KeyAscii As Integer)

If KeyAscii > 90 Then
If ( _
KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 180 And _
KeyAscii <> 193 And KeyAscii <> 201 And KeyAscii <> 225 And _
KeyAscii <> 233 And KeyAscii <> 205 And KeyAscii <> 237 And _
KeyAscii <> 211 And KeyAscii <> 243 And KeyAscii <> 241 And _
KeyAscii <> 209 And KeyAscii <> 250 And KeyAscii <> 218 Then _
KeyAscii = 0
ElseIf KeyAscii < 65 And KeyAscii <> 8 And KeyAscii <> 9 And _
KeyAscii <> 10 And KeyAscii <> 32 Then
KeyAscii = 0
End If
End Sub

Si es posible, además que se pueda evitar de alguna manera la incersión de
caracteres en el TextBox mediante el bóton derecho del mouse.
Gracias.




Preguntas similares

 

Busqueda sugerida :