Créer un menu contextuel (click droit) en 3 lignes de code...

Contenu du snippet

Un truc tout con...
Pour créer un menu contextuel au click droit, il suffit de créer un menu sur la feuille ou sur une autre.

Pour l'exemple, je prendrais un menu sur une autre feuille.
Vous pouvez néanmoins le placer sur votre feuille avec les autres et le rendre invisible au besoin.

Donc je crée un menu avec le créateur de menus.
Je met le code de mon menu dans la meme form que le menu.
J'appelle cette form: frmMenus

Maintenant, il faut afficher ce menu...
C'est ce que ce code fait:

Source / Exemple :


Private Sub control_Click() 'Quand on clique sur le contole "control"

PopupMenu frmMenus.mnuPop  'Affiche le menu "mnuPop" de la form "frmMenus"

End Sub

Conclusion :


Voila, je ne l'ai testé qu'avec VB6 puisque c'est le seul que j'ai ;)

En espérant que ça servira...
@++

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.