VB.net遍历搜索Treeview，找到符合字符串条件的节点

当前位置:

首页 > Python基础教程 >

VB.net遍历搜索Treeview，找到符合字符串条件的节点

ListView具有和Treeview相同的内容，且都有Check属性，带有复选框，现在想让ListView和Treeview的check选择对应起来：

For i = 0 To ListView2.Items.Count - 1

ListView2.Items(i).Checked = False '先清除所有选择

For Each n As TreeNode In GetCheck(TreeView1.Nodes)

If n.Level = 1 Then '只处理子节点，不处理根节点

'Trace.WriteLine(n.Text & "," & n.Level.ToString)

For i = 0 To ListView2.Items.Count - 1

If ListView2.Items(i).SubItems(1).Text = n.Text Then '与TreeView同步选择

ListView2.Items(i).Checked = True

End If

' 递归搜索

Private Function GetCheck(ByVal node As TreeNodeCollection) As List(Of TreeNode)

Dim lN As New List(Of TreeNode)

For Each n As TreeNode In node

If n.Checked Then lN.Add(n)

lN.AddRange(GetCheck(n.Nodes))

Return lN

End Function

反之，想让Treeview和ListView的Check选择对应：

For Each node In TreeView1.Nodes

NodeAllCheck(node, False) '先清除所有选择

For i As Integer = 0 To ListView2.CheckedItems.Count - 1 '遍历表格

For Each node In TreeView1.Nodes '根据表格选择情况，选择对应目录树节点

CheckNode(node, ListView2.CheckedItems(i).SubItems(1).Text) '递归搜索子节点

Private Sub CheckNode(ByVal N As TreeNode, ByVal s As String)

Dim node As TreeNode

If N.Text = s Then

N.Checked = True

End If

For Each node In N.Nodes

CheckNode(node, s)

End Sub

全选（或全不选）的方法：

For i As Integer = 0 To ListView2.Items.Count - 1 '表格全选

ListView2.Items.Item(i).Checked = True

For Each node As TreeNode In TreeView1.Nodes '目录树全选

NodeAllCheck(node, True)

Private Sub NodeAllCheck(ByVal N As TreeNode, checkinfo As Boolean)

Dim node As TreeNode

N.Checked = checkinfo

For Each node In N.Nodes

NodeAllCheck(node, checkinfo)

End Sub

————————————————

原文链接：https://blog.csdn.net/xjnzhidao/article/details/47341387

栏目列表