Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Routine to cycle and close all open forms?
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
MS SQL Server
Divers
Thread ID:
01412529
Message ID:
01412531
Vues:
92
This message has been marked as the solution to the initial question of the thread.
>I know I've seen reference to how to loop through all open forms and close them, but I can't find the right words to search it and get any results. Anybody of a reference to that?
>
>Thanks
>
>Kirk
lnFormToClose = 1
FOR lnForm = 1 TO _screen.FormCount
    IF TYPE("_screen.Forms(lnFormToClose).Name") == "C"
       IF _screen.Forms(lnFormToClose).Baseclass == "Form"
          _screen.Forms(lnFormToClose).Release()
       ELSE
          lnFormToClose = lnFormToClose + 1
       ENDIF
    ENDIF 
NEXT
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform