-
VB.net遍历搜索Treeview,找到符合字符串条件的节点
ListView具有和Treeview相同的内容,且都有Check属性,带有复选框,现在想让ListView和Treeview的check选择对应起来:For i = 0 To ListView2.Items.Count - 1ListView2.Items(i).Checked = False '先清除所有选择NextFor 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 - 1If ListView2.Items(i).SubItems(1).Text = n.Text Then '与TreeView同步选择ListView2.Items(i).Checked = TrueEnd IfNextEnd IfNext' 递归搜索Private Function GetCheck(ByVal node As TreeNodeCollection) As List(Of TreeNode)Dim lN As New List(Of TreeNode)For Each n As TreeNode In nodeIf n.Checked Then lN.Add(n)lN.AddRange(GetCheck(n.Nodes))NextReturn lNEnd Function1234567891011121314151617181920212223反之,想让Treeview和ListView的Check选择对应:For Each node In TreeView1.NodesNodeAllCheck(node, False) '先清除所有选择NextFor i As Integer = 0 To ListView2.CheckedItems.Count - 1 '遍历表格For Each node In TreeView1.Nodes '根据表格选择情况,选择对应目录树节点CheckNode(node, ListView2.CheckedItems(i).SubItems(1).Text) '递归搜索子节点NextNextPrivate Sub CheckNode(ByVal N As TreeNode, ByVal s As String)Dim node As TreeNodeIf N.Text = s ThenN.Checked = TrueEnd IfFor Each node In N.NodesCheckNode(node, s)NextEnd Sub1234567891011121314151617全选(或全不选)的方法:For i As Integer = 0 To ListView2.Items.Count - 1 '表格全选ListView2.Items.Item(i).Checked = TrueNextFor Each node As TreeNode In TreeView1.Nodes '目录树全选NodeAllCheck(node, True)NextPrivate Sub NodeAllCheck(ByVal N As TreeNode, checkinfo As Boolean)Dim node As TreeNodeN.Checked = checkinfoFor Each node In N.NodesNodeAllCheck(node, checkinfo)NextEnd Sub————————————————版权声明:本文为CSDN博主「xjnzhidao」的原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接及本声明。原文链接:https://blog.csdn.net/xjnzhidao/article/details/47341387
栏目列表
最新更新
如何使用OS模块中的stat方法
Python os 模块
seek() 方法
python打开文件实例1
Python写入文件
什么是流?
文件操作如何进制逐行读取
Python相对路径
with创建临时运行环境
Python文件操作
.Net Standard(.Net Core)实现获取配置信息
Linux PXE + Kickstart 自动装机
Shell 编程 基础
Shell 编程 条件语句
CentOS8-网卡配置及详解
Linux中LVM逻辑卷管理
1.数码相框-相框框架分析(1)
Ubuntu armhf 版本国内源
Linux中raid磁盘阵列
搭建简易网站
access教程之Access简介
mysql 安装了最新版本8.x版本后的报错:
Mysql空间数据&空间索引(spatial)
如何远程连接SQL Server数据库的图文教程
复制SqlServer数据库的方法
搜索sql语句
sql中返回参数的值
sql中生成查询的模糊匹配字符串
数据定义功能
数据操作功能