PopupMenu + Form Modal + PopupMenu

[LeandroA]

hola una pregunta, tengo dos formularios con dos menu, en los cuales utilizo PopupMenu, en el menu emergente del primer form llamo al segundo en forma modal y quiero utilizar nuevamente PopupMenu pero el menu no se muestra, alguien tiene alguna solucion elegante? (como para no usar un timer o menu con apis)


Form1

Código: [Seleccionar]

Option Explicit

Private Sub MenuAbrir_Click()
    Form2.Show vbModal
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    PopupMenu MenuArchivo
End Sub

Form2

Código: [Seleccionar]

Option Explicit

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    PopupMenu MenuEliminar
End Sub


[LeandroA]

al parecer esta mas que discutido este tema: Google y el mismísimo Microsoft propone el Timer. 

[Virgil Tracy]

¿ Y usando una variable en el form1 ? 

Código: (VB) [Seleccionar]

Option Explicit

Dim m_nMenu As Integer

Private Sub MenuAbrir_Click()
    m_nMenu = 1
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
    m_nMenu = 0
   
    PopupMenu MenuArchivo
   
    If m_nMenu = 1 Then Form2.Show vbModal

End Sub



[raul338]

Si le metes un for de 5 doevents o alguna espera activa corta antes de mostrar el form? Como para que de tiempo a que el menu desaparesca.

[LeandroA]

Buena Virgil, asi es mas lindo, con eso corta el circulo al salir del evento Click, y descarga la clase del menu, de lo contrario no se instancia de nuevo.