Discussion :

[RKYDA]

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 :

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

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.

[rv26t]

Bonjour,

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

.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é.

[-N4w4k-]

Salut,

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

Code :

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

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

[rv26t]

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

Code :

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

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é.

[RKYDA]

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.