Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question'############################################################### 'MENU CONTEXTUEL PAR LE CLIC DROIT (niveau 1) 'Description: Afficher un menu contextuel quand 'on clique sur le bouton droit de la souris. ' '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" ' '############################################################### ' Par Jefflec '############################################################### 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 Private Sub Label1_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 Private Sub mnuquitter_Click() Unload Me End Sub