DOCUMENT:Q181359  11-JAN-2001  [vbwin]
TITLE   :BUG: Pop-up Menu Click Event Does Not Execute in an MDI Program
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER:WINDOWS:5.0
OPER/SYS:
KEYWORDS:kbVBp500 kbGrpDSVB

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual Basic Learning Edition for Windows, version 5.0 
 - Microsoft Visual Basic Professional Edition for Windows, version 5.0 
 - Microsoft Visual Basic Enterprise Edition for Windows, version 5.0 
-------------------------------------------------------------------------------

SYMPTOMS
========

An active child menu displays a top-level menu from the MDI form using the
Popupmenu method. When you click the top-level menu item from the MDI form, the
click event does not execute.

RESOLUTION
==========

Use a second, invisible form to store the menu. Use the Popupmenu method to show
the menu items from the invisible form. The MORE INFORMATION section in this
article shows how to create a sample project that demonstrates this workaround.

STATUS
======

Microsoft has confirmed this to be a bug in the Microsoft products listed at the
beginning of this article. We are researching this bug and will post new
information here in the Microsoft Knowledge Base as it becomes available.


MORE INFORMATION
================

The following section shows how to create a sample project that demonstrates
this behavior and the workaround. The sample project contains two forms and one
MDI form.

Steps to Reproduce Behavior
---------------------------

1. Start a new Standard EXE project in Visual Basic. Form1 is created by
   default.

2. Set the Form1 form MDIChild property to True. Use the Menu Editor to add one
   top-level menu containing two sub-menus to the Form1 form. Set the menu
   properties to the following:

      Menu Type     Name            Caption
      ---------------------------------------------------------
      Top Level     mnuForm1        MDI Child Form Menu
      Sub Menu      mnuForm1Sub1    Bug Behavior
      Sub Menu      mnuForm1Sub2    Workaround Behavior

3. Add an MDI Form to the project. MDIForm1 is created by default. Use the Menu
   Editor to add one top-level menu containing one sub-menu to the MDIForm1
   form. Set the menu properties to the following:

      Menu Type     Name            Caption
      ----------------------------------------------------------
      Top Level     mnuMDIForm      MDI Menu
      Sub Menu      mnuMDIFormSub1  Display MDI SubMenu1 Message

4. Add a second form to the project. Form2 is created by default. Set the Form2
   Visible property to False. Use the Menu Editor to add one top- level menu
   containing one sub-menu to the Form2 form. Set the menu properties to the
   following:

      Menu Type     Name            Caption
      --------------------------------------------------
      Top Level     mnuForm2        Hidden Form Menu
      Sub menu      mnuForm2Sub1    Display Hidden Form SubMenu

5. Copy the following code to the Code window of the Form1 form:

         Private Sub mnuForm1Sub1_Click()
            MDIForm1.PopupMenu MDIForm1.mnuMDIForm
         End Sub

         Private Sub mnuForm1Sub2_Click()
            MDIForm1.PopupMenu Form2.mnuForm2
         End Sub

6. Copy the following code to the Code window of the Form2 form:

         Private Sub mnuForm2Sub1_Click()
            MsgBox "This is from the Hidden form sub menu."
         End Sub

7. Copy the following code to the Code window of the MDIForm1 form:

         Private Sub mnuMDIFormSub1_Click()
            MsgBox "This is from SubMenu1 of the MDI Form"
         End Sub

8. On the Run menu, click Start or press the F5 key to start the program. The
   Form1 menu appears in the menu bar of the MDI form. From the ChildMenu menu,
   click Bug Behavior. The menu from the MDI form displays as a pop-up menu.
   Click Display MDI SubMenu1 Message.

   BUG: The click event does not execute. The expected behavior is that a message
   box should appear.

   To see the workaround, click the Workaround Behavior from the ChildMenu menu.
   The menu from the Form2 form displays as a pop-up menu. Click Display Hidden
   Form SubMenu. A message box appears.

Additional query words:

======================================================================
Keywords          : kbVBp500 kbGrpDSVB 
Technology        : kbVBSearch kbAudDeveloper kbZNotKeyword6 kbZNotKeyword2 kbVB500Search kbVBA500 kbVB500
Version           : WINDOWS:5.0
Issue type        : kbbug
Solution Type     : kbpending

=============================================================================

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.

Copyright Microsoft Corporation 2001.