Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
List of forms in the project
Message
 
 
À
12/10/2011 12:50:23
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01526153
Message ID:
01526158
Vues:
64
>i want to have an array of forms used in the project.
>how can i do it.
>
>for exemple to views used in the dbc : adbobjects(aall_views, "View")

Take a look at this message Re: List Forms in project that are based on a given class Thread #1489643 Message #1489649
local lnI
local array laForms[1]
lnI = 0
MODIFY PROJECT <your project>
oProject = _VFP.ActiveProject
FOR EACH oFile IN oProject.Files
  IF oFile.Type = "K"
      lnI = m.lnI + 1
      dimension laForms[m.lnI] && re-dimension array
     laForms[m.lnI] = oFile.Name
  ENDIF
ENDFOR
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