Treeview - Comment rechercher dans un niveau ?

Signaler
Messages postés
2
Date d'inscription
vendredi 25 juin 2004
Statut
Membre
Dernière intervention
25 juin 2004
-
Messages postés
2
Date d'inscription
vendredi 25 juin 2004
Statut
Membre
Dernière intervention
25 juin 2004
-
Bonjour,

Je débute en programmation, voici mon pb :
Je veux mettre dans une treeview le contenu d'un fichier texte, qui contient des chemins de documents.
je ne connais pas par avance le nombre de niveaux, ni le nombre d'enregistrements, aussi je dois faire des vérifications entre la Treeview existante et le contenu de variables qui contiennent mes répertoires à rajouter.

Il y a bien la notion de Node.NextNode pour faire une itération
Dim Thniv() as string
Dim Node As TreeNode
Node = TreeView1.Nodes(0).FirstNode
While Node <> Nothing
If Node Is Thniv(0) Then
TreeView1.Nodes.Add(Thniv(0))
End If
End While

Mais While node <> Nothing pose Pb
On ne peut mettre <>

Quelqu'un aurait-il un moyen plus simple pour mettre à jour une Treeview SVP ?

Merci d'avance,

5 réponses

Messages postés
1467
Date d'inscription
samedi 13 mars 2004
Statut
Membre
Dernière intervention
5 mai 2010
4
Tu pourrais essayer un truc du genre :

Dim p as integer
p = 0
Dim Thniv() as string
Dim Node As TreeNode

Node = TreeView1.Nodes(0).FirstNode

begin:

If Node Is Thniv(0) Then
TreeView1.Nodes.Add(Thniv(0))
End If

p = p + 1
Node = treeview1.Nodes(p).FirstNode
If Node <> Nothing goto begin

Voilà !

Pice-WCorp bientôt sur le net.
Messages postés
1467
Date d'inscription
samedi 13 mars 2004
Statut
Membre
Dernière intervention
5 mai 2010
4
Note que je suis sur de rien !

Pice-WCorp bientôt sur le net.
Messages postés
87
Date d'inscription
samedi 3 mai 2003
Statut
Membre
Dernière intervention
9 juin 2005


If node is nothing then

else

end if



ça jsuis pratiquement sûre que ca marche. @ +++
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
6
plus simple encore, un code récurcif, ce qui veut dire qui s'appel lui même. j'ai rien tester, donc il y a surement des erreur, masi au moins tu as pas mal tout l'algo

public function rechercehNode(node as nodes, recherche as string) as boolean
dim i as integer
for i = 0 to ubound(node) - 1
if node(i).value = recherche then
rechercehNode = true
exit function
end if
if ubound(node(i).nodes) <> 0 then
rechercehNode = rechercehNode(node(i).nodes, recherche)
if rechercehNode then
exit fnuction
end if
end if
next i
end function
Messages postés
2
Date d'inscription
vendredi 25 juin 2004
Statut
Membre
Dernière intervention
25 juin 2004

Merci les gars pour vos solutions.
Le temps de me remettre de la défait de la France, et je reprendrais la programmation demain avec vos idées.

A+