HOWTO: Appending Menu to an Existing Top-Level Form Menu

Last reviewed: March 20, 1997
Article ID: Q165408
The information in this article applies to:
  • Microsoft Visual FoxPro for Windows, versions 5.0, 5.0a

SUMMARY

This article describes how you can append a menu to an existing Top-Level Form menu.

MORE INFORMATION

In order to do this correctly, you need to check APPEND in the Location option of the General Options dialog box in the Menu Designer. When running the menu to be appended, you need to pass it the name of the existing Top- Level Form in which it is to be appended.

The following example shows you how you can create an append menu to an existing Top-Level Form menu.

  1. Create a menu.

  2. Type in "Test1" and "Test2" for menu pad names.

  3. Click General Options from the View menu. Select the Top-Level Form check box in the General Options dialog box.

  4. Generate the menu and save it as Menu1.mnx.

  5. Create a second menu.

  6. Type in "Test3" for the menu pad name.

  7. Click General Options from the View menu. Select the Append option for Location and the Top-Level Form check box in the General Options dialog box.

  8. Generate the menu and save it as Menu2.mnx.

  9. Create a form and name it Appform1.scx.

  10. Set the ShowWindow property for the form to "2 - As Top-Level Form" in the Properties window.

  11. Add two command buttons to the form and name them Button1 and Button2.

  12. In the Click event of Button1, type in the following code:

           DO menu1.mpr WITH THISFORM, .T.
    

  13. In the Click event of Button2, type in the following code:

           DO menu2.mpr WITH THISFORM, THISFORM.NAME
           && The append will not work without the second parameter.
    

  14. Run the form and choose Button1, and then Button2.

NOTE: Button1 makes the first menu appear, and button2 appends the second menu to the end of the first menu.


Keywords : FxtoolMBuilder vfoxwin kbhowto
Version : 5.0 5.0a
Platform : WINDOWS


THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: March 20, 1997
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.