My<cod/>.net
Предотвратить запуск событий TreeView в VB6?
В некотором коде VB6 у меня есть обработчик для события коллапса TreeView:
Private Sub MyTree_Collapse(ByVal Node as MSComCtlLib.Node)
Это вызывается всякий раз, когда узел в дереве сворачивается, будь то пользователем или программно. Как оказалось, через некоторое Окольное выполнение может случиться так, что этот обработчик закончит тем, что скажет узлу свернуться, что приведет к бесконечной рекурсии.
Я могу придумать несколько способов освежевать эту кошку, но мне кажется, что проще всего сказать TreeView не вызывать события в течение некоторого периода времени. Я не могу найти простой звонок, чтобы позволить мне сделать это, хотя. Кто-нибудь успешно сделал это, или мне нужно отслеживать состояние каким-то другим способом, чтобы я мог реагировать соответствующим образом, когда появляются рекурсивные события?
Другой способ в 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, события отцепляются - что также относится ко всем другим событиям Sub для alt без необходимости для них иметь навязчивые изменения.
@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