主题：目录树的两个小技巧

1）  目录树简单排序

         e.Form.Controls("TreeView1").BaseControl.Sorted = True   '真为排序，假为不排序

2）  节点定位（这个是昨天回复的例子，发觉经常会有人提，就放在这里便于查找）

Dim tv As System.Windows.Forms.TreeView  = e.Form.Controls("TreeView1").BaseControl

Dim nd() As System.Windows.Forms.TreeNode = tv.Nodes.Find("cc",True)    'cc 用节点名替代，true便是包含子目录，返回的是符合名称的所有子节点

If nd.Length > 0 Then

    tv.SelectedNode = nd(0)   '定位第一个节点（正常的节点名应该是不会重复的）

End If

赞