Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Recurse through all controls
Message
 
To
18/05/2004 07:28:14
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00904798
Message ID:
00905126
Views:
20
Ah - that's more like it. Thanks - I have never used the objects collection. I knew that there must be something like this.


>>Has anyone got a good tight routine that recurses through all controls on a form, including containers, pageframes etc. ?
>>
>>I keep coming up with code that looks too ugly to be doing it smart ! :)
>
>If you're in VFP 7 or later, you can use the Objects property. This is untested, but should give you the idea:
>
>
>FUNCTION Process
>LPARAMETERS oControl
>
>* Do whatever to oControl
>
>IF PEMSTATUS(oControl, "Objects", 5)
>   FOR EACH oObject IN oControl.Objects
>      This.Process(oObject)
>   ENDFOR
>ENDIF
>
>
>Oh, and the verb you're looking for is "recur," not "recurse."
>
>Tamar
Cheers,
Jamie
Previous
Reply
Map
View

Click here to load this message in the networking platform