Aug 22
¿Quisieras evitar que se ejecuten algunas funciones propias de VFP o darles un comportamiento diferente?; Por ejemplo que cuando invoques un MessageBox te muestre un Wait Window o una formulario tuyo con características similares o simplemente que no se muestre.
En el siguiente ejemplo el MessageBox se reemplazará por el Wait Window
#
Define Messagebox NoMsg=
Messagebox("Esto es un mensaje")Procedure
NoMsg(x,y,z)Wait Window x
EndProc
Y si deseas que no muestre nada sólo quita el Wait Window y listo.
Otro ejemplo; en este vamos hacer que la función ALLTRIM convierta enseguida a mayúsculas
#
Define Alltrim MiAlltrim?
Alltrim(" Esto es un mensaje ")Procedure
MiAlltrim(cTxt)Return Rtrim(ltrim(Upper(cTxt)))
EndProc
Tengamos en cuenta que dentro del procedimiento no podemos volver a llamar a la función ALLTRIM puesto que se presentaría un llamado recursivo a la misma función (MiAlltrim) a menos que utilice #Undefine Alltrim antes del RETURN.
Otro ejemplo básico, vamos a evitar que se utilice la función VAL
#
Define Val NoxVal?
Val("10")Procedure
NoxVal(cTxt)Return "Función no permitida"
EndProc
Bueno, puede hacer muchas cosas, sólo es cuestión de imaginación y necesidades
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
