effectuer un filtre sur une listebox

Version imprimable

16/09/2008, 20h50
alcap

effectuer un filtre sur une listebox

Bonjour

J’ai commencé un programme par remplier une listebox

J’ai ensuite ajouté un textbox pour pouvoir effectuer une recherche dans cette liste

Le problème c'est que je ne sais pas comment je peux faire cette recherche (mais en gros sa consiste à laisser dans la listebox tout les éléments qui contiens le texte de la textbox)

Exemple :
Liste de basse :

A1
A11
A12
A23
A24
A24
B21

Après avoir mis "A1" dans le textbox le résultat devras être :

A1
A11
A12
16/09/2008, 21h18
Pol63

rien de plus simple, il suffit de mettre tous tes elements dans une autre collection (un system.collections.generic.list of() par exemple)

ensuite tu fais items.add sur le listbox pour chaque element de la collection

et sur textchanged du textbox, tu fais items.clear sur le listbox et .add pour chaque element donc le nom like ce qui est dans le textbox
16/09/2008, 22h44
grrrkewel

ou alors tu reparcours ta listbox avec une boucle (listbox.items.count) et tu supprime les éléments différents de ton textbox.text

j'ai un bug sur la creation de la liste

(déclaration dans le module)
ATTENTION EDIT A LA FIN

Code:

Public liste As System.Collections.Generic.List(Of String)

(dans le même module)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub LectureFichierDansLeRepertoire()
        Form1.ListBoxNumPlan.Items.Clear()
        Dim rep As String
        'obtient le premier fichier ou répertoire qui est dans le repertoire
        rep = Dir(My.Settings.Default.Repertoire & "\*.*", vbDirectory)
        'boucle tant que le répertoire n'a pas été entièrement parcouru
        Do While (rep <> "")
            'teste si c'est un fichier ou un répertoire
            If (GetAttr(My.Settings.Default.Repertoire & "\" & rep) And vbDirectory) = vbDirectory Then
                'ici si répertoire
            Else
                'ici si fichier    
                Form1.ListBoxNumPlan.Items.Add(rep)
                liste1.Add(rep)
            End If
            'passe à l'élément suivant
            rep = Dir()
        Loop
 
End Sub

(ici impossible de faire un ".add pour chaque element donc le nom like ce qui est dans le textbox") ATTENTION EDIT

Code:

1
2
3
4
5
6
7
8
9
   Me.ListBoxNumPlan.Items.Clear()
 
        Dim boucle As Integer
 
        For boucle = 0 To ModuleRepertoire.liste1.Count
            If ModuleRepertoire.liste1.Item(boucle).StartsWith(Me.TextBoxRecherchePlan.Text) = True Then
                Me.ListBoxNumPlan.Items.Add(ModuleRepertoire.liste1.Item(boucle))
            End If
Next

EDIT aprés modification
(déclaration dans le module)

Code:

Public liste As New System.Collections.Generic.List(Of String)

j'ai deplacé le code du 'filtre' dans une sub du module utilisé

17/09/2008, 08h27
Pol63

pour la création de la liste, si tu ne fais pas un New, ca ne marchera pas ...

et pourquoi la déclarer public, je suis sur que private suffit

EDIT

sa marche !!!:yaisse2:

donc j'ai fait un module avec

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Module ModuleRepertoire
    Private liste1 As New System.Collections.Generic.List(Of String)
 
 
    Sub LectureFichierDansLeRepertoire()
        Form1.ListBoxNumPlan.Items.Clear()
        Dim rep As String
        'obtient le premier fichier ou répertoire qui est dans le repertoire
        rep = Dir(My.Settings.Default.Repertoire & "\*.txt", vbDirectory) 'attention ici j'ai filter les fichier texte 
        'boucle tant que le répertoire n'a pas été entièrement parcouru
        Do While (rep <> "")
            'teste si c'est un fichier ou un répertoire
            If (GetAttr(My.Settings.Default.Repertoire & "\" & rep) And vbDirectory) = vbDirectory Then
                'ici si répertoire
            Else
                'ici si fichier    
 
                If rep.EndsWith(".txt") Then 'controle si c'est un fichier texte
 
                    rep = rep.Remove(rep.Length - 4, 4) ' ici sa coupe l'extention du nom du fichier 
                    Form1.ListBoxNumPlan.Items.Add(rep)
                    liste1.Add(rep)
                End If
            End If
            'passe à l'élément suivant
            rep = Dir()
        Loop
 
    End Sub
 
'ici je fait le filtre pour la listbox
    Sub Filtre()
        Form1.ListBoxNumPlan.Items.Clear()
 
        Dim boucle As Integer
 
        For boucle = 0 To ModuleRepertoire.liste1.Count - 1
            If ModuleRepertoire.liste1.Item(boucle).Contains(Form1.TextBoxRecherchePlan.Text) = True Then
                Form1.ListBoxNumPlan.Items.Add(ModuleRepertoire.liste1.Item(boucle))
            End If
        Next
    End Sub
 
End Module