Comment remplir une listview (sans images et sans entete)Résolu

Question

Bonjour à tous.

Pourriez-vous m'aider ?
Cela fait un bon bout de temps que j'essaie de compléter une listview
Si je la souhaite sans icones et sans entête, cela "merdouille".

Quelquechose m'échappe sûrement...

Que faut-il mettre comme valeur à listview1.view ?
Quelles est la façon pour compléter une listview
de 1000 lignes et 13 colonnes ?

A l'aide, svp

Renfield · Accepted Answer

Private Sub Form_Load() 
    ListView1.ColumnHeaders.Add Text:="Titre Colonne 1" 
    ListView1.ColumnHeaders.Add Text:="Titre Colonne 2" 
    ListView1.ColumnHeaders.Add Text:="Titre Colonne 3" 
    ListView1.ColumnHeaders.Add Text:="Titre Colonne 4" 
     
    ListView1.View = lvwReport
    ListView1.HideColumnHeaders = True
    ListView1.ListItems.Clear 
    
     
    With ListView1.ListItems.Add 
        .Text = "Item 1 Colonne 1" 
        .SubItems(1) = "Item 1 Colonne 2" 
        .SubItems(2) = "Item 1 Colonne 3" 
        .SubItems(3) = "Item 1 Colonne 4" 
    End With 
    With ListView1.ListItems.Add 
        .Text = "Item 2 Colonne 1" 
        .SubItems(1) = "Item 2 Colonne 2" 
        .SubItems(2) = "Item 2 Colonne 3" 
        .SubItems(3) = "Item 2 Colonne 4" 
    End With 
    With ListView1.ListItems.Add 
        .Text = "Item 3 Colonne 1" 
        .SubItems(1) = "Item 3 Colonne 2" 
        .SubItems(2) = "Item 3 Colonne 3" 
        .SubItems(3) = "Item 3 Colonne 4" 
    End With 
    With ListView1.ListItems.Add 
        .Text = "Item 4 Colonne 1" 
        .SubItems(1) = "Item 4 Colonne 2" 
        .SubItems(2) = "Item 4 Colonne 3" 
        .SubItems(3) = "Item 4 Colonne 4" 
    End With 
End Sub

Comment remplir une listview (sans images et sans entete)

1 réponse

Votre réponse

Discussions similaires