| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] 关于目录树增加平行节点的代码（已解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59789) |
| -- 作者：yyzlxc -- 发布时间：2014/11/11 9:48:00 -- [求助] 关于目录树增加平行节点的代码（已解决） 下面是插入节点的代码，能否通过修改代码，实现只能增加本级且最后一个节点（禁止插入），请各位老师指教，谢谢！！ Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1") Dim nd As WinForm.TreeNode = tr.SelectedNode Dim id As Integer = nd.index If nd.ParentNode Is Nothing Then nd = tr.Nodes.Insert("新节点",id) Else nd = nd.ParentNode.Nodes.Insert("新节点",id) End If tr.SelectedNode = nd tr.Select tr.BeginEdit [此贴子已经被作者于2014-11-11 10:08:27编辑过]
|
| -- 作者：有点甜 -- 发布时间：2014/11/11 9:52:00 -- 什么意思【只能增加本级且最后一个节点】 |
| -- 作者：yyzlxc -- 发布时间：2014/11/11 9:56:00 -- 如果光标在第二级，就增加第二级的节点，且是第二级的最后一个节点。 |
| -- 作者：有点甜 -- 发布时间：2014/11/11 9:58:00 -- Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim id As Integer = nd.index
If nd.ParentNode Is Nothing Then
nd = tr.Nodes.Add("新节点",id)
Else
nd = nd.ParentNode.Nodes.Add("新节点",id)
End If
tr.SelectedNode = nd
tr.Select
tr.BeginEdit
|
| -- 作者：yyzlxc -- 发布时间：2014/11/11 10:04:00 -- 谢谢甜老师的指教，新增加的节点标题为什么是“0”，而不是“新节点”？还请指教，谢谢！ |
| -- 作者：有点甜 -- 发布时间：2014/11/11 10:05:00 -- Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim id As Integer = nd.index
If nd.ParentNode Is Nothing Then
nd = tr.Nodes.Add("新节点")
Else
nd = nd.ParentNode.Nodes.Add("新节点")
End If
tr.SelectedNode = nd
tr.Select
tr.BeginEdit
|
| -- 作者：yyzlxc -- 发布时间：2014/11/11 10:08:00 -- 谢谢甜老师，代码可以了，再次衷心感谢！ |