Avatar billede fab Nybegynder
14. april 2002 - 22:07 Der er 4 kommentarer og
1 løsning

Simpelt spørgsmål omkring TreeView og Frames

Hej. Endnu et simpelt spørgsmål fra en håbløs vb koder :)

Jeg har et treeview der ser sådan her ud:

Private Sub Form_Load()

    Dim nd As Node
   
    TreeView1.Nodes.Add , , "root", "Installationer"
   
    TreeView1.Nodes.Add "root", tvwChild, "VAND", "Vand"
    TreeView1.Nodes.Add "VAND", tvwChild, "VAND02", "Dimensionering"
    TreeView1.Nodes.Add "VAND", tvwChild, "VAND03", "Samlinger"
    TreeView1.Nodes.Add "VAND", tvwChild, "VAND04", "Kapacitet"
    TreeView1.Nodes.Add "VAND", tvwChild, "VAND05", "Tilgang"
    TreeView1.Nodes.Add "VAND", tvwChild, "VAND06", "Montering"
   
    TreeView1.Nodes.Add "root", tvwChild, "GAS", "Gas"
    TreeView1.Nodes.Add "GAS", tvwChild, "GAS01", "Dimensionering"
    TreeView1.Nodes.Add "GAS", tvwChild, "GAS02", "Samlinger"
    TreeView1.Nodes.Add "GAS", tvwChild, "GAS03", "Kapacitet"
    TreeView1.Nodes.Add "GAS", tvwChild, "GAS04", "Montering"
     
   
    For Each nd In TreeView1.Nodes
        nd.Expanded = True
    Next

End Sub


OK - jeg har lavet sådan nogle FRAMES, der hedder det samme som hver NODE-KEY - og når man klikker på en NODE, så vil jeg gerne

a) skjule alle FRAMES
b) vis den FRAME der hedder det samme som NODE-KEY

Jeg gir sgu 60 points for det, for jeg er totalt stresset oven i hjernen pga. det !

Håber at i kan hjælpe - hurtigt :=)
Avatar billede thokarl Nybegynder
14. april 2002 - 22:30 #1
Jeg har lavet et eksempel til dig... har du en email adresse?
Avatar billede fab Nybegynder
14. april 2002 - 22:42 #2
ja, send det evt. til fab@eek.dk - men læg det også gerne her på eksperten - hvis der nu er andre der kan få brug for det.. ??

mvh fab
Avatar billede thokarl Nybegynder
14. april 2002 - 22:48 #3
så er den sendt.... men hvordan sender man en fil til eksperten?
Avatar billede fab Nybegynder
14. april 2002 - 22:52 #4
Ok, her er scriptet fra Thokarl - det kræver at man har en form med en treeview kontrol i og med de respektive FRAMES, sæføli.

tak fil thokarl


Private Sub Command1_Click()


End Sub

Private Sub Form_Load()
   
    Dim nd As Node
   
    TreeView1.Nodes.Add , , "root", "Installationer"
   
    TreeView1.Nodes.Add "root", tvwChild, "VAND", "Vand"
    TreeView1.Nodes.Add "VAND", tvwChild, "v0", "Dimensionering"
    TreeView1.Nodes.Add "VAND", tvwChild, "v1", "Samlinger"
    TreeView1.Nodes.Add "VAND", tvwChild, "v2", "Kapacitet"
    TreeView1.Nodes.Add "VAND", tvwChild, "v3", "Tilgang"
    TreeView1.Nodes.Add "VAND", tvwChild, "v4", "Montering"
   
    For Each nd In TreeView1.Nodes
        nd.Expanded = True
    Next

End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    For A = 0 To Frame1.Count - 1
        Frame1(A).Visible = False
    Next A
    Frame1(Val(Mid(Node.Key, 2))).Visible = True
    Debug.Print Val(Mid(Node.Key, 2))
End Sub
Avatar billede thokarl Nybegynder
14. april 2002 - 22:58 #5
det skal nok lige nævnes at vores frames er indexeret, og det er den måde at der bliver bladret rundt i dem...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester