Запрет сворачивания узла по двойному клику мышью.

Попробовал так

TV.SelectedItem.Expanded = True

Работает, конечно, но ветка при этом "моргает", что не красиво.

проблема актуальна

Да-а, замена класса TreeView полностью на самописный - круто, но как в этом классе реализовать OLEDragDrop, например?

Про дерево,

Где замена на самописный? Хотя бы по количеству кода можно было бы оценить, что это не так.

Кстати, OLEDragDrop реализуется при желании.

так, тогда я запутался, смутили строки

Set tvee = New CTreeViewExtraEvents
 Set tvee.TreeView = TreeView0.Object

это что выходит: там у Дерева как-бы два класса появились - стандартный и CTreeViewExtraEvents, в котором обрабатывается событие "До свёртывания" отсутствующее в стандартном классе?

автор

Кстати, OLEDragDrop реализуется при желании.

Тоже на АПИ-шках?

Про дерево

это что выходит: там у Дерева как-бы два класса появились - стандартный и CTreeViewExtraEvents, в котором обрабатывается событие "До свёртывания" отсутствующее в стандартном классе?

Ну да, стандартный никуда не делся. Можно, наверное, его функциональность завернуть в свою обёртку, но вроде незачем. Поэтому я и назвал класс ExtraEvents - "дополнительные события" (оно, конечно, одно на данный момент, но можно и другие отловить-сгенерировать).

Про дерево

Тоже на АПИ-шках?

Конечно. OLE Drag and Drop делается через реализацию интерфейсов IDrop*, это не слишком приятно на чистом VBA писать, но возможно.