Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: LeandroA en Febrero 22, 2015, 02:32:55 am
-
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
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
Option Explicit
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
PopupMenu MenuEliminar
End Sub
-
al parecer esta mas que discutido este tema: Google (https://www.google.com.ar/search?q=PopupMenu+%2B+Form+Modal+%2B+PopupMenu&rlz=1C1GGGE_enAR491AR491&oq=PopupMenu+%2B+Form+Modal+%2B+PopupMenu&aqs=chrome..69i57.942j0j4&sourceid=chrome&es_sm=122&ie=UTF-8) y el mismísimo Microsoft propone el Timer. :-X
-
¿ Y usando una variable en el form1 ? :P
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
-
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.
-
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.