Tree view controll 6.0

Du kan lave en hændelse direkte i treeViewet

Kald dit treeView et eller andet eks CtlTree

I VBAeditoren for formen kan du vælge ctlTree i øverste venstre rulned box og en passende hændelse i den højre.

eks:

Private Sub ctlTree_NodeClick(ByVal Node As Object)
  msgbox = Node.Key
End Sub

Niels

Jeg søgte lige og fandt et par links du måske kan bruge:

http://support.microsoft.com/default.aspx?scid=kb;EN-US;209898

http://www.tek-tips.com/gviewthread.cfm/lev2/4/lev3/27/pid/702/qid/579913

Jeg får ikke koden din til å fungere.

Nå jeg markerer ett felt og klikker på en komando knapp så skal det skje en hendelse.
(evt når jeg dobbelklikker på ett felt)  (øsnker åpne ett nytt skjema)

Hva kan jeg gjøre feilt ?

is this question still relevant?

Jeg har enda ikke fått løst mitt problem.

Nå ett av nivåene er markert i tree view, og jeg trykker på en knapp, så skal det skje en besemt hendelse, alt etter hvilket nivå som er markert.
Tree view skal inneholde navn på diverse skjema, når skjema navn er markert, jeg trykker på en cmd, så skal skjema'et åpnes.

Ingen som har noen forslag ?

Kan noe hjelpe ?

I'll take a look later

I'm not 100%sure what you are trying to do but as nih's example show there is an event (NodeClick) where you can find the value of the NODE you selected.
The Node.Key is optional whereas the text is required. So this should give you something.



Private Sub Treeview1_NodeClick(ByVal Node As Object)
  msgbox = Node.Text
End Sub

An idea would be to have a field on the form (hidden) and when you select a NODE place the value into the field so that when you click on your button you have the value

Private Sub Treeview1_NodeClick(ByVal Node As Object)
  Me.HiddenTextField = Node.Text

End Sub

have you looked at this?

.

.

hdg>can you use this?

Beklager sent svar.

Når jeg bruker koden din får jeg følgende feilmelding :

Kompileringsfeil
Funksjonskallet på venstre side av tilordningen må returene en variant eller ett objekt.

Hva gjør jeg feil ?
Dersom det hjelper på problemet, kan du gjerne få se databasen.

NOSPAMeksperten@santhell.dkNOSPAM

remove NOSPAM

Just notice a little error

Change this
Private Sub Treeview1_NodeClick(ByVal Node As Object)
  msgbox = Node.Text
End Sub

to

Private Sub Treeview1_NodeClick(ByVal Node As Object)
  msgbox Node.Text
End Sub

I'll alter the application and send it back.

Med den siste justeringen gikk dette veldig bra.
Takk for hjelpen

selv tak :o)