• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

via Treeview een andere userform openen

  • Onderwerp starter Onderwerp starter HWV
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

HWV

Terugkerende gebruiker
Lid geworden
19 feb 2009
Berichten
1.213
Beste,

Ik heb de volgende code om een treeview te maken, wat goed werkt.
Nu zou ik ook door willen klikken, is dat mogelijk dat ik bv bij de code
Code:
 Set nodX = .Add("C1", tvwChild, "C11", "Child 11")
door klik naar een andere userform bv userform2

Code:
Dim nodX As Node
    TreeView1.CheckBoxes = False
    With TreeView1.Nodes
        .Clear
        Set nodX = .Add(, , "R", "Hoofdmenu")
        Set nodX = .Add("R", tvwChild, "C1", "Child 1")
        nodX.Expanded = False
        nodX.EnsureVisible
        Set nodX = .Add("C1", tvwChild, "C11", "Child 11")
        Set nodX = .Add("C1", tvwChild, "C12", "Child 12")
        Set nodX = .Add("C1", tvwChild, "C13", "Child 13")
        Set nodX = .Add("R", tvwChild, "C2", "Child 2")
        nodX.Expanded = False
        Set nodX = .Add("C2", tvwChild, "C21", "Child 21")
        Set nodX = .Add("C2", tvwChild, "C22", "Child 22")
        Set nodX = .Add("C2", tvwChild, "C23", "Child 23")
        Set nodX = .Add("C2", tvwChild, "C24", "Child 24")
        Set nodX = .Add("C2", tvwChild, "C25", "Child 25")
        Set nodX = .Add("C2", tvwChild, "C26", "Child 26")
        
        Set nodX = .Add("R", tvwChild, "C3", "Child 3")
        nodX.Expanded = False
        Set nodX = .Add("C3", tvwChild, "C31", "Child 31")
        Set nodX = .Add("C3", tvwChild, "C32", "Child 32")
        Set nodX = .Add("C3", tvwChild, "C33", "Child 33")
        Set nodX = .Add("R", tvwChild, "C4", "Child 4")
        nodX.Expanded = False
        Set nodX = .Add("C4", tvwChild, "C41", "Child 41")
        Set nodX = .Add("C4", tvwChild, "C42", "Child 42")
        Set nodX = .Add("C4", tvwChild, "C43", "Child 43")
    End With
    TreeView1.Style = tvwTreelinesPlusMinusText
    TreeView1.BorderStyle = ccFixedSingle

Ik weet niet of het mogelijk is, ik heb al speurwerk gedaan op het internetmaar kon het niet vinden.

Alle tips en misschien voorbeelden zijn welkom.

groet HWV
 
Met een bijlage ter verduideling

Beste,

Wel mensen die hebben gekeken maar geen reactie, ik heb mijn document toegevoegt om mijn vraag kracht bij te zetten.
Zodra je de trieview ziet en doorklikt op child1 en door als je dubbelklikt op child 11 dan zou ik graag naar een andere userform willen gaan.

Is dit mogelijk, zoja hoe pak ik dit aan. :rolleyes:

groet HWV
 

Bijlagen

Nog niet opgelost

Beste,

Van de watchdog kreeg ik de melding dat deze vraag nog open staat.
Klopt, dat hij nog open staat.

Is het wel mogelijk om dit met een treeview te bereiken, anders moet ik wat anders gaan verzinnen

Groet HWV
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan