以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  目录树节点定位问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159992)
--  作者：304376480
--  发布时间：2021/1/16 15:48:00
--  目录树节点定位问题
老师您好！

有一个目录树，节点路径长短不一，有的三层，有点五层，有的两层
通过 FullName 方法取得节点路径“1\\01\\05\\04”，保存起来，下次重新打开窗口，如何快速定位到该节点，
（不想用for each循环的方法，因为节点太多了，还有其它的方法吗？）
--  作者：有点蓝
--  发布时间：2021/1/16 16:21:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim s() As String = "1\\01\\05\\04".Split("\\")
Dim nd As WinForm.TreeNode = trv.Nodes(s(0))
For i As Integer = 1 To s.Length - 1
    nd = nd.Nodes(s(i))
Next
trv.SelectedNode = nd