Как реализовать?

[Nazarey]

Здравствуйте!
Подскажите пожалуйста как в программе реализовать сохранение параметров,когда их вводишь через меню.
Эта часть кода-не удобна.

Код: Выделить всё

Set factory = OrgTree.Nodes.Add(, , "f R & D", "R & D", otFactory, otFactory2)
    Set group = OrgTree.Nodes.Add(factory, tvwChild, "g Engineering", "Engineering", otGroup, otGroup2)
    Set person = OrgTree.Nodes.Add(group, tvwChild, "p Cameron, Charlie", "Cameron, Charlie", otPerson, otPerson2)
    Set person = OrgTree.Nodes.Add(group, tvwChild, "p Davos, Debbie", "Davos, Debbie", otPerson, otPerson2)
    person.EnsureVisible


итд.
Ввел,отключил программу и после следующего включения данные сохраненны.
Спасибо.
(файл прилагается)
(Создаешь проект,содаешь Factory,Group и Person,закрываешь проект и после повторного его запуска-созданные данные остаються.А так получаеться,что все эти Person....итд,нужно вбивать в код,а что если информация за ранние не известна,вобщем не совсем удобно.Может можно как то иначе?)

[tyomitch]

Вопрос неясен.

[Nazarey]

Создаешь проект,содаешь Factory,Group и Person,закрываешь проект и после повторного его запуска-созданные данные остаються.А так получаеться,что все эти Person....итд,нужно вбивать в код,а что если информация за ранние не известна,вобщем не совсем удобно.
Может можно как то иначе?

[Debugger]

Ты хочешь сохранить все дерево?

[Nazarey]

Верно, с возможностью добавлять и сохранять дерево.

[ACiD]

xml в помощь

[Debugger]

Раз "ветвистость" дерева фиксированная, я бы посоветовал типы (и бинарный файл).

Код: Выделить всё

Type Person
   FIO As String
   'И др. данные
End Type

Type Group
   P() As Person
End Type

Type Company
   G() As Group
End Type

Type BFile
   C() As Company
End type


Например.
Но загонять данные в тип BFile - это хорошая задача. Я бы решал через For .. Each (можно же?). Если будут траблы - обращайся в ЛС