Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Get Object Reference to Form Control
Message
From
10/09/2004 15:08:37
Al Doman (Online)
M3 Enterprises Inc.
North Vancouver, British Columbia, Canada
 
 
To
10/09/2004 15:03:43
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00941146
Message ID:
00941178
Views:
21
>>>>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
Previous
Reply
Map
View

Click here to load this message in the networking platform