mere gejl til treeView
Hej med jer,Private Sub Form_Load()
'Treeview Init
Dim nd As Node
TreeView1.Style = tvwTreelinesPlusMinusText ' Style 6.
TreeView1.LineStyle = tvwRootLines 'Linestyle 1.
TreeView1.Nodes.Add , , "root", "Plan 1"
TreeView1.Nodes.Add "root", tvwChild, "GRAV", "Grav"
TreeView1.Nodes.Add "GRAV", tvwChild, "g0", "Definitioner"
TreeView1.Nodes.Add "GRAV", tvwChild, "g1", "Dimensioner"
TreeView1.Nodes.Add "GRAV", tvwChild, "g2", "Føring"
TreeView1.Nodes.Add "root", tvwChild, "VAND", "Vand"
TreeView1.Nodes.Add "VAND", tvwChild, "v0", "Definitioner"
TreeView1.Nodes.Add "VAND", tvwChild, "v1", "Dimensioner"
TreeView1.Nodes.Add "VAND", tvwChild, "v2", "Føring"
TreeView1.Nodes.Add "root", tvwChild, "EL", "El"
TreeView1.Nodes.Add "EL", tvwChild, "e0", "Definitioner"
TreeView1.Nodes.Add "EL", tvwChild, "e1", "Samlinger"
TreeView1.Nodes.Add "EL", tvwChild, "e2", "Kapacitet"
TreeView1.Nodes.Add "EL", tvwChild, "e3", "Tilgang"
TreeView1.Nodes.Add "EL", tvwChild, "e4", "Montering"
TreeView1.Nodes.Add "root", tvwChild, "GENERELT", "Generelt"
TreeView1.Nodes.Add "GENERELT", tvwChild, "gen0", "Indlæs typer"
TreeView1.Nodes.Add , , "plan2", "Plan 2"
For Each nd In TreeView1.Nodes
nd.Expanded = False
Next
...og jeg har det her kode til det:
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
For A = 0 To Frame1.Count - 1
Frame1(A).Visible = False
Next A
Frame1(Val(Mid(Node.Key, 2))).Visible = True
OKOK!
Det er fin nok. mit problem er, at jeg gerne vil vise den frame som min NODE refererer til (f.eks. Vand/Definitioner) men som det er nu, så bliver de samme frames vist for hver kategori (dvs. den samme frame bliver vist under første NODE under de forskellige PARENTS, og det går jo slet ikke)
Er der nogen der kan hjælpe mig ? Jeg giver 100 points fordi der er så meget at læse i dette spørgsmål ...
Alt vel,
Fab
