The information in this article applies to:
- Microsoft Visual Basic Control Creation, Learning, Professional, and
Enterprise Editions for Windows, version 5.0
- Microsoft Visual Basic Standard, Professional, and Enterprise Editions,
16-bit and 32-bit, for Windows, version 4.0
SYMPTOMS
If an application contains at least two forms and one of those forms is
displayed modally by using a PopupMenu on another form, a PopupMenu on the
modal form will not be displayed.
RESOLUTION
A Timer control can be used to work around this problem:
- Start a new Standard EXE project. Form1 is added by default.
- Add a Timer control (Timer1) to Form1.
- Add another form (Form2) to the project.
- On Form1, create a menu (mnuFile) with a caption of "File" that has a
submenu (mnuOpen) with a caption of "Open." On Form2, create a menu
(mnuEdit) with a caption of "Edit" that has a submenu (mnuFind) with a
caption of "Find."
- Add the following code to the General Declarations section of Form1:
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1
End Sub
Private Sub Form_Click()
PopupMenu mnuFile
End Sub
Private Sub Timer1_Timer()
Form2.Show 1
Timer1.Enabled = False
End Sub
Private Sub mnuOpen_Click()
Timer1.Enabled = True
End Sub
- Add the following code to the General Declarations section of Form2:
Private Sub Form_Click()
PopupMenu mnuEdit
End Sub
- Press the F5 key to run the program. Click on Form1 and the Open
PopupMenu will be displayed. Click on the Open PopupMenu and Form2 is
shown modally. Click on Form2 and the Edit PopupMenu is displayed.
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
Steps To Reproduce Problem
- Start a new Standard EXE project. Form1 is added by default.
- Add another form (Form2) to the project.
- On Form1, create a menu (mnuFile) with a caption of "File" that has a
submenu (mnuOpen) with a caption of "Open." On Form2 create a menu
(mnuEdit) with a caption of "Edit" that has a submenu (mnuFind) with a
caption of "Find."
- Add the following code to the General Declarations section of Form1:
Private Sub Form_Click()
PopupMenu mnuFile
End Sub
Private Sub mnuOpen_Click()
Form2.Show 1
End Sub
- Add the following code to the General Declarations section of Form2:
Private Sub Form_Click()
PopupMenu mnuEdit
End Sub
- Press the F5 key to run the program. Click on Form1 and the Open
PopupMenu will be displayed. Click on the Open PopupMenu and Form2 is
shown modally. Click on Form2 and the Edit PopupMenu is not displayed.
|