/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
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



Søg
Reklame
Statistik
Spørgsmål : 177559
Tips : 31968
Nyheder : 719565
Indlæg : 6408938
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste