Sélectionner une ligne avec clic droit dans listbox

Commenter

Contenu du snippet

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.

A voir également

S'inscrire maintenant

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.