实现以下功能:当用户单击节点选择框时,程序自动将该节点的所有子节点的Check设置成该节点的状态. Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node) If UCase(TypeName(Node)) <> "INODE" Then Exit Sub Dim bC As Boolean bC = Node.Checked Dim nodeNext As MSComctlLib.Node If UCase(TypeName(Node.Child)) = "INODE" Then Set nodeNext = Node.Child Do While UCase(TypeName(nodeNext)) = "INODE" nodeNext.Checked = bC Call TreeView1_NodeCheck(nodeNext) '''递归调用 Set nodeNext = nodeNext.Next Loop End If End Sub