vb.net递归遍历操作TreeView控件树的实例代码
2013-03-13 11:34
435 查看
vb.net操作TreeView控件,生成树节点的实例代码,其中遍历采用递归方法。
-----------------------------------------------
代码仅供参考,实际应用可灵活变更。
-----------------------------------------------
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
代码仅供参考,实际应用可灵活变更。
相关文章推荐
- ADO.Net对oracle数据库操作的实例代码
- VB.NET拷贝整个目录下所有子目录及文件的实例代码
- TTF1控件的基本操作VB.NET代码
- vb.net视觉--vb.net代码实例
- ASP.NET TreeView树型菜单操作实例(代码调试通过)
- vb.net中xml操作实例
- 这么详细的分类 VB/VB.NET源代码网站你见过没有? VB/VB.NET中的每一个方法,每一个操作,每一个函数,每一个类.每一个属性,每一个事件都有相应的范例代码
- asp.net操作xml文件的代码实例
- Asp.Net用OWC操作Excel的实例代码
- Asp.Net用OWC操作Excel的实例代码
- [VB.NET]求vb.net 操作Excel2003的代码?
- Lua中遍历文件操作代码实例
- ASP.NET操作MySql数据库的实例代码讲解
- ASP.NET TreeView树型菜单操作实例(代码调试通过)
- VB.NET设置屏幕分辨率、颜色位数、刷新率 实例代码
- ADO.Net对oracle数据库操作的实例代码
- [VB.NET]点net写client程序传递参数给mssql存储过程insert,为什么要反复执行客户端代码才能成功insert,怎么才能使客户端插入记录操作变得稳定呢?
- ASP.NET TreeView操作实例(代码调试通过)
- VB.NET 与 XML 的实例操作
- NET操作IIS实例代码