设置Treeview的某个节点的所有子节点(包括孙子、重孙...节点)的Checked 属性=true

Question

Children 属性
      这个属性返回包含在 Node 对象中的各子 Node 对象的个数。语法object.Childrenobject 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。说明在执行一个影响子节点的操作之前，可用 Children 属性检查 Node 对象是否有子节点。例如，以下代码在检索第一个 Node 的 Text 属性之前，使用 Child 属性检查子节点的存在。Private Sub TreeView1_NodeClick(ByVal Node As Node)
   If Node.Children > 0 Then
      MsgBox Node.Child.Text
   End If
End Sub
Next 属性
      这个属性返回对 TreeView 控件的 Node 对象的下一个相邻 Node 的引用。语法object.Nextobject 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。说明Child、FirstSibling、LastSibling、Previous、Parent、Next 和 Root 属性均返回对另一个 Node 对象的引用。所以可以同时引用并执行对一个 Node 的操作，如下所示：With TreeView1.Nodes(x).Child
   .Text = "New text"
   .Key = "New key"
   .SelectedImage = 3
End With也可以将对象变量设置为引用的 Node，如下：Dim NodChild As Node
'获得对节点 x 的子节点的引用。
Set NodChild = TreeView1.Nodes(x).Child
'使用这个引用来执行对子节点的操作。
With nodChild
   .Text = "New text"   '改变文本。
   .Key = "New key"   '改变键。
   .SelectedImage = 3   '改变 SelectedImage.
End With