主题：[求助]目录树问题

目录树有二层节点，单击下一个按钮，选中属第二层节点的下一个节点，反之同然。谢谢

如：

1

    11

    12

2

   21

   22

 

现选中 11 单击下一个按钮，实现： 11-》12》21》22

 

 

mark 通用目录树下一节点

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim pdr As object
If trv.SelectedNode.ParentNode Is Nothing Then
    pdr = trv
Else
    pdr = trv.SelectedNode.ParentNode
End If
If pdr.nodes.count-1 = trv.SelectedNode.Index Then
    If  pdr.equals(trv) Then
        If trv.SelectedNode.Index = pdr.nodes.count-1 Then
            msgbox("已经到了最底")
        Else
            trv.SelectedNode = pdr.nodes(pdr.index+1)
        End If
    Else
        Dim ppdr As object
        If pdr.ParentNode Is Nothing Then
            ppdr = trv
        Else
            ppdr = pdr.ParentNode
        End If
        If ppdr.nodes.count-1 = pdr.index Then
            msgbox("已经到了最底")
        Else
            trv.SelectedNode = ppdr.nodes(pdr.index+1).nodes(0)
        End If
    End If
Else
    trv.SelectedNode = pdr.nodes(trv.SelectedNode.Index+1)
End If
trv.Select

谢谢