Discussion :

[Cybercope]

Bonjour,

Je bute depuis un certain moment sur un petit problème.

Je dispose de plusieurs Listbox (8 au total) et j' ai un fichier texte dans lequel j' ai inscrit ligne par ligne le contenu des Listbox :
pour que se soit plus compréhensible, je vais vous donné un exemple :

Listbox1 :

1
2
3

Listbox2 :

Bonjour
Salut
Ca va

et mon document texte est écrit comme ceci :

1
2
3

Bonjour
Salut
Ca va

etc...

Mon problème est que je souhaite, en cliquant sur un bouton, retrouvé les valeur dans mes listBox.
J' utilise l' instruction Readline mais je ne sais pas comment dire au programme de passer au paragraphe suivant dès qu' il rencontre un saut de ligne et de compléter la ListBox suivante avec ce paragraphe.

En espérant que vous ayez compris ma question...

Merci d' avance !!!

[Graffito]

Pour faciliter la procédure, modifier le fichier ainsi:

Code :

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

1
2
3
4
5
6
Listbox1:1
Listbox1:2
Listbox1:3
Listbox2:Bonjour
Listbox2:Salut
...

Après le readline, faire un Split sur la string lue pour récupérer le nom de la ListBox et la valeur à rajouter dans ses items.
Caster en listbox "Me.Controls(ListBoxName)" en utilisant CType.

[Cybercope]

Bonjour,

Je vous remercie beaucoup de votre réponse.

Cependant, je comprend bien la façon dont je doit écrire mes listbox dans mon .txt :

Listbox1:1
Listbox1:2
Listbox1:3
Listbox2:Bonjour
Listbox2:Salut
Listbox2:Ca va

Mais je ne comprend pas la manière de récupérer le nom de la listBox...

Merci !!!!

[Graffito]

Comme ceci ? (je ne code pas en vb.net)

Code :

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

1
2
3
4
5
Dim textLine As String() = MyStreamReader.ReadLine().Split(":")
Dim listBoxName As String = textLine(0)
Dim listBoxValue As String = textLine(1)
Dim listBox As ListBox = DirectCast(Me.Controls(listBoxName),ListBox)
listBox.Items.Add(listBoxValue)

[Cybercope]

Merci beaucoup , je teste et je vous dit !

NB: je ne connaissait pas la fonction Split !!!

[Cybercope]

Voila j' ai essayé mais j' ai une erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim sr As New StreamReader(ofd.FileName)
                Dim Split1
                Dim ListValue As String
                Dim ListItm As String

                While sr.Peek >= 0
                    Split1 = sr.ReadLine.Split(":")
                    ListValue = Split1(0)
                    ListItm = Split1(1)
                    Dim listBox As ListBox = DirectCast(Me.Controls(ListValue), ListBox)
                    listBox.Items.Add(ListItm)
                End While

Il me sort l'erreur : L' exception NullReferenceException n' a pas pus être géré, en me surlignant ListBox.Items.Add(ListItm)

[Graffito]

La raison la plus probable est que la ListBox identifiée par ListValue ne soit pas directement dans la Form , mais dans un container (Panel, TabPage, ...).
Dans ce cas, remplacer "Me" par le container parent des ListBox.

[Cybercope]

Problème résolu merci beaucoup !!! J' ai remplacer Me par Tabpage1 !