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

最新推荐文章于 2021-09-03 10:19:05 发布

程序猿_Keith

最新推荐文章于 2021-09-03 10:19:05 发布

阅读量3.1k

点赞数 1

分类专栏： vb.net 文章标签： vb.net treeview 控件代码分析界面

本文链接：https://blog.youkuaiyun.com/keith_xiao/article/details/50496002

版权

vb.net 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个使用VB.NET编写的示例程序，该程序演示了如何在一个树形视图中搜索特定节点并高亮显示它。通过点击“查询”按钮，用户可以输入要查找的节点ID，程序会遍历树形结构找到匹配项并突出显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

以下为实现的功能界面：

代码分析：

在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

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