Господа, снова к вам.
Осваиваю, наконец, работу с классами и работу с несколькими экз форм.
При клике на Кн. Открыть форму открываю ее экземпляр.
Set MyProject = New Form_Project_Add
MyProject.MyClsProject.TypeWork = 1 ' параметр в класс
MyProject.MyClsProject.MyLineId = 0 ' параметр в класс
MyProject.MyClsProject.clsStart MyProject ' присваиваю экз формы и перехватываю события
' также заношу эту форму в глобальную коллекцию экземпляров этой формы. Для того, чтобы не закрылась после выхода из функции
'смотреть описание после кода
MyProject.MyClsProject.PreviosForms = myCol
MyProject.visible = True
В Form_Open открываемой формы открываю класс для работы такой формы
вот тут у меня возникла идея, чтобы в поднятый из экземпляра формы класс передавать "родительские формы", как бы цепочку до самого начала. Решил сделать на коллекции. т.е. будет последовательное добавление экз форм в коллекцию в цепочке. после изменения в каком то экземпляре -
вниз по цепочке обновить зависимые данныеСоздал начальную коллекцию и при старте "основной" формы саму себя добавляю в коллекцию
и передаю "начальный набор форм(ы)" коллекцией в класс открытого экземпляра:
MyProject.MyClsProject.PreviosForms = myColВ классе есть своя private коллекция.
' установка коллекции форм, породивших этот экземпляр формы
' и добавление рабочего экземпляра формы в коллекцию
Public Property Let PreviosForms(ByVal colForms As Collection)
Set m_colPreviosForm = colForms
m_colPreviosForm.Add m_MyFormId, Str(m_colPreviosForm.Count + 1)
' MsgBox m_colPreviosForm.Count
End Property
Передается коллекция "родительских форм" нормально. После отработки PreviosForms в коллекции класса 2 формы. Основная и сама она(для возможной передаче следующей форме)
одна беда. После возврата кода в начальную форму - в:
MyProject.visible = TrueВ основной форме в НАЧАЛЬНОЙ КОЛЛЕКЦИИ
myCol -УЖЕ ДВЕ 2 ФОРМЫ, как и в коллекции класса.
Собственно. Что я делаю не так? Почему в Первую(начальную) коллекцию попадает/присваивается набор из класса, в который передавалась эта коллекция?
Брал инф.
старое обсуждение и
здесьИ параллельно обращаюсь еще к nord-woolf, Программист-Любитель, Вакшуль Сергей и др. участникам) с вопросом.
А как вы обновляете формы по цепочке после изменений в экземпляре.
http://www.sql.ru/forum/1225546/neskolko-ekz-form-obnovlenie-roditelskih-form-po-cepi