Remplir une listebox a partir d'une collection sans répétition

**hyorinmaru23** · 12/01/2016, 13h19

Bonjour, avant tout, sachez que je suis un débutant en Visual basic,
Alors voila mon probleme, je souhaiterais savoir comment mettre les données stockées dans une collection dans une listebox.
J'ai deux formulaires, l'un ou je saisies des informations qui seront stockées dans des collections, et l'autre ou je ou je consulte les données saisies, le probleme et que, lorsque je clique sur valider (un bouton que j'ai créer sur le formulaire de saisi), je stocke les données des textbox dans une collection, dans le deuxieme formulaire, des le chargement, il recupere les données et les affiche dans la listebox (j'ai utiliser ce code ListBox.Items.Add(...)) jusque la tout va bien, mais si je me comme valeur par exemple 1 au textbox et que clic sur valider, la listebox affiche 1, cependant, lorsque je remplace 1 par 2 et reclic sur valider, la listebox m'affiche 2
2 , ainsi de suite 3 3 3

**r.morel** · 12/01/2016, 13h49

Salut,
Tu trouveras plus d’informations sur les ListBox sur le web :

Microsoft : https://msdn.microsoft.com/fr-fr/lib...vs.110%29.aspx
Developpez.com : http://plasserre.developpez.com/cour...rms3#LVIII-H-1

Tu y apprendras notamment comment vider ta ListBox, si tu ne veux pas que les valeurs que tu renseignes ne s'ajoutent aux précédentes.

**hyorinmaru23** · 12/01/2016, 21h21

Merci de ta réponse :-)
Je voudrais rajouter que pour faire le lien entre mes deux formulaires (l'un ou je saisie et l'autre avec la listbox ou je rempli) j'utilise un module ou je declare une collection pour que cette collection soit accessible par les 2 formulaires.
Je vais voir les aides que tu me proposes, je te tiens au courant demain. Merci

**hyorinmaru23** · 14/01/2016, 06h31

Non, toujours rien :-( pour être plus précis, le problème est que j'utilise un module ou je déclare une collection, les données que je saisies clavier devront normalement être stockées les unes après les autres: exemple, je saisie "bonjour" puis "aurevoir" la listbox au lieu de m'afficher les deux ne m'affiche que la dernière en 2 fois, de même si je saisi "a" (je clic sur le bouton validez) puis "b" puis "c", la listbox m'affiche c mais en 3 fois.

**r.morel** · 14/01/2016, 06h53

Envoyé par hyorinmaru23

Non, toujours rien :-( pour être plus précis, le problème est que j'utilise un module ou je déclare une collection, les données que je saisies clavier devront normalement être stockées les unes après les autres: exemple, je saisie "bonjour" puis "aurevoir" la listbox au lieu de m'afficher les deux ne m'affiche que la dernière en 2 fois, de même si je saisi "a" (je clic sur le bouton validez) puis "b" puis "c", la listbox m'affiche c mais en 3 fois.

Montre nous ton code qui créé ta collection.
As-tu vérifié que ta collection contenait les informations correctement ?
Je pense que tu utilises la même variable et que tu remplaces les données avant de les ajouter du coup tu te retrouves avec la dernière valeurs répétées par le nombre de valeurs.

**hyorinmaru23** · 14/01/2016, 11h46

Je résume: j'ai 2 formulaires, 2 classes et un module
Le code de mon module (c'est dedans que j'ai créer mes collections pour que ces dernières puissent être accessibles par mes 2 formulaires)

Code :

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

1
2
3
4
5
6
7
Module Collections
      Public CollFacture As New Collection
      Public CollClient As New Collection
      Public leClient As New Client
      Public uneFacture As New Facture
      Public lafacture As New Facture
End Module

Ensuite, dans le formulaire A ou je recupère les textbox pour les afficher dans la listebox de l'autre formulaire: j'ai créer un bouton validez dont voici le code:

Code :

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

1
2
3
4
Private Sub btnValidez_Click(sender As Object, e As EventArgs) Handles btnValidez.Click
        uneFacture.facturer(txtBoxNum.Text, txtBoxDate.Text, txtBoxMontant.Text)
        CollFacture.Add(uneFacture)
End sub

Enfin, dans le formulaire B ou a partir d'un bouton, il doit m'afficher les données stockés récuperer:

Code :

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

1
2
3
4
5
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each fact In CollFacture
            ListBox.Items.Add(uneFacture.numFacture)
        Next
End Sub

Le problème reste sur le fait que si dans mon txtbox je saisi "a" validez "b" validez "c" validez, ma listbox m'affiche "c 3 fois

**r.morel** · 14/01/2016, 12h03

Pour le code il faut utiliser les balises prévues à cet effet en cliquant sur le bouton [#].
Ensuite tes infos ne me sont que très peu utiles car je ne vois pas comment tu crées ta collection et comment tu la partage.

Je te conseil de faire du débogage en utilisant le mode pas à pas [F8] et de vérifier l'évolution de tes variables et valeurs.

**hyorinmaru23** · 14/01/2016, 12h23

J'ai remarqué que le nombre de fois que je clique sur le bouton valider correspond au nombre de fois ou le dernier élement saisi apparaîtra sur la listbox.

J'ai procédé au débogage pas à pas (f11) mais toujours rien, je ne vois pas à quoi est du le problème :-(

**r.morel** · 14/01/2016, 13h10

Il va falloir y mettre un peu de volonté
Vérifie tes valeurs et variables !

Avec le peut d'informations je ne peux pas t'aider!

**Kropernic** · 14/01/2016, 13h57

Hello,

Vu que tu es débutant, je vais commencer par une question. As-tu lu un cours/tuto/livre concernant la programmation orientée objet ?
Je pose cette question car ton problème est un problème liée à cela.

L'idée du module, bien que séduisante au premier abord est très mauvaise pour l'usage que tu en fais. Je te conseille de l'abandonner et de créer tes objets directement dans les formulaires (mais il faudrait que les formulaires se transmettent les objets l'un à l'autre).

Reprenons ton code...

Module :

Code :

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

1
2
3
4
5
6
7
Module Collections
      Public CollFacture As New Collection
      Public CollClient As New Collection
      Public leClient As New Client
      Public uneFacture As New Facture
      Public lafacture As New Facture
End Module

Formulaire A :

Code :

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

1
2
3
4
Private Sub btnValidez_Click(sender As Object, e As EventArgs) Handles btnValidez.Click
             uneFacture.facturer(txtBoxNum.Text, txtBoxDate.Text, txtBoxMontant.Text)
             CollFacture.Add(uneFacture)
End sub

Formulaire B :

Code :

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

1
2
3
4
5
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
             For Each fact In CollFacture
                     ListBox.Items.Add(uneFacture.numFacture)
             Next
End Sub

Dans le module, tu déclares CollFacture et CollClient comme étant de nouvelles collections, leClient comme étant un nouveau client, uneFacture et lafacture comme étant de nouvelles factures.

Dans ton formulaire A, tu utilises la méthode/fonction nommée "facturer" de la facture qui s'appelle "uneFacture" (celle qui a été crée dans le module) et tu ajoutes ensuite cette facture dans la collection nommée "CollFacture". Donc, puisque tu ne crées jamais une nouvelle facture dans ton formulaire A, ce que tu fais c'est que, à chaque fois, tu modifies la facture qui est crée dans le module et tu l'ajoutes une fois de plus à la collection. Alors forcément, dans ta listbox, tu retrouves avec plusieurs fois la même chose. Ce qui est bien ce que tu as dit de faire (c'est très con un ordi, ça ne fait que ce qu'on lui demande ^^).

Je te laisse médité là-dessus

**hyorinmaru23** · 14/01/2016, 14h17

Merci beaucoup :') je vais voir ce que je peux faire avec
Effectivement je suis débutant en VB et j'ai du mal a appréhender le concept de la programmation orienté objet.
Une petite précision s'il te plaît, d'après ce que j'ai compris, il est donc possible de lier les deux formulaires (pour recupérer les entrées du form A vers B) sans utiliser un module? (en les stockant bien sur dans des collections pour retrouver a quel client appartient tel facture (form B))
Si c'est le cas, je voudrais juste savoir comment un formulaire B peut recupérer il récupérer les données d'une collection déclaré dans un formulaire A (le lien qui le permet? enfin le code)

**Kropernic** · 14/01/2016, 14h29

Envoyé par hyorinmaru23

Une petite précision s'il te plaît, d'après ce que j'ai compris, il est donc possible de lier les deux formulaires (pour recupérer les entrées du form A vers B) sans utiliser un module? (en les stockant bien sur dans des collections pour retrouver a quel client appartient tel facture (form B))

Tout à fait !

Tu peux par exemple faire ceci quelque chose du genre :

Formulaire A:

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
Public Class FormA
    Private _facture As Facture
    Private _factures As List(Of Facture)
 
    Private Sub btnShowFormB_Click(sender As Object, e As EventArgs) Handles btnShowFormB.Click
        Dim frm As New FormB(factures)
        frm.Show 
        'et eventuellement une ligne pour fermer/masqué ce formulaire si nécessaire
    End Sub
 
    Private Sub btnValidation_Click(sender As Object, e As EventArgs) Handles btnValidation.Click
        _facture = New Facture
        _facture.facturer(1, 2, 3) 'remplacer 1, 2 et 3 par les valeurs appropriées
        _factures.Add(_facture)
    End Sub
End Class

Formulaire B:

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
20
Public Class FormB
    Private _factures As List(Of Facture)
 
    Public Sub New(factures As List(Of Facture))
        ' This call is required by the designer
        InitializeComponent()
 
        ' Add any initialization after the InitializeComponent() call.
        _factures = factures
        FillListBox()
    End Sub
 
    Private Sub FillListBox
        listbox1.Items.Clear
        For Each fct As Facture In _factures
            listbox1.Items.Add(fct.NumFacture)
        Next
    End Sub
 
End Class

Code directement écrit sur le forum et non testé. C'est juste pour illustrer et discuter.

**hyorinmaru23** · 14/01/2016, 14h41

Un peu..compliqué mais bon, j'essaierai de comprendre, c'est déjà grand chose ce que tu me donnes là

dernière question avant de me lancer: est ce que tous les deux sont possibles et permettent la même chose?

Code :

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

Private _factures As List(Of Facture) = Private_factures As New Collection(Of Facture)

**Kropernic** · 14/01/2016, 14h45

Tout à fait.

C'est juste que, personnellement, je préfère travailler avec des List(Of T) plutôt qu'avec des Collection(Of T). Mais chacun ses goûts ^^.

Concernant la complexité du code que j'ai fourni, dans quelques temps, cela te paraîtra très basique

Attention que je n'ai pas tout mis dans le code que j'ai posté. Il manque par exemple l'instanciation de la liste des factures dans le constructeur du formulaire A. Je n'ai mis que ce qui sert à communiquer (avec le remplissage de la listbox en bonus ^^).

**hyorinmaru23** · 14/01/2016, 14h49

Merci pour le bonus^^
Euh... par la liste des factures tu veux dire numFacture, dateFacture...? (je suis désolé si c'est une question idiote

)

**Kropernic** · 14/01/2016, 14h57

Je ne suis pas sûr d'avoir compris ta question...

**hyorinmaru23** · 14/01/2016, 15h00

Il manque par exemple l'instanciation de la liste des factures dans le constructeur du formulaire A.

Que veux tu dire par la liste des factures? factures numéro 1, 2, 3?

**Kropernic** · 14/01/2016, 15h04

Je veux dire que dans FormA, je déclare une variable nommée _factures de type List(Of Facture) mais que je ne l'instancie nulle part.

N.B. : "instancier" = créer une instance = faire un "New"