remplir une listviewRésolu

Question

Bonjour,

J'ai des donn&#233;es qui sont dans un tableau de dimension (3,3).
Je voudrais mettre le contenu de ce tableau dans une listview qui aura donc 3 colonnes.

Dim tableau As Variant
Dim itemx As ListItem

'cr&#233;e les colonnes, enfin je suppose...
ListView1.ColumnHeaders.Add , , "essai1"
ListView1.ColumnHeaders.Add , , "essai2"
ListView1.ColumnHeaders.Add , , "essai3"
'etape1
'boucle sur mes nombres de colonnes
For j = 0 To 2
    Set itemx = ListView1.ListItems.Add(, , tableau(0, j))
'etape2
    'boucle sur mes lignes
    For i = 1 To 3
        itemx.SubItems(i) = tableau(i, j)
    Next i
Next j

pb : etape2 ne fait rien...snif
et je n'arrive pas a m'en sortir
merci d'avance
rq : je ne veux pas le faire avec une listox

jpleroisse · Accepted Answer

Bonsoir,

Je n'y connais pratiquement rien sur les ListView, mais en modifiant
ton code, je suis parvenu &#224; &#233;crire dans cette ListView. Peut-&#234;tre que
cel&#224; t'aideras?? Mets Option Explicit avat ta proc&#233;dure, cel&#224; oblige &#224;
d&#233;clarer les variables et donne des indications sur les erreurs.



Option Explicit

Private Sub Command1_Click()

Dim tableau()

Dim itemx As ListItem

Dim i, j

ReDim tableau(0 To 2)

tableau(0) = "1er essai"

tableau(1) = "2&#232;me essai"

tableau(2) = "3&#232;me essai"

'cr&#233;e les colonnes, enfin je suppose...

ListView1.ColumnHeaders.Add , , "essai1"

ListView1.ColumnHeaders.Add , , "essai2"

ListView1.ColumnHeaders.Add , , "essai3"

'etape1

'boucle sur mes nombres de colonnes

For j = 0 To 2

    Set itemx = ListView1.ListItems.Add(, , tableau(j))

'etape2

    'boucle sur mes lignes

    For i = 0 To 2

      

     itemx.SubItems(1) = CStr(tableau(j))

  itemx.SubItems(2) = CStr(tableau(j))

    Next i

Next j

End Sub



jpleroisse

lhonolulu · Answer

Dans ton code, &#224; quoi sert itemx ? car en gros on a peu pr&#232;s la meme chose.

ListView1.ColumnHeaders.Add , , "Colonne1", ListView1.Width * 0.4, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Colonne2", ListView1.Width * 0.3, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Colonne3", ListView1.Width * 0.3, lvwColumnRight


'Suppression des &#233;l&#233;ments de la liste
ListView1.ListItems.Clear
For i = 0 To 2
        'Alimentation des &#233;l&#233;ments de la liste
        ListView1.ListItems.Add i + 1, , tableau(i, 0)
        For j = 1 To 2
            ListView1.ListItems(i + 1).SubItems(j) = tableau(i, 1)
            'ListView1.ListItems(i + 1).SubItems(2) = tableau(i, 2)
        Next j
Next i

Remplir une listview

2 réponses

Discussions similaires