DÉBUTANTS : UTILISEZ UN TREEVIEW(MAJ AVEC LE BON ZIP)
cs_jeanyves
Messages postés
57
Date d'inscription
samedi 30 mars 2002
Statut
Membre
Dernière intervention
24 mars 2003
-
21 sept. 2002 à 07:21
cs_freegamer Messages postés 99 Date d'inscription vendredi 11 juillet 2003 Statut Membre Dernière intervention 16 juin 2007 - 8 janv. 2005 à 21:38
cs_freegamer Messages postés 99 Date d'inscription vendredi 11 juillet 2003 Statut Membre Dernière intervention 16 juin 2007 - 8 janv. 2005 à 21:38
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/4574-debutants-utilisez-un-treeview-maj-avec-le-bon-zip
https://codes-sources.commentcamarche.net/source/4574-debutants-utilisez-un-treeview-maj-avec-le-bon-zip
8 janv. 2005 à 21:38
Quelqu'un serait-il comment modifier le texte d'un noeud d'une treeview ?
Merci de me repondre.
FREEGAMER
23 oct. 2004 à 21:27
8 oct. 2004 à 14:12
tu m'a bien aidé
10 juin 2003 à 15:43
23 sept. 2002 à 10:12
La source que j'avais mise à la place était un vieux test perso pour vérifier le comportement de Dir() en récurent... comme vous avez pu le constater... c'est pas terrible.
Le zip a été modifié et le but du prog et bien plus simple.
Encore désolé... J'vai aler faire 100 pompes pour me punir !
Au fait, pour les arbos dans des treeview, il y a un bon exemple dans le source du gagnant du dernier concours. Allez y jetez un oeil si ça vous interresse.
A plouch !
22 sept. 2002 à 14:08
Pour cela on pourra aussi se référer au lien suivant :
http://www.mvps.org/accessfr/apis/api0002.htm
22 sept. 2002 à 13:50
Le but était de charger l'arbre "noeud par noeud".
Le prochain qui s'intéresse à la question nous dit comment on charge plus vite l'arborescence d'un disque vers un "Treeview".
___________________________
Option Explicit
Dim objmso As Object
Private Sub Form_Load()
Form1.Caption = "Arborescence du disque"
Set objmso = CreateObject("Scripting.FileSystemObject")
Dim mNode As Node
Set mNode = Tree.Nodes.Add()
mNode.Text = "Bureau"
' Définit la propriété Tag.
mNode.Tag = "Bureau"
' Définit la propriété Image.
'mNode.Image = numrech
mNode.Key = "BUR"
Set mNode = Tree.Nodes.Add(1, tvwChild)
mNode.Text = "C"
mNode.Tag = "C"
'mNode.Image = numrech
mNode.Key = "C"
create_treefile objmso.GetFolder("c:"), 2
End Sub
Public Sub create_treefile(objSFic As Object, sindex As Double)
Dim objSsrep As Object
Dim MyName As String
Dim mNode As Node
For Each objSsrep In objSFic.SubFolders
Debug.Print objSsrep.Name, objSsrep.Attributes
Set mNode = Tree.Nodes.Add(sindex, tvwChild)
mNode.Text = objSsrep.Name
mNode.Tag = objSsrep.Name
create_treefile objSsrep, mNode.Index
Next
End Sub
22 sept. 2002 à 12:37
Il ne paraît pas certain, en tout cas sous Windows 98 et VB6, que la fonction Dir() puisse s'employer dans une fonction récurrente. Dès qu'on a fini de traiter le premier répertoire qui ne contient pas de sous-répertoire, la fonction Dir() est à nouveau appelée, dans le répertoire parent, alors qu'elle vient de retourner une chaîne vide, aussi elle retourne une erreur.
Et on est devant, les bras ballants, à se demander ce qu'on va faire ...
21 sept. 2002 à 07:38
Peux-tu me guider ?
jy
21 sept. 2002 à 07:21
Jean yves