Tilføje imagelist til et TreeView control

Har du lavet funktionen der viser et billede?
Ellers kan du se stry's udmærkede artikel om emnet. Jeg kan også sende dig en demo med vejledning. Blot læg din e-mail (db'en er ikke med et Treeview control).

Hej,
nej hvordan skal sådan en funktion se ud, og hvor skal billederne "lægges"...
kan du se hvorfor denne kode ikke virker (alle nodes bliver lagt i en lang række, ingen ChildNodes...):

Option Compare Database

Private Sub Form_Load()
'Alle noder i træet fjernes
ctlTree.Nodes.Clear

Dim rs As New ADODB.Recordset

' åbner tabellen tblKunder og tilføjer en rodNode for hver
' nodens key sættes = "firma" & ID for senere at
' bruge den når der vælges en node i træet samt lave
' child noder

rs.Open "tblKunder", CurrentProject.Connection
Do While Not rs.EOF
ctlTree.Nodes.Add , , "firma" & rs!ID, rs!firmanavn
rs.MoveNext
Loop
rs.Close

' vi fortsætter med at åbne tblkvalitetskontroller og
' tiføje kontroller med reference til rodnodens
' key værdi = firma id (feltet kunde indeholder id)

rs.Open "tblKvalitetskontrol", CurrentProject.Connection
Do While Not rs.EOF
ctlTree.Nodes.Add "firma" & rs!Kunde, tvwChild, rs!IDDevice, rs!Dato
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
 
End Sub

hvor finder jeg stry's artikel???

http://eksperten.dk/artikler/197

Jeg har ikke haft lejlighed til at se på din kode. Men får du nogen fejlmelding.

jeg fandt selv fejlen omkring parent- og childnodes... Da jeg slettede mit Tree og oprettede det igen som "Microsoft TreeView 5.0" i stedet for ".... 6.0" virkede det uden rettelse i koden... Mærkeligt...

Jeg tror vi går lidt forbi hinanden med billederne. De billeder jeg vil have er billeder i stedet for "+" og "-" tegnet ud for de forskellige nodes. Eller et billede mellem "+" eller "-" og teksten på noden.

Ja så har jeg misforstået dig. Følger med i svarene.

med hensyn til imagelist:

Du kan tilføje en imagelist til formen:
værktøjskasse -> flere kontrolelementer -> microsoft imagelist control, ver 6

Når du dobbeltklikker på denne kan du tilføje nogle billeder til listen (undgå for store billeder, men find en samling 16X16 på nettet). Hvert billede (ikon) tildeles et index (nummer).

I egenskaberne fra treeViewet skal du under imagelist vælge den netop oprettede imagelist.

I koden, hvor du loader dit træ, kan du knytte dette index fra imagelisten til en node. Eks vil vi knytte det andet billede til en node:
      ctlTree.Nodes.Add "firma" & rs!Kunde, tvwChild, rs!IDDevice, rs!Dato, 2
det sidste 2 tal angiver netop indekset fra imagelisten.

Herunder angives udover billede 2 fra imageliste at billede nummer 4 er det billede der skal vises når noden er valgt.
      ctlTree.Nodes.Add "firma" & rs!Kunde, tvwChild, rs!IDDevice, rs!Dato, 2, 4

mvh Niels

Det med forskellige billeder kan du lave som et udtræk fra din tabel ligesom rs!dato.

Niels

hej Niels

Det virker jo - fantastisk (jeg måtte dog bruge imagelist control, ver 5 (SP2), da jeg ikke kan få mit TreeView 6.0 til at virke - bruger TreeView 5 (SP2))!

Tak for hjælpen !

Uddeling af point - et svar tak !

jo tak :)