Здравствуйте.
Подскажите, пожалуйста, если сталкивались, как решить такую проблему.
Имею форму (UserForm) на которой расположен объект типа treeview twObject (UserForm.twObject). В коде объявляю переменные TreeNode типа node и Tree типа treeview (для ссылки на данный объект формы и заполняю дерево данными из некоего массива:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
'Объявление переменных узлов и дерева
Public TreeNode as Node
Public Tree as TreeView
Sub FillTree()
set Tree = UserForm.twObject 'Назначение ссылки на объект
...
set TreeNode = Tree.Nodes.Add(...) 'Заполнение узлов объекта
...
End Sub
Все стандартно и известно. Но вот встала какая проблема. Если используется несколько деревьев с несколькими тысячами элементов, и необходимо программно переключаться между этими деревьями, то на перестроение дерева уходит несколько секунд, а иногда и несколько десятков секунд - а это очень долго. Как сделать так, чтобы можно было один раз загрузить различные большие деревья в несколько объектов и потом только назначать их данные объекту UserForm.twObject? Т.е. нужно, чтобы в одном окне формы можно было бы быстро переключаться между различными большими деревьями, никак не связанными друг с другом, например по значению комбобокса в той же форме. Я попытался решить таким образом:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Public TreeNode as Node
Public Tree1 as New TreeView 'Создание первого нового экземпляра TreeView
Public Tree2 as New TreeView 'Создание второго нового экземпляра TreeView
Sub FillTrees()
...
set TreeNode = Tree1.Nodes.Add(...) 'Заполение 1-го дерева
set TreeNode = Tree2.Nodes.Add(...) 'Заполение 2-го дерева
...
End Sub
sub SetTree
set UserForm.twObject = Tree1
end sub
- выдает ошибку.
Заранее благодарен.
