vb.net递归遍历操作TreeView控件树的实例代码

页面导航:首页 > 软件编程 > vb.net > vb.net递归遍历操作TreeView控件树的实例代码

vb.net递归遍历操作TreeView控件树的实例代码

来源: 作者: 时间:2016-01-18 16:54 【

vb.net操作TreeView控件,生成树节点的实例代码,其中遍历采用递归方法。-----------------------------------------------[vb] Public Class Form2 Class nn Public name As String ...
vb.net操作TreeView控件,生成树节点的实例代码,其中遍历采用递归方法。
-----------------------------------------------
[vb]  
Public Class Form2  
    Class nn  
        Public name As String  
        Public parent As String  
        Public snumber As String  
    End Class  
  
    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load  
        Dim nd(10) As nn  
        Dim i As Integer  
        For i = 0 To 8  
            nd(i) = New nn  
        Next  
        nd(0).name = "root" : nd(0).parent = "0" : nd(0).snumber = "1"  
        nd(1).name = "aaa" : nd(1).parent = "1" : nd(1).snumber = "2"  
        nd(2).name = "bbb" : nd(2).parent = "1" : nd(2).snumber = "3"  
        nd(3).name = "ccc" : nd(3).parent = "2" : nd(3).snumber = "4"  
        nd(4).name = "ddd" : nd(4).parent = "3" : nd(4).snumber = "5"  
        nd(5).name = "eee" : nd(5).parent = "2" : nd(5).snumber = "6"  
        nd(6).name = "fff" : nd(6).parent = "2" : nd(6).snumber = "7"  
        nd(7).name = "ggg" : nd(7).parent = "5" : nd(7).snumber = "8"  
  
        Me.TreeView1.Nodes.Clear()  
         
        For i = 0 To 7  
            addto(nd(i), TreeView1.Nodes)  
        Next  
    End Sub  
    Public Sub addto(ByVal nd As nn, ByVal nodes As TreeNodeCollection)  
        Dim dd As TreeNode  
        Dim tmpd As TreeNode  
        If nd.parent = "0" Then  
            tmpd = nodes.Add(nd.name)  
            tmpd.ToolTipText = nd.snumber  
            Exit Sub  
        Else  
            For Each dd In nodes  
                If nd.parent = dd.ToolTipText Then  
                    tmpd = dd.Nodes.Add(nd.name)  
                    tmpd.ToolTipText = nd.snumber  
                    Exit Sub  
                End If  
                addto(nd, dd.Nodes)  
            Next  
        End If  
    End Sub  
End Class  
Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<