Menu contextuel par le clic droit

Description

Afficher un menu contextuel quand on clique sur le bouton droit de la souris.

Source / Exemple :


Salut ! J ai trouvé la technique de Pitrack un peu compliquée à comprendre, alors voici la mienne:

- Créez votre formulaire,
- Cliquez sur "Outils/Créateur de menus...",
- Dans "Captions", entrez "Menu", idem dans "Name",
- Créez un nouvel objet en cliquant sur "suivant",
- décalez le en cliquant sur la flêche pointant vers la droite,
- Dans "Captions", entrez "&Quitter", et dans "Name" entrez "MnuQuitter",
  (je n en ai mis qu'1 pour simplifier..)
- Validez par "OK",

- Dans le formulaire, cliquez sur "Menu/Quitter" et tapez:

  Private Sub mnuquitter_Click()
  End
  End Sub

- Dans le code du formulaire, tapez:

  Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 2 Then
      ' La fonction PopupMenu sert à afficher un menu contextuel
      PopupMenu menu
  End If
  End Sub

- Enfin, MASQUEZ le menu que vous avez créé en décochant la case "visible" de "Outils/Créateur de menus/menu"

Voilà, vous pouvez utiliser cette technique pour tous les objets qui supportent le "MouseDown"

Conclusion :


Jefflec
Des questions? Jefflec@caramail.com

Codes Sources

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.