Discussion :

[CodeFacile]

Bonjour ,

je travaille avec Visual Basic 2008 Express.
je cherche à implémenter une listview et je n'arrive pas à afficher correctement chaque items .
la listview nomée Affiche_Resultat est créé dans une fenêtre Form1.vb design ( pas de création dynamique).
Dans les propriétés de ma listview , j'ai une collections columns dans laquelle j'ai défini 4 champs.

Dans un tutoriel , on décrit la syntaxe suivante :

for i = 1 to 5
Dim LVI As New ListViewItem
LVI.Text = i.ToString 'première cellule
LVI.SubItems.Add((i * i).ToString) 'seconde cellule
LVI.SubItems.Add((i * i * i).ToString) 'troisième cellule
LVI.SubItems.Add((4 * 1 ).ToString) '4ième cellule

Affiche_Resultat.Items.Add(LVI)
next

Mon problème
lors de l'affichage , tous les champs1 apparaissent l'un derrière l'autre sur une même ligne . Les champs 2 ,3,4 n'apparaissent pas .

Hors , si je fais la lecture des éléments de ma listeview , je retrouve bien mes élément :
Dim liste As String
liste = ""
For A = 0 To (Affiche_Resultat.Items.Count - 1)

For B = 0 To Affiche_Resultat.Items(A).SubItems.Count - 1
liste = liste & Affiche_Resultat.Items(A).SubItems(B).Text & ", "
Next
liste = liste & Chr(10)

Next
MsgBox(liste)

Ma question : quesqu'y ne vas pas dans mes définitions de ma listview ?

Merci

[CodeFacile]

Pour contourner mon problème avec les listview , j'ai opté pour utiliser une listbox multicolonne.
Le problème est le même , je ne sais pas mettre à jour les éléments de la colonne 2.

Pour la gestion d'une listbox monocolonne : Affiche_Resultat2 , je n'arrive pas à supprimer les éléments .
mon code simplifié :

Sub RAZ_Rapport_Affichage()
'Dim nb_ele As Integer
Dim nb_ele As Integer = Me.Affiche_Resultat2.Items.Count
If Affiche_Resultat2.Items.Count > 0 Then
For J As Integer = 0 To nb_ele - 1
Affiche_Resultat2.Items.Remove(0)
Next
MsgBox(" Dans RAZ , on a supprimé : " & CStr(nb_ele) & " et il reste : " & CStr(Me.Affiche_Resultat2.Items.Count))
End If

End Sub

avec la MsgBox , je vois que je sais lire le nombre d'élément mais je ne sais pas les supprimer alors que la syntaxe Affiche_Resultat2.Items.Remove(0)
ne retourne pas d'erreur.
J'en perd mon latin !
Si quelqu'un peut m'éclairer ?

[troxsa]

Je fait tout de tete (je peux avoir fait des erreur)
La listview1 a deja les colums (colonnes) qui ont été défini dans les propriété

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim lv as new listviewitem
lv = Listview1.items.add("valeur1Champs1")
lv.SubItems.add("Valeur1Champ2")
lv.SubItems.add("Valeur1Champ3")
lv.SubItems.add("Valeur1Champ4")

ou alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Listview1.Items.item(1).Subitems.add("valeur")