При вызове из первого меню, которое на первой форме, вторую форму, то на ней отказывается всплывать меню два.
А при другом способе, например через Button, то всё работает нормально.
Вот первая форма...
- Код: Выделить всё
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then Me.PopupMenu mnuPopUp
End Sub
Private Sub mnuPopUpForm2_Click()
Form2.Show vbModal
End Sub
Private Sub Command1_Click()
Form2.Show vbModal
End Sub
Вот вторая форма...
- Код: Выделить всё
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then Me.PopupMenu mnuPopUp
End Sub
Private Sub mnuPopUpExit_Click()
Unload Me
End Sub
Как заставить всплывать меню на второй форме?
.
