VB中TreeView常用方法

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
   ' 设置根节点　
   Set nodParent = TreeView1.Nodes.Add(, , "r", "Root")

   'nodChild 为nodParent的子节点
   Set nodChild  = TreeView1.Nodes.Add("r", tvwChild, "child1", "Child")
或者
   Set nodChild  = TreeView1.Nodes.Add(nodParent, tvwChild, "child1", "Child") 
End Sub