Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Enumerate menu
Message
 
To
13/04/2004 15:06:51
Dave Nantais
Light speed database solutions
Ontario, Canada
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Title:
Miscellaneous
Thread ID:
00894515
Message ID:
00896145
Views:
16
SYS(2103) only returns the VFP internal menu names. I need to enumerate thru a custom menu built using the menu designer.

Troy

>>How can I get a list of all the menu bars for each menu pad on the active menu? I can find the pads, but not the menuitems defined for each pad.
>
>
>If you want to cycle through all of the menu pad names on the VFP system window use this code snippet :
>
>
>FOR lni = 1 TO CNTBAR("_msysmenu")
>
>laMenuName[lni] = GETPAD("_msysmenu",8)
>
>ENDFOR
>
>This gives you the internal names of each Menu Pad.
>
>Then you can use the contents produced by SYS(2013)
>to get the specific internal menu item names for the system menu.
>
>Finally, you can take the information from laMenuItem[lni] and SYS(2013) and use the PRMBAR command to get the text of each menu item name.
>
>What an annoying convoluted mess.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform