Clic droit sur un combobox

[RONIBO]

Bonjour,

Je voulais savoir si il était possible d'utiliser le bouton clic droit de la souris dans un combobox?

Merci d'avance.

A+

 

[Paf]

Re : Clic droit sur un combobox

Bonjour,

Oui, regarder du coté des évènements MouseUp et MouseDown d'une combobox

A+

 

[RONIBO]

Re : Clic droit sur un combobox

Re,

Merci pour la réponse, le problème est que je sais pas trop qu'est qui faut mettre dans ces événements. 🙁

A+

 

[xhudi69]

Re : Clic droit sur un combobox

Bonjour RONIBO,Paf, le Forum,

Avec ceci....peut-être....

Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
 '        ici ta macro
End If
End Sub

@+ 😎

 

[Paf]

Re : Clic droit sur un combobox

re

dans Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
quelque chose du genre:

If Button = 2 Then
    MsgBox "Clic Droit"
    ' code
End If

Bonne suite

 

[RONIBO]

Re : Clic droit sur un combobox

Re,

Vos deux code à l'air de bien fonctionner, par contre j'ai oublié de préciser que c'est pour afficher le menu, "Copier" et "coller"

Vous avez une idée?

 

[xhudi69]

Re : Clic droit sur un combobox

Bonjour RONIBO, le Forum,

Si c'est pour "Collé"

Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
SendKeys "^+V"
End If
End Sub

@+ 😎

 

[RONIBO]

Re : Clic droit sur un combobox

Re,

Merci pour le code 🙂

Une question, c'est normal qu'il m'active le verr. Num?

 

[xhudi69]

Re : Clic droit sur un combobox

Bonjour RONIBO, le Forum,

C'est un point que je n'ai pas pu résoudre et que microSoft donne une solution (mais n'as pas fonctionnée pour moi), désolé mais je ne retrouve pas le lien.......

@+ 😎