Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Get Object Reference to Form Control
Message
De
10/09/2004 15:08:37
 
 
À
10/09/2004 15:03:43
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00941146
Message ID:
00941178
Vues:
20
>>>>VFP5
>>>>
>>>>I have some checkbox controls in a Container-based Business Object. They are numbered sequentially Check1, Check2, etc.
>>>>
>>>>I need to process these sequentially and enable or disable them appropriately. I'd like to use a FOR loop but the method I'm using to get an object reference to each checkbox seems kludgy. Can anyone see a better way?
LOCAL ;
>>>>  lcCheckBoxName, ;
>>>>  loCheckBox
>>>>
>>>>FOR lnIx = 1 TO SomeNumber STEP 1
>>>>  lcCheckBoxName = "This.Check" + LTRIM(STR(lnIx))
>>>>  loCheckBox = &lcCheckBoxName
>>>>  * Name expression or EVALUATE() don't work in above line
>>>>
>>>>ENDFOR
>>>
>>>
>>>FOR lnIx = 1 TO SomeNumber STEP 1
>>>  with eval( "This.Check" + LTRIM(STR(m.lnIx)) )
>>>   *...
>>>  endwith
>>>ENDFOR
Cetin
>>
>>Nice, Cetin! Thanks.
>>
>>UPDATE: My original code DOES work with EVALUATE(). I thought I had tested this, obviously not. The VFP5 docs don't say anything about EVALUATE() being able to return an object reference, but evidently it can, as shown nicely by Cetin's code.
>
>I believe when you tested you just missed it with one letter or dot:) FYI in the same manner this works too :
>
>store Something to ("This.Check" + LTRIM(STR(m.lnIx)) + '.Someproperty')
>
>Cetin

Even nicer for my particular needs! Thanks again.
Regards. Al

"Violence is the last refuge of the incompetent." -- Isaac Asimov
"Never let your sense of morals prevent you from doing what is right." -- Isaac Asimov

Neither a despot, nor a doormat, be

Every app wants to be a database app when it grows up
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform