苦思冥想写的一个递归程序，接受大家的考验。作用：选中treeview中一个checkbox,它的子节点也都选中，反之亦然！

Question

Private Sub TreeView2_NodeCheck(ByVal Node As MSComctlLib.Node)
'以node为根节点 ，进行树后序遍历
Node_Check Node, Node.Checked
End Sub
Private Function Node_Check(Node As Node, Value As Boolean) As Boolean
    Dim I As Integer
    Dim J As String
    If Node.Children = 0 Then
        Exit Function
    '孩子节点
    Else
        For I = Mid(Node.Child.FirstSibling.key, 2) To Mid(Node.Child.LastSibling.key, 2)
            J = "N" & I
            Node_Check TreeView2.Nodes(J), Value
    
            TreeView2.Nodes(J).Checked = Value
        Next
    End If
End Function

Answer 1

顶一下，递归不小心就会写成循环