VB6 POPUPMENU COM BUG...ALGUEM SABE SOLUCAO?

VBSHAR 28/10/2009 08:06:09
#326406
Bom dia

Uso o VB6 SP6, e estou encontrando um bug no popupmenu, ao abrir uma janela através de um popup, se houver outro pop up nesta janela, ele não abre...me parece um BUG, pois se eu abrir a janela por um menu normal, não dá erro....


Segue abaixo passos para produzir o problema:

1) crie dois forms FORM1 e FORM2
2) Desenhe um menu (menu1) no FORM1 e um menu (menu2) no FORM2;
3) No codigo do menu1 coloque [Ô]FORM2.SHOW 1[Ô]
4) No form_click do FORM 1 coloque POPUPMENU menu1
5) No form_click do FORM2 coloque POPUPMENU menu2

Quando clico no FORM1 aparece o POPUP, clico nele aparece o FORM2, mas quando clico no FORM2 nada acontece...

vasculhei a net mas não achei solução... alguém ja passou por isso?
TECLA 28/10/2009 08:21:02
#326408 Resposta escolhida
Experimenta usar o evento MOUSEDOWN do FORM ao invés do CLICK

Exemplo:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then PopupMenu menu2
End Sub


Usei o VB6 com SP6 e funcionou!
MARCELO.TREZE 28/10/2009 09:30:32
#326418
a solução parece simples veja bem, pra você criar um popupmenu, o menu deve possui pelo menos um submenu

ex:

Menu1
...Submenu

e o evento para chamar o segundo form deve estar neste sub menu

desta forma não ocorrerá erro
Tópico encerrado , respostas não são mais permitidas
Voltar