LISTVIEW
Résolu
bouv
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
-
10 mars 2005 à 15:12
bouv Messages postés 1411 Date d'inscription mercredi 6 août 2003 Statut Membre Dernière intervention 3 mars 2019 - 10 mars 2005 à 16:25
bouv Messages postés 1411 Date d'inscription mercredi 6 août 2003 Statut Membre Dernière intervention 3 mars 2019 - 10 mars 2005 à 16:25
2 réponses
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
10 mars 2005 à 15:34
10 mars 2005 à 15:34
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
' On ressort s'il n'y a rien sur cette ligne
If ListView1.HitTest(x, y) Is Nothing Then
Exit Sub
End If
' Sélectionne cette ligne
Dim Ligne As Long
Ligne = ListView1.HitTest(x, y).Index
MsgBox Ligne
End Sub
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
' On ressort s'il n'y a rien sur cette ligne
If ListView1.HitTest(x, y) Is Nothing Then
Exit Sub
End If
' Sélectionne cette ligne
Dim Ligne As Long
Ligne = ListView1.HitTest(x, y).Index
MsgBox Ligne
End Sub
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
bouv
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
10 mars 2005 à 16:25
10 mars 2005 à 16:25
Parfait !!!
Merci beaucoup
Bonne prog
++
Merci beaucoup
Bonne prog
++
