Restitution de my setting dans une listbox

Version imprimable

Bonsoir à tous.

J'ai un soucis avec avec la restitution des données dans une listbox à partir de my.settings.

A la fin de ma listbox, j'ai une ligne vide en trop et je ne sais comment faire pour la vider.

Voisi mon code pour l'enregistrement des données

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub SauveListeInterprete()
        'Déclare la chaîne temporaire qui servira à enregistrer le contenu du tableau
        Dim tmpContenu As String = ""
        'On va maintenant construire la même chose qu'un fichier .csv :
        'Chaque ligne est séparée par le caractère VbLf
        'Prend chacune des lignes de la Listbox
        For Each I As Object In Soiree.LbInterpreteEnreg.Items
            'Ajoute le caractère VbLf à la string représentant le tableau
            tmpContenu = tmpContenu & I & vbLf
        Next
        'Enregistre maintenant cette String dans tes settings
        My.Settings.ListeDesInterpretes = tmpContenu
    End Sub

Voici mon code pour la restitution des données dans la listbox

Code:

1
2
3
4
5
6
7
8
9
10
Public Sub LitListeInterprete()
        Dim tmpContenu As String
        Dim Lignes As String()
        'Récupère le tableau dans les settings
        tmpContenu = My.Settings.ListeDesInterpretes
        'Divise la String en autant de lignes qu'il y en a (séparées par les VbLf)
        Lignes = Split(tmpContenu, vbLf)
        'Ajoute l'ensemble des lignes à la listBox
        Soiree.LbInterpreteEnreg.Items.AddRange(Lignes)
    End Sub

Je pense qu'il doit y avoir une commande à donner pour lui dire de ne pas tenir compte de la derni-re ligne.

Merci par avance pour vos réponses.

@+ Martipit

Si j'ai bien compris tu as un élément de trop à la fin de ton tableau de chaines, tu peux faire un Redim Preserve Tab(x) :

Redim Preserve Lignes(Lignes.lenght -1)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub LitListeInterprete()
        Dim tmpContenu As String
        Dim Lignes As String()
        'Récupère le tableau dans les settings
        tmpContenu = My.Settings.ListeDesInterpretes
        'Divise la String en autant de lignes qu'il y en a (séparées par les VbLf)
        Lignes = Split(tmpContenu, vbLf)
 
        Redim Preserve Lignes(Lignes.lenght -1)
 
        'Ajoute l'ensemble des lignes à la listBox
        Soiree.LbInterpreteEnreg.Items.AddRange(Lignes)
    End Sub

A tester je te dis ça de tête...

Salut Vince.

Merci à toi de te pencher sur mon problème.

Après bien des recherches j'ai trouvé ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub LitListeInterprete()
        Dim tmpContenu As String
        Dim Lignes As String()
        Dim Incr As Integer
        Dim items As Object
        Dim cells As String
        'Récupère le tableau dans les settings
        tmpContenu = My.Settings.ListeDesInterpretes
        'Divise la String en autant de lignes qu'il y en a (séparées par les VbLf)
        Lignes = Split(tmpContenu, vbLf)
        'Supprime la dernière ligne qui est forcément vide
        ReDim Items(Lignes.GetUpperBound(0) - 1) '-1 car il y a une ligne vide  en trop dans le fichier
        'Ajoute chaque ligne dans le tableau de données
        For Incr = 0 To Lignes.GetUpperBound(0) - 1
            cells = Lignes(Incr)
            'Ajoute la ligne à la liste des lignes à ajouter
            items(Incr) = cells
        Next
        'Ajoute l'ensemble des lignes à la listBox
        Soiree.LbInterpreteEnreg.Items.AddRange(Items)
    End Sub

A priori cela fonctionne.

J'ai testé ta solution car moins de lignes de codes mais j'ai une erreure qui stipule que

Code:

Redim Preserve Lignes(Lignes.lenght -1)

n'est pas un membre de arrway.

@+ Martipit

04/10/2012, 21h33
Joki_

Citation:

Envoyé par Martipit

J'ai testé ta solution car moins de lignes de codes mais j'ai une erreure qui stipule que

Code:

Redim Preserve Lignes(Lignes.lenght -1)

n'est pas un membre de arrway.

@+ Martipit

Lignes.Count alors..