VB.NET实现 TreeView控件查找节点，显示节点

以下为实现的功能界面：

代码分析：

在Query按钮触发点击事件：

''' <summary>
    ''' 查找
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
       
        Dim slc As String = Me.txtSLC.Text.Trim
        If slc <> "" Then
            Dim i As Integer
            For i = 0 To tvSLC.Nodes.Count - 1
                Call Me.QuerySLCID(tvSLC.Nodes(i), slc)
            Next
        End If
    End Sub

''' <summary>
    ''' 查找方法
    ''' </summary>
    ''' <param name="TN"></param>
    ''' <param name="slcId"></param>
    ''' <remarks></remarks>
    Private Sub QuerySLCID(ByVal tNode As TreeNode, ByVal slcId As String)
        If tNode.Text = slcId Then
            tNode.BackColor = Color.Gray
            Call Me.ShowSLCID(tNode)
            tvSLC.SelectedNode = tNode
        End If
    End Sub

 ''' <summary>
    ''' 顯示
    ''' </summary>
    ''' <param name="TN"></param>
    ''' <remarks></remarks>
    Private Sub ShowSLCID(ByVal tn As TreeNode)
        If tn IsNot Nothing Then
            tn.Expand()
            Me.ShowSLCID(tn.Parent)
        End If
    End Sub

希望能帮到有需要的人，也可以一起研究。谢谢！