Discussion :

[TheAntoine17]

Bonsoir Développez

Je poste pour un souci de VB.net en Windows Form.

Après une certaine opération, ma ListBox1 se remplie d’items (lignes) variés, et j’aimerais que tous les items qui contiennent un certain texte se copient dans la ListBox2, de façon à ce qu’il ne reste que les items qui contiennent ce certain texte dans ma ListBox2, est-ce possible ?

J’ai eu beau cherche sur notre ami Google, rien en vue.

Merci d’avance pour votre temps consacré.

[Sankasssss]

Bonjour,

Pour vous orienter il faudrait savoir comment vous remplissez cette ListBox.
Via base de donnée, un dataTable? Via une collection d'objet? ...

[TheAntoine17]

Ma ListBox se remplie après l'éxécution de 3 functions consécutives.

[rv26t]

Bonjour,

Peut-être de cette façon.
un bouton (btnSelectionListBox), un textbox (txtCritereListBox), 2 listbox

Init pour test

Code :

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

1
2
3
4
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ListBox1.Items.Clear()
        ListBox1.Items.AddRange({"Zéro", "Un", "Deux", "Trois", "Quatre", "Cinq", "Six", "sept", "Huit", "Neuf", "Dix"})
    End Sub

Recherche et ajout.

Code :

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

1
2
3
4
5
6
7
    Private Sub btnSelectionListBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectionListBox.Click
        For i As Integer = 0 To ListBox1.Items.Count - 1
            If ListBox1.Items(i).ToString.ToUpper.Contains(txtCritereListBox.Text.ToUpper) Then
                ListBox2.Items.Add(ListBox1.Items(i).ToString)
            End If
        Next
    End Sub

si on saisie u dans le textbox du critere ListBox2 contient (un, deux, quatre, huit, neuf)

A+, Hervé.

[Sankasssss]

rv26t

ou avec Linq ça donne :

Code :

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

1
2
3
4
5
6
7
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim colTrie = From p In ListBox1.Items
                      Where p.ToString.ToUpper Like "*TEST*"
                      Select p
 
        ListBox2.Items.AddRange(colTrie.ToArray)
    End Sub

[rv26t]

Merci,
Cela encourage à apporter des réponses.

Linq a l'air bien pratique en étant plus succint, et donc plus lisible. (+1)
A+, Hervé.

[Sankasssss]

Le bouton est la pour indiquer les bonnes réponses, et accessoirement pour augmenter nos points. Chose que l'on oublie aussi, au bout de 3 la réponse est encadrée en vert pour montrer aux personnes parcourant la discussion que la réponse a aidé, c'est toujours sympa...

Concernant Linq, il peut traiter tout type de collection et permet de faire des choix directement sur les propriétés des objets contenu dans ces collections.
Par exemple, vous pouvez trier une liste de fichier d'un répertoire, les processus en mémoire dépassant un certain seuil mémoire (LINQ to Objects), les éléments d'une base de données (LINQ to ADO.NET), les éléments d'un fichier XML (LINQ to XML) etc...
Et comme vous le signalez si bien, c'est bien plus lisible.

Bref, comme je le dis dans ma signature, LINQ c'est puissant...

[TheAntoine17]

Merci beaucoup aux deux personnes m'ayant aidé.
C'est résolue, bonne soirée.