以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]目录树位置移动???  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53529)

--  作者:aalons
--  发布时间:2014/7/9 21:44:00
--  [求助]目录树位置移动???
Tree 目录树 

分两个根节点 如:
-A
 A1
 A2
 A3
-B
 B1
 B2

如何点击按钮选中节点的位置从B2到B1,然后到A3-A2-A1

--  作者:有点甜
--  发布时间:2014/7/9 21:46:00
--  
 不是写过给你了吗?
--  作者:有点甜
--  发布时间:2014/7/9 21:47:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52058&authorid=0&page=0&star=1

 


--  作者:aalons
--  发布时间:2014/7/9 23:21:00
--  
嗯  现在要写选中的位置移动,而不是将选中节点的移动位置
--  作者:有点甜
--  发布时间:2014/7/10 9:08:00
--  

 大致代码这样写,你改一下来用

 

Dim tr As WinForm.TreeView
Dim pnd As object = tr.SelectedNode.ParentNode
If pnd Is Nothing Then
    pnd = tr
End If
If tr.SelectedNode.Index > 0 Then
    tr.SelectedNode = pnd.Nodes(tr.SelectedNode.Index - 1)
Else
   
End If