Foxtable(狐表)用户栏目专家坐堂 → [讨论]目录树节点ID问题


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

主题:[讨论]目录树节点ID问题

美女呀,离线,留言给我吧!
yangming
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2011/8/27 15:34:00 [显示全部帖子]

SelectedNode

TreeNode类型,返回或者设置选定的节点

示例

选定目录树第一个节点的第二个子节点

Dim tr As WinForm.TreeView
tr = Forms(
"窗口1").Controls("TreeView1")
tr.SelectedNode = tr.Nodes(
0).Nodes(1
)


 回到顶部
美女呀,离线,留言给我吧!
yangming
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2011/8/28 2:36:00 [显示全部帖子]

e.Node.Index,确实是选中的节点,只不过是在不同一个父节点下,e.Node.Index,都是相同的从零开始编号.

比如,电脑是父节点,它下面的"笔记本"就是0,服务器就是1,而另一介父节点下的第一个子节点,又是0,第二个子节点又是1,以此类推

 如果要算完整的ID,那我想就应该按层来算了,呵

Level

整数型,返回节点所的层数,根节点是0。

你可以将我下面的代码放到目录树的AfterCheckNode事件中试试,在窗口中放一个文本框

 

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd As WinForm.TreeNode = tr.SelectedNode

Dim id As Integer = nd.index
If nd.Level= 0
MessageBox.Show("父节点是:" & nd.index , "提示")
 Else 
e.Form.Controls("TextBox1").text = id

End If

[此贴子已经被作者于2011-8-28 2:42:53编辑过]

 回到顶部