Bug des menus contextuels sous VB6

Question

Bonjour<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />


Si j'appelle un formulaire &#224; partir d'un menu contextuel, les menus contextuels du nouveau formulaire n'apparaissent plus. Comment &#233;viter ce bug.


Exemple
Dans mon Form1
J'ai un menu qui s'appelle "MonMenu" avec un sous menu qui s'appelle GO et qui ex&#233;cute le code pour ouvrir le form2

Private Sub Command1_Click()
    PopupMenu MonMenu &#8216;Ouvrir le menu popup
End Sub


Private Sub SousSousMenu_Go_Click()
    Form2.Show vbModal &#8216; Ouvrir le formulaire 2
End Sub

Dans mon Form2
J'ai un menu qui s'appelle menu avec un sous &#233;l&#233;ment et un bouton

Private Sub Command1_Click()
    PopupMenu Menu 
End Sub

Lorsque je clique sur Command1_click, &#231;a ne marche pas. Par contre si j'appelle mon formulaire 2 directement par un bouton sans passer par un menu contextuel ce fonctionne

Comment corriger ce probl&#232;me SVP

cs_CanisLupus · Answer

Salut,

Pour que &#231;a marche, il ne faut pas que tu ouvres form2 en modal.

Loup Gris

cs_globule · Answer

C'est impossible dans mon cas. J'ai modifi&#233; mon code pour qu'il declanche 
un Timer qui se coupe imm&#233;diatement et qui lance le Form2 en modal. 
Ca marche, mais c'est pas tres propre.

V&#233;ritable bug du VB ?

cs_CanisLupus · Answer

Bug ? je ne pense pas. Apr&#232;s tout, un form ouvert en modal c'est un peu comme une msgbox. Ca stoppe le prog tant qu'on n'a pas donn&#233; une des r&#233;ponses attendues

Je ne sais pas ce que tu veux faire exactement mais il doit y avoir un autre moyen. D&#233;cris mieux ton prob, si possible avec un bout de code (pas trop long).

Loup Gris

cs_globule · Answer

Vous n'avez pas bien compris mon probleme. Ce n'est pas les menus contextuels du Form1 qui me posent des problemes, il est normal qu'ils soient bloqu&#233;s, mais ceux du Form2 qui n'ont aucune raison d'etre bloqu&#233;s.


Mon probleme est simple. Quand j'appele un formulaire a partir d'un menu contextuel. Tous les menus contextuels de ce formulaire (celui qui &#224; &#233;t&#233; appell&#233; : Form2) ne fonctionnent plus. Si je l'appelle &#224; partir d'un simple bouton ca fonctionne. Donc c'est bien un bug, car ce probleme ne se produit pas d'en d'autres applications Windows. 

Il est normal que les menus contextuels du form1 soit bloqu&#233;s (comme tous les controles) puisque le Form2 est en modal, mais pas que les menus contextuels du Form2 soit bloqu&#233;s.
 
Si on appele le Form2 par un menu NORMAL du Form1, les menus du Form2 fonctionnent toujours. Alors pourquoi lorsqu'on appelle le Form2 par un menu contextuel, les menus contextuels du Form2 n'apparaissent plus : Ce n'est pas normal c'est bien un bug du VB6


D'ailleurs si on utilise mon astuce (mettre un Timer dans le menu contextuel du Form1 pour appeler le Form2 en VBMODAL) ca fonctionne, mais ca n'est pas tres propre.

cs_CanisLupus · Answer

Je ne pense avoir mal compris et je maintiens que ce n'est pas un bug mais une propri&#233;t&#233; du popupmenu. Mais je me suis sans doute mal exprim&#233;.

Extrait de l'aide de vb6 pour le popupmenu :

"...plusieurs menus contextuels ne peuvent &#234;tre affich&#233;s simultan&#233;ment. De ce fait, les appels de cette m&#233;thode ne sont pas pris en compte si un menu contextuel est d&#233;j&#224; affich&#233; ou si un menu d&#233;roulant est ouvert...."

Quand tu ouvres un form en modal, c'est comme si tu affichais une msgbox.
La proc&#233;dure click dans ton menu ou sousmenu ne se termine que lorsque tu refermes le form modal. Fais l'exp&#233;rience de mettre, par ex, msgbox "test" apr&#232;s ton form2.show vbmodal et tu verras que cette instruction n'est ex&#233;cut&#233;e qu'apr&#232;s fermeture du form.
Donc le menu de d&#233;part est toujours actif et on ne peut pas en afficher un autre, m&#234;me s'il est dans l'autre form.

Ta soluce du timer n'est pas tr&#232;s propre, c'est vrai, mais c'est encore la plus simple. Sinon, il faudrait passer par des api et l&#224;, &#231;a peut &#234;tre encore moins propre et surtout plus compliqu&#233;.

Loup Gris

jpleroisse · Answer

Il n'y a aucun bug

Essaie ceci

Dans la Form1 

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnuPopup
End If
End Sub


Private Sub mnuAjouter_Click()
Form2.Show
End Sub

Dans la Form2

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnuPopup
End If


End Sub


Private Sub mnuAjouter_Click()
Unload Me
End Sub

jpleroisse

cs_CanisLupus · Answer

>> jpleroisse > C'est vrai qu'il n'y a pas de bug, comme je l'ai expliqu&#233;. Essaie ton code avec Form2.Show vbModal au lieu de Form2.Show pour voir.
Si tu ne mets pas vbModal, &#231;a passera toujours.

Loup Gris

cs_globule · Answer

Merci jpleroisse, effectivement ca fonctionne dans le MouseDown

En fait j'utilise un composant special pour mes boutons (HLBButton6.ocx) et j'ai mis le code dans le dropDown. Ca provoque ce bug. Parcontre si je mets le code dans le mouseDown ca fonctionne.

Mais bon, finalement je ne suis toujours coinc&#233; car l'interet d'utiliser ce composant etait de pouvoir afficher le menu d&#233;roulant quand on cliquait sur la petite fleche a cot&#233; du bouton et donc d'utiliser la methode dropDown. Si vous trouvez la solution pour que ce fonctionne avec ce composant

jpleroisse · Answer

Exact je n'avais pas essay&#233; avec vbModal.

cs_CanisLupus · Answer

>> globule > tu aurais pu expliquer tout &#231;a d&#232;s le d&#233;but. On aurait perdu moins de temps.

Loup Gris

Bug des menus contextuels sous VB6

10 réponses

Discussions similaires