OVH Cloud OVH Cloud

ListView

3 réponses
Avatar
Salva
Bonjour,

Je en sasi pas comme faire pour lire les lignes cochees dans un LISTVIEW
(option case a cocher dans la 1° colonne)

merci d evotre aide.

Salva

3 réponses

Avatar
Guy DETIENNE
Salut ;O)

Regarde la propriété Checked des items.

Pour connaître toutes les lignes 'checkées' il faut parcourir tout le
ListView en verifiant pour chaque ligne la propriété Checked (True si c'est
checké).

Guy

"Salva" a écrit dans le message de
news:
Bonjour,

Je en sasi pas comme faire pour lire les lignes cochees dans un LISTVIEW
(option case a cocher dans la 1° colonne)

merci d evotre aide.

Salva




Avatar
jean-marc
"Salva" wrote in message
news:
Bonjour,

Je en sasi pas comme faire pour lire les lignes cochees dans un LISTVIEW
(option case a cocher dans la 1° colonne)



Hello,
comme ça par exemple:
Private Sub Command1_Click()
Dim i As Integer

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
Debug.Print ListView1.ListItems(i).Text & " est coché"
Else
Debug.Print ListView1.ListItems(i).Text & " n'est PAS coché"
End If
Next i
End Sub

Private Sub Form_Load()
ListView1.ListItems.Add 1, "toto", "toto"
ListView1.ListItems.Add 2, "titi", "titi"
ListView1.ListItems.Add 3, "tata", "tata"

End Sub

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
Avatar
ng
Salut,

Allez je vais embeter le monde :

If ListView1.ListItems(i).Checked = True Then


Plutot :
If ListView1.ListItems(i).Checked Then
70% plus rapide en moyenne :) etsurtout plus logique.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

jean-marc wrote:
"Salva" wrote in message
news:
Bonjour,

Je en sasi pas comme faire pour lire les lignes cochees dans un
LISTVIEW (option case a cocher dans la 1° colonne)



Hello,
comme ça par exemple:
Private Sub Command1_Click()
Dim i As Integer

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
Debug.Print ListView1.ListItems(i).Text & " est coché"
Else
Debug.Print ListView1.ListItems(i).Text & " n'est PAS
coché" End If
Next i
End Sub

Private Sub Form_Load()
ListView1.ListItems.Add 1, "toto", "toto"
ListView1.ListItems.Add 2, "titi", "titi"
ListView1.ListItems.Add 3, "tata", "tata"

End Sub