Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
ON SHUTDOWN/File - Exit
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
ON SHUTDOWN/File - Exit
Divers
Thread ID:
00185955
Message ID:
00185955
Vues:
66
I have this code in my File - Exit pad:
LOCAL lnForm, lnFormToClose
lnFormToClose = 1
FOR lnForm = 1 TO _screen.FormCount
  IF TYPE("_screen.Forms(lnFormToClose)") == "O"
    IF _screen.Forms(lnFormToClose).QueryUnload()
      _screen.Forms(lnFormToClose).Release()
    ELSE
      RETURN .F.
    ENDIF
  ELSE
    lnFormToClose = lnFormToClose + 1
  ENDIF
ENDFOR
CLEAR EVENTS
DO cleanup
...and Cleanup does CLOSE DATABASES, CLEAR ALL, SET CLASSLIB TO, and so forth.

1) is this good ON SHUTDOWN code?
2) should I be looping backwards from _SCREEN.FormCount to 1?

I didn't include all my cleanup code because I know that my question is a bit vague anyway. I don't have an application object because it is a fairly simple modified legacy app.
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform