Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
DataSession
Message
De
13/07/2006 17:01:15
 
 
À
13/07/2006 16:54:41
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Divers
Thread ID:
01136027
Message ID:
01136241
Vues:
11
>Sei como é! Apenas estava tentando conseguir uma solução diferente, mas sei que mais dia menos dia teria que criar um form padrão! Quanto à mudança do BaseClass não é tão dificil de ser feita! Basta apenas mudar a propriedade manipulando os scx de cada form! Nada que um bom prg não resolva!
>
Ricardo

algo como:
lcDir = getdir()
for ix = 1 to adir(aForms,addbs(m.lcminha_pasta)+"*.scx")
 use (addbs(m.lcminha_pasta)+aForms[m.ix,1])
 replace class with "myBaseForm", classloc with "< pasta da suaclasslib >" ;
   for lower(class) == "form" and empty(classloc)
 use
endfor
:)
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform