|
| treeview Fra : Thomas Nielsen |
Dato : 08-01-02 12:38 |
|
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"
| |
Niels G (08-01-2002)
| Kommentar Fra : Niels G |
Dato : 08-01-02 16:06 |
|
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
| |
Carsten Suurland (08-01-2002)
| Kommentar Fra : Carsten Suurland |
Dato : 08-01-02 18:19 |
|
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
| |
Thomas Nielsen (10-01-2002)
| Kommentar Fra : Thomas Nielsen |
Dato : 10-01-02 11:05 |
|
"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
| |
Carsten Suurland (10-01-2002)
| Kommentar Fra : Carsten Suurland |
Dato : 10-01-02 19:23 |
|
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
| |
|
|