Discussion :

[McShark]

Salut à tous,

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



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.

[McShark]

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

Code :

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

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

[Invité]

Et pour une sélection simple ou multiple.

Code :

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

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

[McShark]

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

Code :

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

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

[Invité]

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.

[McShark]

Et pour une sélection simple ou multiple.

Code :

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

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é , j'ai un problème après son utilisation, après le click sur le button > je reçois :

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

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

"MissingMemberException"

[Invité]

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

Code :

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

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

[McShark]

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