Recognize if .parent in a Treeview

[Emperor]

Hi all,

I have a Treeview control in a userform, now I need to execute code when dbblclicked an item. This is ofcourse no problem. However, I would like to execute a different code when the selected item is a parent, or a child.

Does anyone know how I can control this with VBA?

Thanks in advance!

Mathijs

 

[AlphaFrog]

Private Sub Treeview1_NodeClick(ByVal Node As MSComctlLib.Node)

    If Not Node.Child Is Nothing Then
    [COLOR="Green"]'Clicked node is a parent.[/COLOR]
        MsgBox "Clicked node """ & Node.Key & """ is a parent."
    End If
    
    If Not Node.Parent Is Nothing Then
    [COLOR="Green"]'Clicked node is a child.[/COLOR]
        MsgBox "Clicked node """ & Node.Key & """ is a child."
    End If
    
    If Node.Parent Is Nothing And Node.Child Is Nothing Then
    [COLOR="Green"]'Clicked node is neither a parent or child[/COLOR]
        MsgBox "Clicked node """ & Node.Key & """ is not a parent or a child."
    End If
    
End Sub

 

[Emperor]

Thanks Alpha!

If you where a girl, arround 20 and attractive I would kiss you ^^, but statistics say your probably a dude, arround 40... so your loss ^^