AIDE SUR LES TREEVIEW
cs_liquide
Messages postés
1016
Date d'inscription
samedi 22 mars 2003
Statut
Membre
Dernière intervention
24 juin 2008
-
16 août 2005 à 23:52
binet1 Messages postés 28 Date d'inscription samedi 26 février 2005 Statut Membre Dernière intervention 7 janvier 2009 - 19 nov. 2008 à 21:07
binet1 Messages postés 28 Date d'inscription samedi 26 février 2005 Statut Membre Dernière intervention 7 janvier 2009 - 19 nov. 2008 à 21:07
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/33270-aide-sur-les-treeview
https://codes-sources.commentcamarche.net/source/33270-aide-sur-les-treeview
19 nov. 2008 à 21:07
20 avril 2008 à 18:42
23 déc. 2006 à 20:27
Salut à tous, ma pseudo réponse n'est en rien importante, c'est juste pour dire que certains essaye de faire avancé les choses comme Violent_Ken, et que malheureusement, d'autres, sont si balèze, qu'il ne font qu'éemettre des critiques. En tout cas, on voit ceux qui ont envie de partager/
18 sept. 2006 à 17:49
enfin j'arrive a m'en servir grace à ce code source simple !
9 déc. 2005 à 22:40
29 août 2005 à 10:06
le contenu deviens même illisible, voire erroné.
Tvw.LabelEdit = tvwAutomatic 'active le renommage de label
Tvw.LabelEdit = tvwManual 'le dsactive
Tvw.Checkboxes = True 'checkboxes actives
Tvw.Checkboxes = False 'checkboxes dsactives
[...]
bref, faire une chose, puis son contraire.. ?
si c'est pour documenter, je dirais simplement qu'il faut apprendre a se servir de l'IDE de VB : Avec l'explorateur d'objets (touche f2) vous oobtiendrez une description claire et en français, s'il vous plait.
Set nodx = Tvw.Nodes.Add(, , "n", "La racine")
Set nodx = Tvw.Nodes.Add("n", tvwChild, "n1", "Noeud 1")
Set nodx = Tvw.Nodes.Add("n", tvwChild, "n2", "Noeud 2")
[...]
Inutile d'affecter ici nodx, si tu ne t'en sers pas...
on preferera :
Tvw.Nodes.Add Key:= "n", Text := "La racine"
Tvw.Nodes.Add "n", tvwChild, "n1", "Noeud 1"
Tvw.Nodes.Add "n", tvwChild, "n2", "Noeud 2"
Private Sub tvw_Collapse(ByVal Node As MSComctlLib.Node)
'Se produit quand on reduit
'MsgBox Node exprime le nom du noeud (ex: Noeud 2.1)
End Sub
Node n'indique pas le nom, mais un Objet Node correspondant au noeud que l'on réduit.
'If Node = "Noeud 3" Then MsgBox "Dernier Noeud slectionn"
correct uniquement si ton dernier noeud se nomme ainsi...
on preferera quelque chose comme :
If Node.Index = tvw.Nodes.Count-1 Then
'LENOM = tvw.Nodes.Item(3)
pourquoi prendre l'item 3 ?
Bref, une "Aide" qui ne fait que paraphraser ce que l'on peut obtenir de l'IDE (F2)
et qui peut embrouiller (code inutile, redondant) les personnes qui souhaitent utiliser les TreeView.
reformulé, et sous la forme d'un tutoriel structuré, ca pourrais avoir davantage d'interet
17 août 2005 à 13:58
Je trouve que celui-ci est bien fait pcq il montre tres simplement comment s'en servir et rien de superflu... (mais bon je les ai po toutes faite, y en a peut etre des mieux...)
Bonne prog a tous @+