Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 关于目录树增加平行节点的代码（已解决）


  共有3276人关注过本帖树形打印复制链接

主题：[求助] 关于目录树增加平行节点的代码（已解决）
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00 		[求助] 关于目录树增加平行节点的代码（已解决）  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/11 9:52:00 [只看该作者]

  什么意思【只能增加本级且最后一个节点】

 回到顶部
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2014/11/11 9:56:00 [只看该作者]

如果光标在第二级，就增加第二级的节点，且是第二级的最后一个节点。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2014/11/11 10:04:00 [只看该作者]

谢谢甜老师的指教，新增加的节点标题为什么是“0”，而不是“新节点”？还请指教，谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2014/11/11 10:08:00 [只看该作者]

谢谢甜老师，代码可以了，再次衷心感谢！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 4 次数据查询