Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
加根节点 | Dim tr As WinForm.TreeView Dim nd As WinForm.TreeNode tr = e.Form.Controls("TreeView1") nd = tr.Nodes.Add("新节点") tr.SelectedNode = nd tr.Select() tr.BeginEdit() |
增加子节点 | Dim tr As WinForm.TreeView Dim nd As WinForm.TreeNode tr = e.Form.Controls("TreeView1") nd = tr.SelectedNode If nd IsNot Nothing Then nd = nd.Nodes.Add("新节点") tr.SelectedNode = nd tr.Select tr.BeginEdit End If |
没有特别神秘之处:
第一段代码:nd所选的是这棵树,当然增加后的就是根节点
第二段代码:nd所选的是已经选中的节点,当然增加后的就是这个节点的子节点了
仔细看看,希望你能明白,呵呵
谢谢kylin兄,我看节点的语句,不是太规律,如
nd = tr.Nodes.Add("新节点") '添加根节点
nd = nd.Nodes.Add("新节点") '增加子节点
nd = tr.Nodes.Insert("新节点",id) '插入根节点
nd = nd.ParentNode.Nodes.Insert("新节点",id) '插入节点(非根)
我太笨,找不出太强的规律性,只好死记,呵呵