An MSForms (all VBA) treeview

Pages in this article

  1. Features
  2. How To Use
  3. Examples

How to use

This page outlines the minimum steps needed to add this treeview control to your own Excel or Word VBA project. For Access the instructions are different, those can be found in the Access download.

The container control

Open the designer window of your userform and add a frame. This is where the treeview will be built. We recommend these properties (which are of course optional):

 Recommended properties for the container frame
Recommended properties for the container frame

Your userform would look like this:

 The container frame on your userform
The container frame on your userform

If you want images in your treeview, you'll have to add another frame (we called it frmImageBox) and then add Image controls within that frame. Set the Visible property of the frame to false to avoid it showing up on your userform. Like so:

 The images frame on your userform
The images frame on your userform

If you want to add images, make sure you name the new image controls properly, as it is the name of the imagecontrol you need to pass to the cNode class to get that image displayed. An easy way to get the images is to copy the entire frame with images from our userform to yours.

Class modules

Copy the class modules clsNode and clsTreeView to your project (you can simply drag them to your project). Your project (if you started with an empty workbook) would look like this:

 Project with class modules in place

The project with class modules in place

So far, things have been simple. The next parts are a bit more compex, but nothing too hard!

Code behind your userform

For the treeview to work, your userform needs some code, in particular these elements are necessary:

That's it!

Variable declaration

Add this code to the declaration section of your userform:

'Add this to your form's declaration section
Private WithEvents mcTree As clsTreeView

That's it! No more variables needed!

Of course the name of the variable mcTree is totally up to you.

If you need another (independent) treeview on your form, simply add another frame to hold it and an additional variable in the forms declaration section (of course you name it differently than the other one) like the one shown here.

Initialisation

In the intialisation routine of your form, you need code that adds nodes to the tree and when you're done adding nodes, you need to set some properties of the treeview. Then you'll want the treeview to be displayed.

Adding an instance of the treeview to your form

Adding the instance is easy:

    'Instantiate a new instance of the treeview class and set a module level variable to hold it:
    Set mcTree = New clsTreeView

Now tell the tree class instance which frame is its container:

    With mcTree
        'The VBA treeview needs a container Frame control on the userform.
        'Just draw a frame on your form where the treeview should appear
        'Make sure the frame has no border and no caption
        'Set it to show both scroll bars. (Keepscrollbarsvisible to both)
        'Set it to the special effect "Sunken"
        'Note that node label formats such as back/fore colors and font adopt
        'the frame container's properties, so change if/as required.
        '(you can copy the frame named frmDemo from this userform )
        
        'Then pass this frame to the TreeControl of the treeview class

        Set .TreeControl = Me.frmDemo
        'Title for message boxes:
        .AppName = Me.AppName

Note that most of the code listed below is within the With mcTree ... End With structure.
 

Setting initial look

You'll want control over the look and feel of your treeview, here is some example code (this code comes immediately below the code sample show above):

        'Set some properties
        .CheckBoxes = True
        .RootButton = True
        .LabelEdit = 0 'default is 0 can be edited (like LabelEditConstants tvwAutomatic/tvwManual)
        .Indentation = 20 * 0.75 'defaults to 11.25
        .NodeHeight = 16 * 0.75 'defaults to 12
        .ShowLines = True
        'If your form has icons in an iconframe (called frmImageBox),
        'you could use icons for the expand and collapse buttons:

        Call .ExpanderImage(Me.frmImageBox.Controls("Win7Minus").Picture, Me.frmImageBox.Controls("Win7Plus1").Picture)

If your treeview needs to show images, add a frame control with Image controls inside. Lets call it frmImageBox. This is how you tell the class where the images are:

        Set .Images = Me.frmImageBox

That is just about all the plumbing you need to get started.

Adding nodes

First of all, a couple of variables are needed to add nodes:

'The root of the tree
Dim cRoot As clsNode
'A node
Dim cNode As clsNode
'An extra variable should you need to remember a certain node
Dim cExtraNode As clsNode

Next we'll start by building the rootnode:

        ' add a Root node with main and expanded icons and make it bold
        Set cRoot = .AddRoot("Root", "Root Node", "FolderClosed", "FolderOpen")
        cRoot.Bold = True

Note that the tree can have more than one rootnode, there is a special RootNodes collection to which you automatically add new roots by calling the AddRoot method.

As you can see, we assume there are two icons in the image frame called FolderClosed and FolderOpen respectively.

Now we want to add children to the root. This is the code from our demo form:

        'Add branches with child nodes to the root:
        'Keys are optional but if using them they must be unique,
        'attempting to add a node with a duplicate key will cause a runtime error.
        '(below we will include unique keys with all the nodes)
        Set cNode = cRoot.AddChild("1", "1 A", "FLGNETH")
        cNode.Bold = True
        
        'Add a 2nd branch to the root:
        Set cNode = cRoot.AddChild("2", "2 B", "FLGSWED")
        cNode.Bold = True
        'If you want to add more child branches to a branch later on, use a variable to store the branch.
        Set cExtraNode = cNode.AddChild("2.1", "2.1  level 2", "NOTE03", "NOTE04")  ' include an expanded icon
        cExtraNode.Expanded = False   ' this node will initially be collapsed,
                                      ' its child node controls will be created when expanded


        'To add a branches to a branch, make sure you set a variable to its 'main' or parent branch when created
        'Then use the Branch's AddChild method, here to create multiple levels

        Set cNode = cNode.AddChild("2.2", "2.2  level 2", "NOTE03", "NOTE04")    ' include an expanded icon
        Set cNode = cNode.AddChild("2.2.1", "2.2.1  level 3", "OpenBook")
        Set cNode = cNode.AddChild("2.2.1.1", "2.2.1.1  level 4", "Scroll")
        Set cNode = cNode.AddChild("2.2.1.1.1 ", "2.2.1.1.1   level 5", "GreenTick")

        'Now add another branch to the branch we stored earlier
        cExtraNode.AddChild "2.1.1", "2.1.1  level 3", "OpenBook"

        'Add a 3rd branch to the root, with a child node
        Set cNode = cRoot.AddChild("3", "3 C", "FLGUK")
        cNode.Bold = True
        cNode.AddChild "3.1", "3.1  level 2", "Scroll"

        ' and add a 4th branch to the root
        Set cNode = cRoot.AddChild("4", "4 D", "FLGUSA02")
        cNode.Bold = True
        cNode.Caption = "4 D  +" & mlCntChildren

        ' add a bunch of child nodes to the 4th branch
        For i = 1 To mlCntChildren  ' 15
            Set cExtraNode = cNode.AddChild("4." & i, "  4.1 " & Right$("000" & i, 4), "Scroll")
            '  add some alternate row colour formats
            If i Mod 2 Then
                cExtraNode.BackColor = RGB(255, 255, 220) ' pale yellow
                cExtraNode.ForeColor = RGB(180, 0, 0)     ' dark red font
            End If
        Next

Display the tree

Displaying the tree is as simple as calling one method:

    'Fill the tree
    .Refresh

Termination

When the form goes out of scope (i.e. out of memory) you need to remove the treeview from memory:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Make sure all objects are destroyed
    If Not mcTree Is Nothing Then
        mcTree.TerminateTree
    End If
End Sub

Feedback

We've worked hard to create a reliable and performant treeview. If you encounter bugs, please let us know so we can work on them. Better yet: if you have fixed a bug you found, send us your updated code so we can add the fixes you made.

In any case, comments (and compliments) are welcome!

 


 


Comments

Showing last 8 comments of 296 in total (Show All Comments):

 


Comment by: Chris L. (26-3-2024 14:29:00) deeplink to this comment

Struggling a bit with a node exist test, adapting an older MS treeview function but not having any luck. Included below. I poked around in your 'Public Property Let Key(ByVal sKey As String)' code to get the sTree.Nodes.Item(strKey) bit but can't seem to make it work... any tips?

Also, is there a way to include checkboxes on only some levels of the tree? Not on the root, say, but on the children of the root only.

' MS Treeview Node Exist Test.
Public Function NodeExists(ByVal strKey As String, sTree As Object) As Boolean
    Dim Node As MSComctlLib.Node
    On Error Resume Next
    Set Node = sTree.Nodes(strKey)
    Select Case Err.Number
        Case 0
            NodeExists = True
        Case Else
            NodeExists = False
    End Select
End Function

' PF Treeview Node Exist Test.
Public Function PFNodeExists(ByVal strKey As String, sTree As Object) As Boolean
    Dim tmpNode As clsNode
    On Error Resume Next
    Set tmpNode = sTree.Nodes.Item(strKey)
    Select Case Err.Number
        Case 0
            PFNodeExists = True
        Case Else
            PFNodeExists = False
    End Select
End Function


Comment by: Jan Karel Pieterse (26-3-2024 16:14:00) deeplink to this comment

Hi Chris,

If you place this in the clsTreeView class:

Public Function NodeExists(ByVal strKey As String) As Boolean
    Dim Node As clsNode
    NodeExists = False
    For Each Node In Me.Nodes
        If Node.Key = strKey Then
            NodeExists = True
            Exit For
        End If
    Next
End Function

you can use it like so:

' tree is an instance of clsTreeView
Dim theKey As String
theKey = "foobar"
MsgBox "nodeExists for node " & theKey & " returns " & tree.NodeExists(theKey)


Comment by: Chris L. (27-3-2024 15:29:00) deeplink to this comment

Hi JKP,
Thanks for the help on the NodeExists test, worked great.
Question - is it possible to have Checkboxes only at certain levels of the tree? I have some elements at level 3 I want to be selectable but Level 1 and 2 are more like categories that shouldn't be clickable.
So I tried the .Checkbox property for the node...


    With mcTree
        .AppName = Me.Caption
        .CheckBoxes = True
        (some lines not reproduced here)
        Set cRoot = .AddRoot("Aircraft", "Aircraft", "FolderClosed", "FolderOpen")
        cRoot.Bold = True
        ' cRoot.Checkbox = False ' This doesn't work.
    End With

... but no luck. Is that only able to be set for the whole tree rather than individual nodes?


Comment by: Jan Karel Pieterse (27-3-2024 16:31:00) deeplink to this comment

Hi Chris,

I'm afraid we didn't implement it with this in mind, checkboxes is currently an "all or nothing" setting.


Comment by: hey jkp :) (15-4-2024 17:11:00) deeplink to this comment

Long time no talk :)
I haven't got to implementing the pro version yet (the demo works so nicely and is very customizable - i did manage to get checkboxes only for the nodes i needed with some new properties and a few lines of code) and also got it to look like a kind of tree-listbox.
The only issue i'm facing and haven't been able to solve it (tried anything from the MSForms properties to APIs) is that, once the msform gets focus by the SetForegorundWindow/BringToTop, i can't alt tab back to it.
I've read some things online, but i thought i would ask you, if you have time: is there any way to make the alt-tab thing work?
Thanks and hope you're well :)


Comment by: Jan Karel Pieterse (16-4-2024 09:49:00) deeplink to this comment

Hi jollieandreea,

You mention that you can't get back to "it". What is meant by "it" exactly?


Comment by: Adelina Trandafir (16-4-2024 14:44:00) deeplink to this comment

I mean I can't alt tab back to the form containing the treeview as long as the treeview itself has focus. If the parent form has focus, not the treeview, it works normally.


Comment by: Peter Thornton (16-4-2024 17:54:00) deeplink to this comment

Hi Adelina,

Yes it's been a while, good to hear from you again!
What you describe is because the treeview uses it's own userform window and there's no simple way to make it a child-window of Access in a way which will make it work with alt-tab. However in the pro-Treeview you should find alt-tab works normally even when the Treeview is in focus.


Have a question, comment or suggestion? Then please use this form.

If your question is not directly related to this web page, but rather a more general "How do I do this" Excel question, then I advise you to ask your question here: www.eileenslounge.com.




To post VBA code in your comment, use [VB] tags, like this: [VB]Code goes here[/VB].