BUG: Pop-up Menu Click Event Does Not Execute in an MDI Program

• Microsoft Visual Basic Learning, Professional, and Enterprise Editions 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 kbGrpVB
Version : WINDOWS:5.0
Platform : WINDOWS
Issue type : kbbug