以文本方式查看主题

-  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=50037)
--  作者：bahamute
--  发布时间：2014/4/28 12:41:00
--  请教：目录树如何实现自动选中下一个节点
希望点击某按钮后，目录树当前节点自动选中下一个节点（目录树只有一层，无子节点）
代码写到一半，卡壳了，目录树虽然有index属性，但只能返回，不能设置。

Dim m As Integer =e.Form.Controls("TreeView2").nodes.count-1
Dim n As Integer =e.Form.Controls("TreeView2").SelectedNode.index
If n < m Then
‘选择下一个节点

else
messagebox.show（“已到最后！”）
endif
--  作者：lsy
--  发布时间：2014/4/28 13:18:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If trv.SelectedNode Is Nothing OrElse trv.SelectedNode.Index = trv.Nodes.Count - 1 Then
    trv.SelectedNode = trv.Nodes(0)
Else
    For Each nd As WinForm.TreeNode In trv.AllNodes
        If nd.Index = trv.SelectedNode.Index + 1 Then
            trv.SelectedNode = nd
            Exit For
        End If
    Next
End If
--  作者：bahamute
--  发布时间：2014/4/28 13:29:00
--  
原来是这样思路，非常感谢！