Discussion :

[nabilfaouzi]

j'ai un probleme de traduire ce code de vb6 en vb.net.

Code :

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

1
2
3
4
5
6
7
8
 
Dim indx As Integer
 
For indx = 0 To List1.ListCount - 1
 
List2.AddItem List1.List(indx) 'Déplacer ts les élement de listbox1 vers listbox2
Next indx
List1.Clear

merci de vos réponse

[Pol63]

remplacer

Code :

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

 List2.AddItem List1.List(indx)

par

Code :

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

 List2.Items.add(List1.Items(indx))

[Aspic]

remplacer :

Code :

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

1
2
3
4
5
6
7
8
 
Dim indx As Integer
 
For indx = 0 To List1.ListCount - 1
 
List2.AddItem List1.List(indx) 'Déplacer ts les élement de listbox1 vers listbox2
Next indx
List1.Clear

par

Code :

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

1
2
3
4
For i as integer = 0 to List1.ListCount - 1
    List2.Items.add(List1.Items(i))
Next
List1.Items.Clear