Discussion :

[pier*]

Bonjour j'ai un probléme avec les menus contextuels.

Je dispose d'une feuille MDI qui posséde un menu normal. Cette feuille MDI posséde plusieurs formulaires(child form) , mais elle n'en n'affiche qu'un à la fois.

Mon probléme est qu'un formulaire dipose d'un menu contextuel que je souhaite voir apparaitre uniquement au clique droit. Malheuresement il prend également la place du menu principale (celui de la feuille MDI).

Comment faire ?

[ThierryAIM]

Fais voir le code d'appel de ton PopupMenu

[pier*]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub ListProp_ItemClick(ByVal Item As MSComctlLib.ListItem)
 
    If GetAsyncKeyState(VK_RBUTTON) <> 0 Then
        PopupMenu mnu
    End If
 
End Sub

Un menu que j'ai créeer grâce au menu-editor.

[ThierryAIM]

je ne connais pas tout le contexte de ton prog, mais comme je t'ai aider dans un autre post, j'ai une petite idée

tu dois créer le menu popup dans le menu de la form MDI et tu le mets en visible=false (le premier élément racine seulement)
puis tu l'appelles dans tes forms filles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub ListProp_ItemClick(ByVal Item As MSComctlLib.ListItem)
 
    If GetAsyncKeyState(VK_RBUTTON) <> 0 Then
        PopupMenu MDIForm1.popmnu1
    End If
 
End Sub

ca doit marcher

[pier*]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub ListProp_ItemClick(ByVal Item As MSComctlLib.ListItem)
 
    If GetAsyncKeyState(VK_RBUTTON) <> 0 Then
        PopupMenu frmMain.mnuPopUp
    End If
 
End Sub

frmMain est le nom de ma fenêtre MDI, malheuresement j'ai une erreur du type : "RunTime error 426 : Only one MDI Form allowed"

[ThierryAIM]

doit y avoir une bourde à qque part, car je viens de tester , ca marche très bien

[pier*]

mmh, j'ai cherché mais j' ai vraiment pas trouvé l'erreur. En tout cas merci quand même pour toute l'aide que tu m'as apporté jusque ici.

[ThierryAIM]

colle un point d'arrêt et fais un pas à pas pour voir d'ou provient l'erreur, car là, je ne saurais pas te dire
ou mets ton projet complet à dispo, que je jette un oeil (tu fais un zip et tu le mets sur un domaine) car je ne reproduis pas forcement l'erreur avec mes tests

[pier*]

C'est bon ca marche maintenant, je ne sais pas du tout d'où venait le probléme avant...
Merci