Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Programmatically add code to all controls
Message
 
 
À
11/12/2003 18:07:41
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00858363
Message ID:
00858410
Vues:
22
Wooohooo! Pretty cool how that works, eh? IMO, the WriteMethod is the heart of builders.

>THANKS TO ALL THAT HELPED!
>
>The code that did it:
>
>
>MODIFY FORM \profiler32\progs\forms32\scendo NOWAIT
>aselobj(laForm, 1)
>loForm = laForm(1)
>for each loPage in loform.PageFrame.Pages
>   FOR EACH oControl IN loPage.COntrols
>      IF UPPER(LEFT(ocontrol.name,3))="TXT"
>         LcDesiredCode = "THISFORM.mcalendorse=.T." + CHR(13) ;
>         + oControl.ReadMethod("VALID")
>         oControl.WriteMethod("VALID", LcDesiredCode)
>      ENDIF
>   ENDFOR
>ENDFOR
>RETURN
>
Mark McCasland
Midlothian, TX USA
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform