Sub btnAdd_Click
If IsNull(tree.SelectedNode) Then
Msgbox("Please select a node.")
Return
End If
node.Value = tree.SelectedNode
If Not(node.IsRoot) Then
Msgbox("too deep!")
Else
node.AddNewNode(txtName.Text)
End If
tree.ExpandAll
End Sub
Index = Node.IndexOfNode(Tree.SelectedNode)
Index = Tree.IndexOfNode(Node.value)
If Node.IsRoot Then
Parent.Value = Node.Value
Else
Parent.Value = Node.Parent
End If
Level = 1
Do While Not(Parent.IsRoot)
level = level + 1
Parent.Value = Parent.Parent
Loop
MsgBox(level) 'Tels me the level of the selected Node, wich can be 1 or 2...
If Level = 1 Then
Index = Parent.IndexOfNode(TreeView.SelectedNode)'This works and I do get the index of the selected node on level 1
Else If Level = 2
Index = Node.IndexOfNode(TreeView.SelectedNode)'Can't Figure out how to get the index for level 2 nodes
End If
Msgbox(Index)'Level 2 nodes alway return -1 values
If Node.IsRoot Then Return
Parent.Value = Node.Parent
Index = Parent.IndexOfNode(TreeView.SelectedNode)
If Index <= 0 Then Return
Parent.RemoveNodeAt(Index)
Parent.InsertNode(Index - 1,Node.Value)
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?