---

Hej

Hvorfor kommer mit "Ny Sub" punkt ikke under menupunktet "Rediger" men
istedet under menupunktet søg?

/Thomas

Kildekoden:

Set mNode = TreeView1.Nodes.Add()
mNode.Text = "Kunder"
mNode.Expanded = True

Set mNode = TreeView1.Nodes.Add(1, tvwChild)
mNode.Text = "Søg"

Set mNode = TreeView1.Nodes.Add(2, tvwChild)
mNode.Text = "Ny"

Set mNode = TreeView1.Nodes.Add(1, tvwChild)
mNode.Text = "Rediger"

Set mNode = TreeView1.Nodes.Add(2, tvwChild)
mNode.Text = "Ny sub"

---

Det går galt med dine reference til "Relative"
Se følgende:

Dim mNode As MSComctlLib.Node

Set mNode = TreeView1.Nodes.Add() ' <--- Index 1
mNode.Text = "Kunder"
mNode.Expanded = True

Set mNode = TreeView1.Nodes.Add(1, tvwChild) ' <--- Index 2
mNode.Text = "Søg"

Set mNode = TreeView1.Nodes.Add(2, tvwChild) ' <--- Index 3
mNode.Text = "Ny"

Set mNode = TreeView1.Nodes.Add(1, tvwChild) ' <--- Index 4
mNode.Text = "Rediger"

Set mNode = TreeView1.Nodes.Add(4, tvwChild) ' <--- Index 5
mNode.Text = "Ny sub"



- Niels G

---

Hej Thomas

Generelt er det en mindre god idé, at stole på de indexer du får fra et
treeview... de kan nemlig ændre sig efterhånden som nye nodes tilføjes...

Derfor: Giv hver node en key og brug den som reference i stedet for et
index.

/Carsten Suurland

---

"Carsten Suurland" <carsten@suurland.dk> wrote in message
news:GSF_7.12111$aS.1623843@news010.worldonline.dk...

> Derfor: Giv hver node en key og brug den som reference i stedet for et
> index.

Kan du ikke give et eks her på?

/Thomas

---

Hej Thomas...

Jo det kan jeg da:

Følgende bliver oprettet:

+ Kunder
Søg
Ny

Set RootNode = TreeView1.Nodes.Add(, , "ROOT", "Kunder")

'Opret en child node til RootNode...
'Her via RootNode's key
Set mNode = TreeView1.Nodes.Add("ROOT", tvwChild, "SEEK", "Søg")
'Her via selve RootNode
Set mNode = TreeView1.Nodes.Add(RootNode, tvwChild, "Søg")

Set mNode = TreeView1.Nodes.Add("ROOT", twvChild, "NEW", "Ny")

/Carsten Suurland