Получение ссылки на родителя при инициализации класса

[Денис]

Подскажите, как осуществить subj?
Сейчас я делаю так:
Создаю в классе переменную Public Parent as Form, в нее записывается ссылка на себя из формы при создании экземпляра, например:

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

Sub Form_Load()
    Dim cMyClass as clsMyClass
    Set cMyClass = new clsMyClass
    Set cMyClass.Parent = Me
end sub

Но этот вариант не устраивает по ряду причин, хотелось бы чтобы ссылка на объект-родитель создавалась в момент инициализации класса:

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

Private Parent as Form

Sub Class_Initialize()
    Parent = Class.Parent 'как-то так...
end sub

Есть хитрые способы?

[Хакер]

Нет.

[alibek]

Создай конструктор — Friend-процедуру вида Create(Parent As Object).
Можно также создать и деструктор, процедуру Dispose, которая будет очищать ссылку.

[Денис]

Создай конструктор — Friend-процедуру вида Create(Parent As Object).
Можно также создать и деструктор, процедуру Dispose, которая будет очищать ссылку.

Весь код из Class_Initialize() при этом перемещается в Create(Parent As Object), я правильно понимаю?
И после этого мне всего лишь нужно после инициализации класса вызвать этот конструктор:

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

Set cMyClass = New clsMyClass
cMyClass.Create Me

'вместо
'Set cMyClass = New clsMyClass
'Set cMyClass.Parent = Me

Я сделал, работает, спасибо.
Жаль только что нельзя сделать, чтобы процедура инициализации могла принимать параметры (типа Class_Initialize(Parent as Object)), тогда можно было бы обойтись одной строкой:

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

Set cMyClass = New clsMyClass(Me)

[alibek]

Жаль только что нельзя сделать, чтобы процедура инициализации могла принимать параметры (типа Class_Initialize(Parent as Object)), тогда можно было бы обойтись одной строкой:

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

Set cMyClass = New clsMyClass(Me)

Пиши на других языках, где есть конструкторы.
В VB6 напрямую так не напишешь.

[arthur2]

хм-м
А чем принципиально отличается:

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

cMyClass.Create Me

от

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

Set cMyClass.Parent = Me

И чем таким замечательным первый вариант хуже, а второй лучше?

Единственное, что метод можно сделать функцией, чтобы значение возвращал, а свойство не сделаешь. Но здесь, вроде, такой задачи не стояло

[alibek]

Эстетикой.

[Mikle]

Не только эстетикой. Во втором случае можно создать экземпляр, не указывая родителя (контейнер?). Предположим, что это недопустимо, однако ошибка выплывет позднее.

[arthur2]

ну в общем да, согласен - убедил

Можно также создать и деструктор, процедуру Dispose, которая будет очищать ссылку.

А можно, чтобы после этого ещё и nothing присваивать не надо было? Типа, чтобы объект внутри деструктора сам себя уничтожил?

Во втором случае можно создать экземпляр, не указывая родителя (контейнер?)

В первом тоже можно - если Parent не переменная, а процедура-свойство.

[Хакер]

можно, чтобы после этого ещё и nothing присваивать не надо было? Типа, чтобы объект внутри деструктора сам себя уничтожил?

Угу. А то, что на объект и после могут остаться ссылки, это ничего. Пусть приложение рухнет, да?
Бред это. В COM подсчёт ссылок — одна из основ. Объект уничтожится тольк когда не будет ссылок, и ни при каких иных обстоятельствах.

[Денис]

Чем второй вариант лучше?

Дело в том, что у меня класс создает контролы у класса-родителя (методом .Controls.Add()), В том числе и таймеры, которые внутри моего класса становятся WithEvents, можно было бы заюзать Usercontrol, чтобы не выделываться, но меня заинтересовала сама возможность манипулирования родительским классом из дочернего. Каковы пределы?
Вот тот факт, что таймеры на форме, а их события в дочерних классах - меня весьма поразил. Причем самое поразительное то, что создается один таймер, ссылку на него получает массив из ста экземпляров моего класса, и в каждый квант времени (тик таймера) запускается сто событий и сто экземпляров выполняют свои действия. И все это довольно шустро, я думал, тормозить будет, ан нет.