Discussion :

[sunvialley]

Bonjour,

je voudrais pouvoir faire 2 choses sur un label : l'action de faire juste clic droit et afficher un menu contextuel.
En fait les évènements liés à mon label sont générés dynamiquement :
- clic gauche : selection du label (et memorisation d'un identifiant associé via l'appel d'une fonction)
- menu contextuel : ouverture de différent formulaire (qui utilise l'identifiant mémorisé)

Mon problème, c'est que si je ne fais pas de clic gauche sur mon control avant faire clic droit, mon menu contextuel ne fonctionne pas correctement.

Donc je me demandais si il existait une méthode qui permettait sur le clic droit :
- appel à cette fonction qui mémorise l'identifiant
- affichage du menu contextuel

(genre un "onRightClick" ...)

Merci

[sunvialley]

up ?

[FreeAccess]

Bonjour,
Sauf si je n'ai pas trés bien compris le problème, mais ...

- clic gauche : selection du label (et memorisation d'un identifiant associé via l'appel d'une fonction)

Donc ici tu arrive à "conserver" la valeur de ton label

- menu contextuel : ouverture de différent formulaire (qui utilise l'identifiant mémorisé)

Donc Ici, pourquoi tu ne te sers pas de cette valeur pour la passer en paramètre à ta fonction
En gros, pourquoi sur Clic Droit, tu ne mets pas la fonction qui te permet de récupérer la valeur de ton label
Bon, maintenant il est vraie qu'il se peut que je n'ai pas trés bien compris ta question

[LedZeppII]

Bonsoir,

Avec l'évènement 'Sur souris appuyée' tu interceptes les clics droit et gauche.
Un exemple sur mon contrôle zone de texte F1:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub F1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = acRightButton Then
   Select Case Nz(Me.F1)
      Case "A2", "A3"
           CommandBars("Chris1").ShowPopup
      Case Else
           CommandBars("Form Design Form").ShowPopup
   End Select
End If

End Sub

Voila, je pense que ça doit correspondre à ce que tu souhaites

A+

[sunvialley]

merveilleux, j'avais pas vu l'evenement onMouseDown et je n'y ai pas pensé une seconde (pourtant je m'en sert dans des applications autres qu'access).

Un grand merci, solution très simple en fait