Ajout d'item dans une listview

[Résolu]
Signaler
Messages postés
343
Date d'inscription
dimanche 30 novembre 2003
Statut
Membre
Dernière intervention
19 août 2006
-
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
-
Voilà bonjour tout le monde. Donc j'ai un petit probléme dont je n'ai pas la trouvé la réponse sur ce site. J'utilise le controle listview (SP2) mais je n'arrive pas à ajouter du text. Donc admettons que j'ai 2 colones : Test1 et Test2 et que ma listview s'appelle ListView1
Comment faire pour admettons ajouter Premier Test et Deuxiéme Test. J'ai essayé avec un subitems masi sans résultat

Merci d'avance

5 réponses

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
31
jamais utilisé ça:

pourquoi faut-il mettre la library devant ????



Dim Ligne As ComctlLib.ListItem


'ou comme ça

Set Ligne = LV.ListItems.Add

Ligne.Text = "test1"

Ligne.SubItems(1) = "test2"


Daniel
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
31
Dim Ligne As ListItem

Set Ligne = ListView1.ListItems.Add(, , "test1")

Ligne.SubItems(1) = "test2"


Daniel
Messages postés
343
Date d'inscription
dimanche 30 novembre 2003
Statut
Membre
Dernière intervention
19 août 2006
1
Merci de ta réponse. J'ai testé avec une listview (SP4) ça marche impécable. Mais par contre quand je mes celle du SP2, ça me dit type incompatible.
PS : j'utilise la listview du SP2 pour pouvoir obtenir un look Xp avec un manifest
Messages postés
343
Date d'inscription
dimanche 30 novembre 2003
Statut
Membre
Dernière intervention
19 août 2006
1
C'est impécable merci
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Bonjour,

Tu peux faire ceci aussi.



Private Sub Form_Load()

ListView1.View = lvwReport

Dim itmX

ListView1.ColumnHeaders.Add , "Test1", "Test1"

ListView1.ColumnHeaders.Add , "Test2", "Test2"

Set itmX = ListView1.ListItems.Add(1, "Données1", "Données1")

itmX.SubItems(ListView1.ColumnHeaders("Test2"). _

SubItemIndex) = "Données2"

End Sub



jpleroisse