阻止TreeView在VB6中触发事件?

@菲尔,我也得出了同样的结论。我的实施 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

VB6中的另一种方法是使用备用 WithEvents 参考控制:

Private WithEvents alt as TreeView

和in 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 ,这些事件是脱钩的,这也适用于所有其他事件 Sub s for 中高音 而不需要他们进行侵入性的更改。

我认为就像VB中的许多事件一样,它不能关闭。

只需按照您的建议设置一个布尔标志。

我会在Sub中将flag变量声明为STATIC。这避免了使变量全局化,并使其在调用之间保持其值。