treeview控件全选，全清

2005-07-22 03:45:46 402 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

从光斑图到锤形优化：一次搞定Zemax双胶合透镜的像散与场曲问题本文详细解析了Zemax双胶合透镜设计中像散与场曲问题的诊断与优化方法。从光斑图分析到锤形优化技巧，提供了完整的光学设计实战指南，帮助设计师快速定位问题并有效改善系统性能，特别适合光学设计工程师和Zemax使用者参考。阅读详情

当我点击全选按钮时，treeview的checkbox则全部要打勾，子节也要打勾，当我点击全清按钮时，则treeview的checkbox全部清掉打勾，子节点也要清掉
请高手赐教

...全文

【iOS开发】dyld: Symbol not found: ___chkstk_darwin 问题解决【iOS开发】dyld: Symbol not found: ___chkstk_darwin 问题解决 Xcode 13.2.1 运行到iOS12.x版本上崩溃报错如下：dyld: Symbol not found: ___chkstk_darwin dyld: Symbol not found: ___chkstk_darwin Referenced from: /private/var/containers/Bundle/Application/A424CEFD-51DB-450E-9D62-B8 阅读详情

liym15

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

hamadou 2005-07-22

打赏
举报

1．在树节点中显示出了checkbox，点一节点后让其所有子节点都设置其checkbox的值与该节点一致。
方法一：
'使子树的CHECKBOX与父亲节点的一致
Public Shared Function ToggleAllNode(ByVal CurrentNode As TreeNode, ByVal bChecked As Boolean)
Dim node As TreeNode
For Each node In CurrentNode.Nodes
node.Checked = bChecked
If node.Nodes.Count > 0 Then
ToggleAllNode(node, bChecked)
End If
Next
End Function
方法二：
Private Sub ToggleAllNode(ByVal CurrentNode As TreeNode, ByVal bChecked As Boolean)
Dim mNodes As TreeNodeCollection
If (Not CurrentNode Is Nothing) Then
mNodes = CurrentNode.Nodes '所有当前节点的子节点集合
If (Not mNodes Is Nothing) Then
'遍历
Dim lev As IEnumerator = mNodes.GetEnumerator
While lev.MoveNext
Dim childnode As TreeNode = CType(lev.Current, TreeNode)
childnode.Checked = bChecked
ToggleAllNode(childnode, bChecked)
End While
End If
End If
End Sub
2．树中点了某节点，设置其父亲节点的checkbox也随着改变，如果当前节点是TRUE，则父亲节点都为TRUE，如果当前节点是FALSE，则要判断父亲节点的所有子节点是否都为FALSE，如果都是才设置父亲节点为FALSE，否则不变。
Public Shared Function AscendRootNode(ByVal CurrentNode As TreeNode, ByVal bchecked As Boolean)
Dim mnodes As TreeNode
If Not CurrentNode Is Nothing Then
mnodes = CurrentNode.Parent‘父亲节点
If Not mnodes Is Nothing Then
If Not bchecked Then ‘如果是FALSE，则要遍历该父亲节点的所有子节点，看是否都为FALSE
Dim cnode As TreeNode
Dim IsAllFalse As Boolean = True
For Each cnode In mnodes.Nodes
If cnode.Checked = True Then
IsAllFalse = False
Exit For
End If
Next
If IsAllFalse Then
mnodes.Checked = False
End If
AscendRootNode(mnodes, bchecked) ‘递归调用
Else
mnodes.Checked = True ‘如果为TRUE，则直接设置为TRUE即可
AscendRootNode(mnodes, bchecked) ‘递归调用
End If
End If
End If
End Function

**************************
调用过程：
Private Sub trvUserRight_AfterCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles trvUserRight.AfterCheck
Try
If e.Action <> TreeViewAction.Unknown Then
ToggleAllNode(e.Node, e.Node.Checked)
AscendRootNode(e.Node, e.Node.Checked)
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub

stcllnb 2005-07-22

打赏
举报

借花献佛
http://community.csdn.net/Expert/topic/3993/3993993.xml?temp=.5265619

stcllnb 2005-07-22

打赏
举报

拼命三朗 2005-07-22

打赏
举报

使用递归遍历Nodes集合嘛！

treeview控件 全选，全清

相关推荐

treeview控件全选，全清