1。判断节点是否存在
if treeview1.nodes("你的关键字") is nothing then
msgbox "该节点不存在!"
end if
前提是要有关键字
2。删除节点
' Removes currently selected node, or root if nothing is selected.
TreeView1.Nodes.Remove(TreeView1.SelectedNode)
' Clears all nodes.
TreeView1.Nodes.Clear()
3。添加节点
object.
Add(
relative, relationship, key, text, image, selectedimage
)
Private Sub Form_Load()
' Set Treeview control properties.
TreeView1.LineStyle = tvwRootLines ' Linestyle 1
' Add Node objects.
dim nodParent as node, nodChild as node
' 设置根节点
SetnodParent
= TreeView1.Nodes.Add(, , "r", "Root")
'nodChild 为nodParent的子节点
SetnodChild
= TreeView1.Nodes.Add("r", tvwChild, "child1", "Child")
或者
SetnodChild
= TreeView1.Nodes.Add(nodParent, tvwChild, "child1", "Child")
End Sub