Création de menus contextuels

Bonsoir,

Est-il possible de disposer de menus contextuels s'affichant à proximité de la souris lors d'un click droit et permettant de choisir entre différentes actions (comme dans Word, Excel ou tant d'autrees programmes).

Merci d'avance

Salut,

ca doit se faire facilement avec une forme que tu affiches à chaque click droit et aux coordonnées de la souris.

sinon tu fais une petite recherche pour menu contextuel

http://www.developpez.net/forums/sea...earchid=388112

a plus

Il faut d'abord créer une entrée dans les menus dont la propriété visible est a false, si on ne veut pas voir le popup menu affiché continuellement dans la barre des menus. ajouter les sous menus qui apparaitront lors du déclenchement du menu contextuel, et quand on a besoin d'afficher le popup, faire

Code:

---

PopupMenu NomDuMenu

---

Merci pour ces conseils mais je bloque dans la reconnaissance de l'évènement "click droit"

A bientôt

Code:

---

1 2 3

Private Sub MonControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MsgBox "valeur de Button = " & CStr(Button), vbInformation End Sub

---

ou

Code:

---

1 2 3

Private Sub MonControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MsgBox "valeur de Button = " & CStr(Button), vbInformation End Sub

---

Bouton droit: Button prendre pour valeur 0
Bouton gauche: Button prendre pour valeur 1

Merci pour vos conseils mais je ne pense pas avoir bien saisi la proposition de Delbeke car, lorsque je déclare un menu dont la propriété visible est à false, tous les sous-menus deviennent également invisibles.

Une bidouille consiste à insérer des boutons les uns en dessous des autres de telle sorte que cela fait penser à un menu lorqu'il est déroulé.

Ce n'est pas glorieux :oops: mais ça marche.

Encore merci :P

Oui, mais ils apparaitront avec la commande popupmenu et ce a l'endroit de ton curseur