Copie items sélectionnés listbox sans doublon

Version imprimable

Bonjour,

je viens posté mon problème en espérant recevoir de l'aide.

donc je voudrais savoir comment faire pour copier les éléments sélectionnés dans une listbox 1 dans une autre listebox2 mais si l'élément est déjà dans la listbox2 (pour ne pas le mettre deux fois) de ne pas le mettre.

donc un bout de code :
Code:

1 2 3 4 5 For i As Integer = 0 To listbox1.Items.Count - 1 If listbox1.Items(i).ToString.ToUpper.Contains(ListBox2.Text.ToUpper) Then ListBox2.Items.Add(listbox1.Items(i).ToString) End If Next
Il sélectionne tous les éléments et les mets dans ma listbox2 mais il les remets à chaque fois c'est à dire que même si les items y sont déjà il les doubles, triples...

Merci de votre réponsse.

19/06/2012, 10h26
rv26t

Bonjour,

En commençant par faire un petit algo, il est facile ensuite de le traduire en VB.

Citation:

.Pour chaque élémentL1 sélectionné dans la liste1
. .trouvé = faux
. .pour chaque élémentL2 dans la liste2
. . .si élément1=élément2 alors
. . . .trouvé=vrai
. . .fin si
. .fin boucle2
. .si non trouvé alors ajouter élément1 dans liste2
.fin boucle1

"SelectedItems" te donne la collection des éléments sélectionnés dans une ListBox.

A+, Hervé.

Salut,

Tu peux essayer comme ça (requêtes LINQ):

Code:

1
2
3
4
5
        For Each listitem In (From item In ListBox1.SelectedItems Where
                              (From item2 In ListBox2.Items Where _
                               String.Equals(item, item2, StringComparison.OrdinalIgnoreCase)).Count = 0)
            ListBox2.Items.Add(listitem)
        Next

Je te propose une autre version afin d'avoir différentes solutions à comparer.

Code:

1
2
3
4
5
6
7
8
9
10
11
        Dim Trouve As Boolean = False
        For i As Integer = 0 To ListBox1.SelectedItems.Count - 1
            Trouve = False
            For j As Integer = 0 To ListBox2.Items.Count - 1
                If (ListBox1.SelectedItems(i) = ListBox2.Items(j)) Then
                    Trouve = True
                    Exit For
                End If
            Next
            If Not Trouve Then ListBox2.Items.Add(ListBox1.SelectedItems(i))
        Next

Comme tu peux le voir, le code de -N4w4k- avec Linq est plus concis et plus facile à lire.

Bonne programmation;)
A+, Hervé.

19/06/2012, 16h11
RKYDA

1 pièce(s) jointe(s)

Bonjour et merci aux personnes qui ont répondus mais mon problème n'est pas résolue.
J'utilise un Timer pour que mes processus se charge une fois lancé.
Je voudrais en fait que tous les processus de ma listbox1 partent dans ma listbox2 sans rien enlevé donc je pense faire un My.Settings mais quand je teste vos codes, ça me ramène toujours au même point, dans l'image ci-dessous.