Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Setting
Message
 
 
À
30/04/2001 13:14:01
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Divers
Thread ID:
00501638
Message ID:
00501652
Vues:
19
>Hi all,
>
>I need help !!! I'm lazy of setting the 'set talk off',set status off,set exclusive off,,, in all the form that datasection are set to 2 - private datasection ... any faster way ??
>
>Thanks

Do you have a class library where you have created a subclass of all the VFP base classes? If not, you should do so immediately and use those controls instead. Now that you have a form subclass in this library, you put all those commands in the form's Load method.

Now under the Tools menu, select Options. Click the Forms tab. Set the Form template to the Form subclass in your class library. Click Set As Default and close the options form.

Now to get all your forms using this subclassed form:
lnRetVal = adir(laForms, "*.SCX")
for i = 1 to lnRetVal
    lcForm = laForms[1,1]
    use (lcForm)
    replace Class with YourFormClassName, ;
      ClassLoc with "relative_path_to_classes\classlibwithformclass" ;
      for alltrim(lower(baseclass)) == 'form'
    use
    compile form (lcForm)
endfor
Mark McCasland
Midlothian, TX USA
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform