Tree View Help

[BaDDBLooD]

I use this function to add nodes

Public Function AddTree(ByVal Name, ByVal Capt, ByVal PC)
 
Dim NodeC As Variant
 
    Select Case PC
     
        Case "P"
            
            Set NN = TreeSetup.Nodes.Add(, , Name, Capt)
             
        Case "C"
 
            NodeC = NodeC & NodeC
            Set NN = TreeSetup.Nodes.Add(Name, tvwChild, NodeC, Capt)
             
    End Select
     
 End Function

and i have these for my Nodes:

AddTree "Main", "Global", "P"
 
AddTree "Main1", "Battle.net", "P"
AddTree "Main1", "Login", "C"
AddTree "Main1", "Options", "C"
 
AddTree "Main2", "Bot Options", "P"
AddTree "Main2", "Anti-Idle", "C"
AddTree "Main2", "Filters", "C"
AddTree "Main2", "GUI", "C"

But it ends up Showing like

Global
          [-]Battle.net
                    Login
                    Options
          [+]Bot Options
                    Anti-Idle
                    Filters
                    GUI


But i want it Like

[-]Global
          [+]Battle.Net
          [-]Bot Options
                    Anti-Idle
                    Filters
                    GUI

I want to be able to Collapse Global, but it won't let me >_<!!!!

[brucevde]

Your Main1 and Main2 nodes need to be Children of the Global node.

Why the function? It doesn't really do anything useful, you can just add the new nodes directly(unless you are not showing the entire code).

Private Sub Command1_Click()
    AddTree "Main", "Global"
    
    AddTree "Main1", "Battle.net", "Main"
    AddTree "", "Login", "Main1"
    AddTree "", "Options", "Main1"
    
    AddTree "Main2", "Bot Options", "Main"
    AddTree "", "Anti-Idle", "Main2"
    AddTree "", "Filters", "Main2"
    AddTree "", "GUI", "Main2"
 
End Sub
Public Function AddTree(ByVal Key As String, ByVal Caption As String, Optional ByVal ParentKey As String = "")
 
    If ParentKey = "" Then
        Set NN = TreeView1.Nodes.Add(, , Key, Caption)
    Else
    
        Set NN = TreeView1.Nodes.Add(ParentKey, tvwChild, Key, Caption)
    End If
 End Function

[BaDDBLooD]

i have 2 more questions/favors to ask

How would i go about telling it to make a frame visibile when a certain node is Highlighted and not visibile when it's not highlighted?

[MartinLiss]

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
 
    If TreeView1.SelectedItem.Key = "something" Then ' You could also use .Text
        MyFrame.Visible = True
    Else
        MyFrame.Visible = False
    End If
 
 
End Sub

[BuggyProgrammer]

Right click your listview, click properties, and set LineStyle to Root Lines