Public Class Form1
Dim targetStr As String = "a123" '查询目标节点名
Dim allNodes As New ArrayList
'遍历并定位节点
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
get_n(TreeView1.Nodes) '获取所有节点的集合(mnodes)
For Each ntxt As TreeNode In allNodes
If ntxt.Text.IndexOf(targetStr) >= 0 Then
TreeView1.SelectedNode = ntxt '打开目标节点
TreeView1.Focus()
End If
Next
End Sub
'遍历现有的所有节点并存入mnodes集合
Private Sub get_n(ByVal cn As TreeNodeCollection)
Dim cnodes As TreeNode
For Each tmp As TreeNode In cn
If tmp.Nodes.Count > 0 Then
allNodes.Add(tmp)
cnodes = tmp
get_n(cnodes.Nodes)
Else
allNodes.Add(tmp)
End If
Next
End Sub
Private Sub B