Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VFP 7 Beta 1 Formcount and _SCREEN
Message
From
26/06/2001 14:26:14
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00523544
Message ID:
00523728
Views:
18
>>Mark,
>>You should go a little deep to reach form ref :
>>
FOR EACH oObject IN _vfp.objects
>> FOR EACH oSub IN oObject.Objects
>>  FOR EACH oSub1 IN oObject.Objects
>>   IF oSub1.Baseclass = 'Form'
>>     ? oSub1.Caption
>>   endif
>>  endfor
>> endfor
>>endfor
However I use a simplier one I forgot to say :
>>
>>ON KEY LABEL 'f2' oForm1 = SYS(1270)
>>ON KEY LABEL 'f3' oForm2 = SYS(1270)
>>ON KEY LABEL 'f4' oForm3 = SYS(1270)
>>
>>Go on forms I desire and 'F2','F3','f4'...
>>Cetin
>
>Cetin,
>
>How in blue blazes did you find that? When I saw your post (and knowing you as I do), I said, "OK, he's knows something here", and went off trying to find out (via the usual sources). Nothing! Objects isn't documented anywhere in the MSDN Library. I tried the debugger (and something slightly similar to your code above). All I saw was the Objects property. C'mon, share. How did you find this?:-)

:) Hi buddy,
First of all sorry for the extra loop. When saying go a little deep I didn't mean that much but my fingers don't follow my brain :)
Actually it's from VFP5 udfobjcollector. When I started t build FoxyClasses it was one of my big helpers. There I noticed that if toplevel container was not a form collecting members via amembers() was impossible. So I thought what Application and _VFP objects hold. Just tried them in debugger and voila they had collections. Looking closely it more resembled a VB style < bg > and thought word-excel way to reach what I want :)
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform