FoxPro/Visual FoxPro - forzar a salir del valid

 
Vista:

forzar a salir del valid

Publicado por Luighi (105 intervenciones) el 14/08/2007 19:25:00
tengo un form con al menos los cuadros de texto txtBuscar, txtCantidad
y un boton de comando cmdSalir
en el txtBuscar defini en el evento valid lo siguiente:
*-------------------------------------------------------------------------
cValor=allt(this.value)
if !empt(cValor)
--do case
------case <condicion1> && osea aqui tambien hago uso de cValor
-------------*y cosas que hago cuando esta condicion se cumple
-------------*me entere que no puedo usar setfocus aqui por eso hago lo siguiente:
-------------retu thisform.txtCantidad && me entere que esto dirige el enfoque
------case <condicion2>
-------------*y todo lo que tenga que hacer aqui
-------------retu .f.
------othe
-------------*y todo lo que tenga que hacer aqui si no pasa nada con las anteriores
--encase
else
--wait 'ingrese lo que desea buscar' wind nowa
--retu .f.
endif
*----------------------------------------------------------------------------
el problema es como sigue:
cuando le doy click al boton cmdSalir del formulario
el valid se ejecuta
sencillamente, como evito el valid al darle click en cmdSalir?
pues solo deseo cerrar el formulario sin que tenga que ejecutarse alguna otra cosa
otro problemita es que si llevo todo ese codigo con algunos cambios a otro evento
como trabajaria los return .f.?, pues hacer me evita que el enfoque avance
bueno espero pueda ayudarme un poquitin
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:forzar a salir del valid

Publicado por Plinio (7841 intervenciones) el 14/08/2007 19:31:14
Yo pondria mi codigo en el Keypress y asi pregunto
IF nkCode = 13 &&presionaron enter
**TU CODIGO

ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:forzar a salir del valid

Publicado por neo (1604 intervenciones) el 14/08/2007 19:45:40
o que desactives el objeto txtbuscar antes de ejecutar el cmdsalir...

Puede ser en el got focus del cmdsalir:

Thisform.txtbuscar.Enabled=.f.

Y en el Click() del cmdSalir:
thisform.release
**********************************

Saludos►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:forzar a salir del valid

Publicado por JorgeE (423 intervenciones) el 14/08/2007 23:43:53
En el evento KeyPress es donde debes de hacer tu codigo
recuerda que el valid se ejecuta cuando cambias de foco
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar