Discussion :

[Dreamerz35]

Bonjour,

Etant débutant sur vb je n'arrive pas a trouver comment copier tous les items d'une liste vers une autre liste ...
Enfin plus précisément à couper car je voudrais supprimer après la copie les items.
J'ai bien essayer avec une boucle de parcourir les items de la liste avec une variable initialisé a 0 et allant jusqu'au nombre total d'items en vain ...
Merci de votre aide ...

[nasty]

Bonjour,
l'idée de parcourir la liste pour récupérer chaque item est bonne.

ca doit donner un code dans le genre :

Code :

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

1
2
3
4
5
 
for cpt as integer = 0 to list1.Count - 1 'je suis pas sur de la syntaxe :)
   list2.Add(list1.Item(cpt))
   list1.RemoveAt(cpt) 
Next

Peut on voir ton code?

Cordialement

Nasty

[Dreamerz35]

Voici mon code qui ne marche pas ^^
je cherche donc à transférer les éléments de lst2 vers lst1

Code :

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

1
2
3
4
5
6
7
8
9
 
        Dim i As Long
        For i = 0 To lst2.Items.Count - 1
            Try
                lst1.Items.Add(lst2.Items.Item(i))
            Catch ex As Exception
                MsgBox("probleme")
            End Try
        Next i

Edit : probleme résolu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
        Dim i As Long
 
        ' Parcours du premier au dernier en commençant
        ' à l'indice zéro
 
        For i = 0 To lst2.Items.Count - 1
            Try
                lst1.Items.Add(lst2.Items.Item(i))
            Catch ex As Exception
                MsgBox("probleme")
            End Try
        Next i
        lst2.Items.Clear()

[nasty]

Ok et tu rencontres quel type d'erreur et sur quelle ligne?

Cordialement

Nasty

[Dreamerz35]

J'ai honte de moi, en faite je m'était tromper sur le count je ne le faisait pas sur la bonne liste...Et deuxièmement je supprimait les items a chaque for each et le problème c'est qu'il devait y avoir un ré-indexage , fin je pense... Puisqu'en supprimant entièrement la liste a la fin ca marche..

[nasty]

Ok bah nickel alors

N'oublie pas de mettre le sujet a

Cordialement

Nasty

[alex_vino]

Hum...

Code :

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

1
2
lst2 = lst1
lst1 = Nothing

[Dreamerz35]

Non alex parcequ'il y a déja des éléments dans la liste 2 donc ca ne marche pas..