Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Issues with on escape & retry
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 2000 SP3
Divers
Thread ID:
01387783
Message ID:
01387924
Vues:
58
>Try modifying your code to this;
>
>
>Function EscapeKey
>LOCAL lnOldArea, lnRetval, llRet
>lnRetval = Messagebox("Are you sure you want to cancel?",32+3, "Escape pressed")
>
>IF lnRetval = 6 && Yes
>   llRet = .T.
>ELSE && No
>   llRet = .F.
>ENDIF
>RETURN llRet
>
>
>First I am moving the return to outside of the IF statement and second I have removed the RETRY which really only is usefull in an error handler.

Or even this! <g> ---
Function EscapeKey
#INCLUDE foxpro.h
LOCAL lnRetval

lnRetval = Messagebox("Are you sure you want to cancel?", MB_YESNOCANCEL+MB_ICONQUESTION, "Escape pressed")

RETURN (lnRetVal = IDYES)
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform