Como hacer que con las tecla de retroceso no cambie de textbox

[Mary]

Yo utilizo recién vfp lo que no me gusta es que cuando limpio manualmente las cajas de texto "Textbox " con la tecla de retroceso me limpia o borra pero se salta a las demás cajas y también las borras , no es como es php por ejemplo solo me borra una caja de texto y ya no me salta las demás solo con el mouse o tab se cambia las siguientes cajas de texto 

como hago para usar la tecla de borrar o retroceso y no se salte a otra caja de texto gracias 

[Luis Maria Guayan]

SET CONFIRM ON

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

[Víctor Hugo Espínola Domínguez]

Hola Mary

Tienes dos formas de lograr eso.

1) En el evento KEYPRESS del texbox:

Lparameters nKeyCode, nShiftAltCtrl

If m.nKeyCode == 127
    If This.SelStart = 0 And This.SelLength = 0
        Nodefault
        Return
    Endif
Endif

o

2) En el evento VALID del texbox:

If Lastkey() = 127
    Return (This)
Endif

DoDefault()

Saludos,

Víctor.
Lambaré - Paraguay.

[Hitiel Hernández]

Victor Hugo, fíajte que yo también tengo ese inconveniente y ya probé con el código que posteaste.

Cuando me movilizo con las flechas en los textbox y cambio un valor no hay problema, pero si lo hago con la tecla enter si me cambia

alguno de los textbox a cero. Cuál es la solución?

--

Sabiduría ante todo; adquiere sabiduría

[Víctor Hugo Espínola Domínguez]

Hola Hitiel

Envía el formulario para analizarlo, si depende de alguna(s) biblioteca(s) de clases entonces puedes converirlo a sc2 con el foxbin2prg.

Saludos,

Víctor.

Lambaré - Paraguay.

[Daniel Sánchez]

Maestro LM, la opción set confirm on, no impide que el cursor sale a otro campo cuando se llega al inicio del editbox cuando se va borrando con la tecla back o retroceso.

Saludos

--

Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047 RPM #948615385
Trujillo - Perú

P  Sugerimos no imprimir este e-mail a menos que sea absolutamente necesario. Protejamos el medio ambiente.

[Hitiel Hernández]

ok.

es nomás un formulario pequeño para aplicarlo en el sistema

[Víctor Hugo Espínola Domínguez]

Hola Hitiel

La explicación que se me ocurre es que es el comportamiento preestablecido del textbox cuando el dato a introducir es numérico, al presionar [Enter] los caracteres a la derecha del cursor se pierden. Nunca me había percatado de este comportamiento porque para la captura de datos numéricos uso una clase que acepta números y expresiones.

La solución es en el evento KEYPRESS:

Lparameters nKeyCode, nShiftAltCtrl

If m.nKeyCode == 127
    If This.SelStart = 0 And This.SelLength = 0
        Nodefault
        Return
    Endif
Endif

If m.nKeyCode = 13
    This.SelStart = Len(Trim(This.Text))
Endif

Saludos,

Víctor.

Lambaré - Paraguay.

[Hitiel Hernández]

ok, lo probaré y te comento

[Hitiel Hernández]

Victor Hugo, funciona perfecto; con un pequeño inconveniente.

Cuando te colocas en el textbox y le ingresas otro número viene VFP y se lo agrega al número que ya contenía el textbox, no reemplaza,

es decir:

Si antes tenías:    16.50

y ahora quieres tener 10

Te lo deja de esta manera: 1016.50

*----- La única excepción es cuando utilzas decimales.

[Víctor Hugo Espínola Domínguez]

Prueba con la propiedad SELECTONENTRY = .T.