Remplir une listview [Résolu]

Question

Posez votre question Signaler Répondre au sujet

Remplir une listview [Résolu]

lhonolulu 26 Messages postés jeudi 4 mars 2004Date d'inscription 14 février 2008 Dernière intervention - 6 juil. 2005 à 17:17 - Dernière réponse : lhonolulu 26 Messages postés jeudi 4 mars 2004Date d'inscription 14 février 2008 Dernière intervention

- 7 juil. 2005 à 10:03

Visual Basic Posez votre question Signaler Répondre au sujet

Bonjour,

J'ai des donné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é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

Afficher la suite

Remplir une listview
Je veux remplir mon listview (Résolu) » Forum - C# / .NET
Remplir une ListView en fonction d'une comboBox (Résolu) » Forum - Visual Basic 6
Comment Couper une chaine de caractere puis remplir la listview ?? (Résolu) » Forum - C# / .NET
Comment remplir une listview (sans images et sans entete) (Résolu) » Forum - Visual Basic 6
Remplir une listview en wpf » Forum - C# / .NET

2 réponses

Accepted Answer

+3

Utile

Bonsoir,

Je n'y connais pratiquement rien sur les ListView, mais en modifiant
ton code, je suis parvenu à écrire dans cette ListView. Peut-être que
celà t'aideras?? Mets Option Explicit avat ta procédure, celà oblige à
dé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ème essai"

tableau(2) = "3ème essai"

'cré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

Cette réponse vous a-t-elle aidé ? Oui Non

Accepted Answer

+3

Utile

Dans ton code, à quoi sert itemx ? car en gros on a peu prè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 éléments de la liste
ListView1.ListItems.Clear
For i = 0 To 2
'Alimentation des élé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

Cette réponse vous a-t-elle aidé ? Oui Non

Remplir une listview [Résolu]

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !