Discussion :

[legos]

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

[Ndugu]

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

[Delbeke]

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 :

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

PopupMenu NomDuMenu

[legos]

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

A bientôt

[ProgElecT]

Code :

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

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 :

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

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

[legos]

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 mais ça marche.

Encore merci