Discussion :

[mormic]

Bonsoir

Je reviens vers vous pour une nouvelle galère que je n'arrive pas à résoudre:

j'ai un userform contenant une centaine de TextBox qui sont gérés par un module de classe.
Par exemple sur un double clic je fait une action: cela fonctionne parfaitement.
Je veux maintenant ajouter une action sur le clic droit de la souris--> j'ai donc ajouté la routine suivante pour voir si cela fonctionnait bien:

Code :

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

1
2
3
4
5
6
 
Private Sub TxtBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then
        MsgBox TxtBox.Value
    End If
End Sub

Un clic droit de la souris permet bien d'entrer dans la routine mais mon problème est que l'événement se produit 2 fois!
Si quelqu'un avait une idée pour m'éviter de passer encore des minutes sur ce Pb.

Merci
Michel

[Theze]

Bonjour,

Effectivement, c'est assez surprenant ! Tu peux utiliser la propriété Tag des contrôles pour définir un drapeau afin que le second appel reste sans effet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub TxtBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
    If TxtBox.Tag = True Then TxtBox.Tag = False: Exit Sub
 
    TxtBox.Tag = True
 
    If Button = 2 Then
 
        MsgBox "TxtBox_MouseDown"
 
    End If
 
End Sub

Hervé.

[mormic]

Bonjour Hervé

Comme tu dis, c'est surprenant surtout que j'ai essayé la même manip avec MouseUp et là cela fonctionne bien qu'une fois.

Merci pour ton aide précieuse je vais pouvoir continuer.

Michel