events - 阻止 TreeView 在 VB6 中触发事件？

Question

在一些 VB6 代码中，我有一个 TreeView 的折叠事件处理程序:

Private Sub MyTree_Collapse(ByVal Node as MSComCtlLib.Node)

无论何时折叠树中的节点，无论是由用户还是以编程方式折叠，都会调用此方法。事实证明，通过一些迂回执行，该处理程序可能最终会告诉节点崩溃，从而导致无限递归。

我可以想出多种方法来给这只猫蒙皮，但对我来说最简单的是告诉 TreeView 在一段时间内不要引发事件。不过，我找不到一个简单的电话让我这样做。有没有人成功做到这一点，或者我是否需要以其他方式跟踪状态，以便在递归事件出现时做出适当的响应？

Answer 1

@Phil - 我得出了同样的结论。我的 MyTree_Collapse 实现现在看起来像这样(其中 m_bHandlingCallback 是一个成员变量):

Private Sub MyTree_Collapse(ByVal Node as MSComCtlLib.Node)
    If m_bHandlingCallback Then Exit Sub

    m_bHandlingCallback = True
    DoSomeStuff
    m_bHandlingCallback = False
End Sub