Manipulation de données entre deux listbox

1 pièce(s) jointe(s)

Salut à tous,

j'ai crée le formulaire d'inscription suivant et j'ai besoin d'aide :calim2::

http://www.developpez.net/forums/att...1&d=1273070950

je veux avec les boutons entre les deux listbox, ajouter un élément sélectionné ou tout les éléments d'un listbox a un autre, une autre chose, est ce que je peux définir un fichier.txt une source d'un listbox.

Ajouter & supprimer un élément entre les deux listbox résolue :

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub btn_f_supprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_f_supprimer.Click
        Lst_Sport1.Items.Add(Lst_Sport2.SelectedItem)
        Lst_Sport2.Items.Remove(Lst_Sport2.SelectedItem)
    End Sub
 
    Private Sub btn_f_ajouter_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_f_ajouter.Click
        Lst_Sport2.Items.Add(Lst_Sport1.SelectedItem)
        Lst_Sport1.Items.Remove(Lst_Sport1.SelectedItem)
    End Sub

:mouarf:

Et pour une sélection simple ou multiple.

Code:

1
2
3
4
5
6
7
8
9
10
 
Dim i As Integer = 0
While i < ListeGauche.Items.Count
  If ListeGauche.Item(i).Selected Then
    ListeDroite.Items.Add(ListeGauche.Item(i))
    ListeGauche.Items.Remove(ListeGauche.Item(i))
  Else
    i += 1
  End If
End While

Merci fréro, l'affaire est résolue
voici le solution pour l'ajout de tout les éléments de la listbox :

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub btn_f_ajoutertt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_f_ajoutertt.Click
        Lst_Sport2.Items.AddRange(Lst_Sport1.Items)
        Lst_Sport1.Items.Clear()
    End Sub
 
    Private Sub btn_f_supprimertt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_f_supprimertt.Click
        Lst_Sport1.Items.AddRange(Lst_Sport2.Items)
        Lst_Sport2.Items.Clear()
    End Sub

C'est vrai que ça marche, la différence avec mon code, si tu le mets sur tes boutons simple (> et <), c'est que tu peux activer la sélection multiple sur tes ListBox et transférer plusieurs items (ex: 3 items sur 10) d'un seul coup (en les sélectionnant avec CTRL et/ou SHIFT) au lieu de cliquer pour chacun (ex: 3 fois). À toi de voir.

Citation:
Envoyé par yroubag
Et pour une sélection simple ou multiple.
Code:

1 2 3 4 5 6 7 8 9 10 Dim i As Integer = 0 While i < ListeGauche.Item.Count If ListeGauche.Item(i).Selected Then ListeDroite.Item.Add(ListeGauche.Item(i)) ListeGauche.Item.Remove(ListeGauche.Item(i)) Else i += 1 End If End While
Merci fréro pour ton code optimisé :ccool:, j'ai un problème après son utilisation, après le click sur le button > je reçois :

Citation:

'Item' n'est pas un membre de 'System.Windows.Forms.ListBox'

lorsque j'essaye avec items, je reçois un exeption de type :

Citation:

"MissingMemberException"

Simple erreur de syntaxe, «Items» prends un «S». (je ne l'avais pas écrit dans VS)

Code:

1
2
3
4
5
6
7
8
9
10
Dim i As Integer = 0
While i < ListeGauche.Items.Count
  If ListeGauche.Items(i).Selected Then
    ListeDroite.Items.Add(ListeGauche.Items(i))
    ListeGauche.Items.Remove(ListeGauche.Items(i))
  Else
    i += 1
  End If
End While

après le clic il me retourne une exception avec items :aie:

Désolé, c'est vrai que ça marchait pas. Mais ce qui suit fonctionne.

Code:

1
2
3
4
5
6
While ListeGauche.SelectedItems.Count > 0
    ListeDroite.Items.Add(ListeGauche.SelectedItems(0))
    ListeGauche.Items.Remove(ListeGauche.SelectedItems(0))
EndWhile

Merci fréro, ça marche maintenant :mouarf: