Sujet Précédent Sujet Suivant

Sélectionner une ligne avec clic droit dans listbox : code

cs_ayrton Messages postés 3 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 22 mai 2003 - 7 janv. 2003 à 18:11
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 7 janv. 2003 à 18:25

Dans une FORM avec une listbox LIST1, coller le code suivant:

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

A voir également:

Sélectionner une ligne avec clic droit dans listbox : code
Listbox ✓ - Forum VB.NET
Selectionner la derniere cellule non vide d'une colonne excel vba - Forum Visual Basic 6
Derniere cellule remplie d'une colonne - Forum Visual Basic 6
Schema electrique en ligne - Forum VB.NET
Créer un qcm en ligne - Forum PHP

1 réponse

Réponse 1 / 1

cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
7 janv. 2003 à 18:25

Tu devrais plutôt poster ceci en tant que source !

DARK SIDIOUS

Discussions similaires

Dernière cellule non vide d'une colonne

chronometre en milliseconde

Détecter un clic de souris dans tout l'écran (non seulement le form) ?

simplifier une fraction ( débutant ) !!!

Calcul de dérivée