Bonjour a tous
J'ai 2 ListBox:
- Parcours Disponibles
- Parcours Réservables
J'arrive a tranférer un par un élément enter chaque ListBox, mais dés qu'il y en a plusieurs, je n'y arrive plus.
J'ai testé 2 possibilités.Les 2 ne fonctionne pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Sub AjouterPlusieursParcours(ByVal sender As Object, ByVal e As System.EventArgs) Dim i As Integer If ListParcoursReservables.Items.Count > 0 Then For i = 0 To ListParcoursDispo.Items.Count - 1 Dim Parcours As String Parcours = ListParcoursDispo.SelectedItem.Value(i) ListParcoursReservables.Items.Add(Parcours) Next i End If End SubDes idées?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Sub AjouterPlusieursParcours(ByVal sender As Object, ByVal e As System.EventArgs) Dim i As Integer For i = 0 To ListParcoursDispo.Items.Count - 1 If ListParcoursDispo.Items(i).Selected Then ListParcoursReservables.Items.Add(ListParcoursDispo.Items(i)) End If Next i End Sub
Merdi d'avance
Partager