防止TreeView触发VB6中的事件？

Question

在某些VB6代码中，我有一个TreeView的Collapse事件处理程序：

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

Answer 2

VB6中的另一种方法是具有对控件的备用WithEvents引用：

Private WithEvents alt as TreeView

并在Form_Load ：

Private Sub Form_Load()
Set alt = MyTree
End Sub

现在alt将收到很多这样的事件：

Private Sub alt_Collapse(ByVal Node as MSComCtlLib.Node)
Set alt = Nothing
'DoSomeStuff'
Set alt = MyTree
End Sub

但是，在DoSomeStuff期间，事件是未DoSomeStuff的-这也适用于所有其他事件Sub的alt而无需它们进行侵入性更改。

Answer 3

我认为，就像VB中的许多事件一样，无法将其关闭。

只需按照您的建议设置布尔值标志即可。

Answer 4

我将在Sub中将标志变量声明为STATIC。 这样可以避免使变量成为全局变量，并使其在两次调用之间保持其值。