Bonjour

Je voudrais charger une listbox1 par des données puis les stockers dans une collection listof(T) puis les affichers dans une autre listbox2
Voila mon code ( les textboxes c'est juste pour la recherche)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 Dim a As Rayons
    Dim ray As New List(Of Rayons)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a = New Rayons(Listbox1.text, TextBox2.Text, TextBox1.Text)
       ray.add(a)
 end sub
2:affichage dans une listbox2 aprés avoir fait recherche

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
For Each a1 In ray
            If a1.Inti = TextBox4.Text Then
                TextBox5.Text = a1.Max
                       For Each a2 in listbox2.items
                   listbox2.item.add(a1.livre)
             Next
 
          End If
     Next
quand je veux afficher dans la listbox2 il n'ya rein qui s'affiche
Voila j'èspere que vous pourrez m'aider.

Merci.