Validación de Caracteres y Teclas.

[stallman stallman]

Buenas Estimados Señores.

* Quisiera porfavor me puedan ayudar a agregar funciones a la siguiente validación:

1- Ésta validación solamente permite que se digiten los caracteres que se definen para la variable lcTecla (En el Evento KeyPress de un TextBox) :
 
Local lcTecla
         
          lcTecla = Chr(nKeyCode)   
 
            IF !lcTecla $ "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ abcdefghijklmnñopqrstuvwxyz " THEN
                    NODEFAULT
            ENDIF
            RETURN
       ENDIF


2- Cómo hago para que la validación me acepte también teclas Como:
ENTER
BACKSPACE
SUPR
TAB

Les agradezco mucho me puedan orientar.

[Walter R. Ojeda Valiente]

Cada caracter tiene un código numérico, tanto los que ves en tu teclado como aquellos que no ves.

Por ejemplo:
TAB = 9
ENTER = 13
ESC = 27
0 = 48
1 = 49
A = 65
B = 66

etc.

Utilitza nKeyCode sin la función CHR() para realizar las validaciones de los caracteres no imprimibles.

Por ejemplo:

  if nKeyCode = 9     && Si presionó la tecla TAB

  if nKeyCode = 13     && Si presionó la tecla ENTER

  if nKeyCode = 27     && Si presionó la tecla ESC

Saludos.

Walter.

---

Date: Wed, 29 Jun 2011 20:38:03 -0600
Subject: [vfp] Validación de Caracteres y Teclas.
From: stall...@gmail.com
To: publice...@googlegroups.com

[Intel Man]

Hola puedes hacer algo como esto:

Local lcTecla
         
          lcTecla = Chr(nKeyCode)   
 

            IF !lcTecla $ "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ abcdefghijklmnñopqrstuvwxyz " or inlist(lastkey(),13,7,....)
                    NODEFAULT
            ENDIF
            RETURN
       ENDIF


Donde 13=Enter  7=Backspace etc

Saludos

---

Date: Wed, 29 Jun 2011 20:38:03 -0600
Subject: [vfp] Validación de Caracteres y Teclas.
From: stall...@gmail.com
To: publice...@googlegroups.com

[stallman stallman]

Saludos Walter. y mil gracias.

Entiendo lo de los caracteres ASCII, lo que quiero es que se permita la ejecución de las taclas mencionadas, es decir que si se presiona por ejemplo SUPR se ejecute la función nativa de la tecla (en este caso borrar), igual con la tecla BACKSPACE, FLECHA_INQUIERDA, FLECHA_DERECHA; si lo hago mediante los IF que me indicas: por ejemplo :  if nKeyCode = 127     && Si presionó la tecla BACKSPACE

Cómo ejecuto el código nativo en éste IF de ésa tecla (en este caso retroceder un espacio y borrar)?



Te agradezco la colaboración Don Walter.

[stallman stallman]

Muchas Gracias Intel Man.

Realicé lo siguiente como me indicastes, sin embargo no produjo ningún resultado....

 Local lcTecla   
       
        lcTecla = Chr(nKeyCode) 

          IF !lcTecla $ "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ abcdefghijklmnñopqrstuvwxyz " OR INLIST(LASTKEY(),13,127,7,19,4)THEN
                NODEFAULT
          ENDIF
          RETURN

[Intel Man]

Hola, no lei bien tu codigo, intenta esto:

 Local lcTecla   
       
        lcTecla = Chr(nKeyCode) 

          if INLIST(LASTKEY(),13,127,7,19,4)
             return
          endif

          IF !lcTecla $ "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ abcdefghijklmnñopqrstuvwxyz "

                NODEFAULT
          ENDIF
          RETURN

Saludos

---

Date: Wed, 29 Jun 2011 21:42:57 -0600
Subject: Re: [vfp] Validación de Caracteres y Teclas.
From: stall...@gmail.com
To: publice...@googlegroups.com

[stallman stallman]

Saludos Intel Man, probé el código y me trabaja a placer.

Mil Gracias.!!

[James S]

Es algo tan sencillo como:

Local v

v = chr(m.nkeycode)

if !INLIST(LASTKEY(),13,127,7,19,4) or !isalpha(m.v)

    nodefault 

endif 

[Fidel Charny]

Oye James, se te quedó en el tintero? (01/07/2011)

[Ricardo Pina]

jajaja, "stallman stallman" ya es "ya esta man"

 

 

--

            

                   Ricardo Pina

Desarrollo y Servicios Informáticos

                  Profesionales
               www.dsip.com.ar