[vb.net] données listview

**iamunknown** · 03/02/2006, 22h07

bonjour bonjour !

je suis sur une listbox actuellement qui me pose quelques problèmes !

en résumé j'ai x champs dans ma listbox, et je voudrais récupérer par exemple le 2eme et 5eme champs de toutes mes lignes.

j'ai donc essayé un for each comme cela :

Code :

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

1
2
3
4
5
Dim champs As String
For Each ligne As DataRowView In listBox1.Items
champs = ligne.Item(0).ToString
Next
MessageBox.Show(champs)

et j'ai cette erreur : Le cast spécifié n'est pas valide

une petite idée ? merci

**neguib** · 04/02/2006, 10h39

Ben oui

Envoyé par MSDN

Public ReadOnly Property Items As ListBox.ObjectCollection

qu'attends-tu pour transtyper

:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim fieldValue2 As String
Dim fieldValue5 As String
Dim message As String = String.Empty
 
For Each ligne As Object In listBox1.Items 
   fieldValue2 = CType(ligne, DataRowView).Item(1).ToString()
   fieldValue5 = CType(ligne, DataRowView).Item(4).ToString()  
   message &= "valeur2 : " & fieldValue2 & ", valeur5 : " & fieldValue5)
   message &= Environment.NewLine
Next
MessageBox.Show(message)

**iamunknown** · 04/02/2006, 11h30

bonjour !

euh, j'ai exactement la même erreur avec ton code

**neguib** · 04/02/2006, 13h09

Montres nous le code de peuplement de ton ListBox stp pour savoir exactement quel est le type chargé dans la liste

:

**iamunknown** · 04/02/2006, 13h43

alors voici la création de ma listbox

Code :

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

1
2
3
4
5
6
7
8
9
lstSite.View = View.Details
lstSite.GridLines = True
lstSite.AllowColumnReorder = True
lstSite.FullRowSelect = True
lstSite.Columns.Add("Catégorie", 230, HorizontalAlignment.Left)
lstSite.Columns.Add("Site", 200, HorizontalAlignment.Center)
lstSite.Columns.Add("Pourcentage", 100, HorizontalAlignment.Center)
lstSite.Columns.Add("URL", 140, HorizontalAlignment.Center)
lstSite.Columns.Add("Auteur", 140, HorizontalAlignment.Center)

et je remplis ma listbox de cette façon :

Code :

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

1
2
3
4
5
6
7
Dim list As New ListViewItem
list.Text = cb_categorie.SelectedItem
list.SubItems.Add(cbSite.SelectedValue)
list.SubItems.Add(nbVisite.Text)
list.SubItems.Add(lbUrl.Text)
list.SubItems.Add(lbAuteur.Text)
lstSite.Items.Add(list)