注 必须把treeview中的一个父节点设置为treenode,但他的状态改变时 会自动调用这个函数。达到全选的目的。
' Updates all child tree nodes recursively. Private Sub CheckAllChildNodes(treeNode As TreeNode, nodeChecked As Boolean) Dim node As TreeNode For Each node In treeNode.Nodes node.Checked = nodeChecked