Les listviews sont tres complet en voici un exemple

Description

Ce code montre comment intégrer une image dans les subitems, ce qui peut s'avérer tre util.

Source / Exemple :


'Ce code est tres simple mais tes pratique
'il suffit juste d'avoir de bonnes images ;)
Dim li As ListItem 'cree un objet listeitem pour pouvoir agir librement sans With
Dim i As Long
 
For i = 1 To 20 'boucle sur 20 lignes
 Set li = lvClients.ListItems.Add()
 li.Text = "test " & i
 li.SubItems(1) = "" 'cree une instance subitem 1 si il est omis listsubitem fonctionne pas
 li.ListSubItems(1).ReportIcon = 1
 li.SubItems(2) = ""
 li.ListSubItems(2).ReportIcon = 1
 li.SubItems(3) = ""
 li.ListSubItems(3).ReportIcon = 1
 li.SubItems(4) = ""
 li.ListSubItems(4).ReportIcon = 1
next i
Amusez-vous bien.

Codes Sources

A voir également

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.