Discussion :

[Jsiorat]

Bonjour à toutes et tous

J'ai découvert sur un site dont je ne retrouve pas le nom, cette petite procédure

Code :

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

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
Private Sub Form_Open(Cancel As Integer)
    RemplirTVW TVW
End Sub
 
Private Sub RemplirTVW(TVW As Object)
 
    TVW.LineStyle = tvwRootLines
    ' *** RACINES
    Call TVW.Nodes.Add(Key:="Node-1", Text:="N° 1")
    Call TVW.Nodes.Add(Key:="Node-2", Text:="N° 2")
    Call TVW.Nodes.Add(Key:="Node-3", Text:="N° 3")
 
    ' *** 1er étage
 
    Call TVW.Nodes.Add(Relative:="Node-1", relationship:=tvwChild, Key:="Node-4", Text:="N° 4")
    Call TVW.Nodes.Add(Relative:="Node-1", relationship:=tvwChild, Key:="Node-5", Text:="N° 5")
    Call TVW.Nodes.Add(Relative:="Node-2", relationship:=tvwChild, Key:="Node-6", Text:="N° 6")
    Call TVW.Nodes.Add(Relative:="Node-3", relationship:=tvwChild, Key:="Node-7", Text:="N° 7")
 
    ' *** 2ème étage
 
    Call TVW.Nodes.Add(Relative:="Node-4", relationship:=tvwChild, Key:="Node-8", Text:="N° 8")
    Call TVW.Nodes.Add(Relative:="Node-4", relationship:=tvwChild, Key:="Node-9", Text:="N° 9")
    Call TVW.Nodes.Add(Relative:="Node-5", relationship:=tvwChild, Key:="Node-10", Text:="N° 10")
    Call TVW.Nodes.Add(Relative:="Node-5", relationship:=tvwChild, Key:="Node-11", Text:="N° 11")
    Call TVW.Nodes.Add(Relative:="Node-6", relationship:=tvwChild, Key:="Node-12", Text:="N° 12")
    Call TVW.Nodes.Add(Relative:="Node-7", relationship:=tvwChild, Key:="Node-13", Text:="N° 13")
    Call TVW.Nodes.Add(Relative:="Node-7", relationship:=tvwChild, Key:="Node-14", Text:="N° 14")
    Call TVW.Nodes.Add(Relative:="Node-7", relationship:=tvwChild, Key:="Node-15", Text:="N° 15")
 
 
End Sub

Ce petit bout de code donne ça ! C'est excellent !


J'aimerais qu'on m'explique les termes "Relative" et "RelationShip". C'est la première fois que je vois ces termes
J'ai adapté ce code à partir de requêtes SQL dans une autre application, et c'est assez formidable

Un grand merci !

[hyperion13]

Salut
Voici un site qui pourrait vous aider et la FAQ ici ou là

[Jsiorat]

Un grand merci, j'espère y trouver les réponses à mes questions