Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Getting object reference via indirection?
Message
 
 
À
27/07/2016 11:31:35
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 8.1
Network:
Windows Server 2012
Database:
Visual FoxPro
Application:
Desktop
Virtual environment:
VMWare
Divers
Thread ID:
01638766
Message ID:
01638830
Vues:
82
>Hi all,
>
>I wanted to write some generic code that would continue to work even if I added objects to a screen at runtime.
>
>Is there another way to get an object reference to a screen object when part of the name is in a var?
>
>I know I can use PEMSTATUS() to test if the object exists. Say that below was in a loop to test for a dozen objects
>
>lnLoop = 5
>
>lcObjectName = "label" + LTRIM(STR(lnLoop))
>
>IF PEMSTATUS(THISFORM,lcObjectName,5)
>
> loLabel = THISFORM.&lcObjectName
>
>ENDIF
>
>Is there any other way to get a reference to the object other than macro expansion? I think I figured this out once but dang if I can find it.
>
>Thanks,
>Albert
IF TYPE("THISFORM.Label" + TRANSFORM(lnLoop)) = "O"
Christian Isberner
Software Consultant
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform