Code permettant de sélectionner une ligne de listbox avec le clic droit comme avec le clic gauche.
Dans une feuille possédant une listbox 'list1', coller le code suivant :
Source / Exemple :
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Sub Form_Load()
List1.AddItem ("1")
List1.AddItem ("2")
List1.AddItem ("3")
List1.AddItem ("4")
List1.AddItem ("5")
End Sub
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
ElseIf Button = vbRightButton Then
'Simulation du clic droit de la souris
Call mouse_event(2, 0, 0, 0, 0)
Call mouse_event(4, 0, 0, 0, 0)
DoEvents
End If
End Sub
Conclusion :
Non révolutionnaire, mais peut éventuellement servir.
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.