Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Stop a form from releasing
Message
 
 
À
25/09/2011 20:47:41
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Divers
Thread ID:
01524681
Message ID:
01524684
Vues:
63
You will need to put NODEFAULT in the QueryUnload method.

>Hi All:
>
>How do you stop a form from releasing? I've tried returning .f. in the DESTROY and UNLOAD, but to no avail.
>
>(Since I could destroy the form by xing out OR by pressing the 'Close' button, I don't want to put the code in the close button.)
>
>Here's the code:
>
>
>LPARAMETERS tlError
>
>retparm = .t.
>
>IF tlError
>	lnResponse = MESSAGEBOX('At least 1 item has no labels! Are You Sure?', 52, 'No Labels')
>	IF lnResponse = 7  &&No
>		retparm = .f.
>	ENDIF
>ENDIF
>
>IF retparm
>	DODEFAULT()
>ENDIF
>
>RETURN retparm
>
>
>Thanks,
>
>Yossi
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform