Ссылка в форме на “родитель класс”

[Avtopic]

Здравствуйте!

каждый экземпляр класса “A” создает свой экземпляр формы “В”.
Можно или нет в экземпляре формы получить ссылку на соответствующий “A”

Спасибо!

[alibek]

При создании B передавай в него ссылку на A.
Только при выгрузке B не забудь вначале обнулить ссылку.

[Avtopic]

Ну, если предам понятно, что буду иметь ссылку, но, как передать?
мне надо чтобы в форм лоад уже имел ссылку. И хотел без глобальной переменной...

[Antonariy]

В Form_Load без глобальной не получится. Или без дьявольских ухищрений

ЗЫ: Хотя с ухищрениями тоже не получится. Форма загружается при обращению к любому ее свойству.

[alibek]

Да как хочешь, так и передавай.
Можешь через события родительского или подчиненного класса, можешь через Friend-своство или метод.
Но в Form_Load ты ссылку не получишь, разве что будешь ее запрашивать прямо в этой процедуре.

[alibek]

В Form_Load без глобальной не получится. Или без дьявольских ухищрений

Да не такие уж и дъявольские ухищрения, всего то raiseevent.
Но friend-метод на потомке проще.

[Antonariy]

Да, про событие забыл. А насчет потомка не понял.

[Avtopic]

А я ипро RaiseEvent не понял.
Private WithEvents что-то As А
вед здесь “что-то” не тот экземпляр сласса А который создал форму, и соответственно его евенты не перехватывает.
или я что-то туплю?

[Avtopic]

А вот на счет friend-метода понял, спасибо!

[nat-z]

Здравствуйте!
каждый экземпляр класса “A” создает свой экземпляр формы “В”.
Можно или нет в экземпляре формы получить ссылку на соответствующий “A”
Спасибо!

Я не поняла, о чем здесь говорят, но, возможно, про то же, что и я ищу? Мне надо в форме узнать имя материнской (порождающей)формы, откуда произошел вызов.

У меня одна из форм (например, FORM_2) в программе может вызываться из различных форм. И имена этих форм используются в самой FORM_2. Например, при работе этой FORM_2 надо присвоить form_1.text1.text = “ssssss”. Как написать такой оператор присвоения, если form_1 – это имя формы, откуда произошел вызов и внутри самой form_2 он неизвестен?
И вглубь туда же по этому вопросу.
Опять же из различныx форм FORM_1a, FORM_1b … и т.д. возможна загрузка этой моей формы FORM_2, причем она может загружаться как при двойном клике на каком-то поле, так и при клике на например Picture.
Как узнать имя и тип элемента материнской формы FORM_1x, из которой произошел вызов дочерней формы FORM_2?
Как, например, написать form_2.left= form1_1x.text1.left + 3000, когда надо определить имя вызывающей формы (form1_x) и имя элемента, по которому было обращение (клик или двойной клик, вобщем, он был в фокусе – text1)?

[alibek]

ClassA родитель, ClassB потомок.
Через friend-процедуру (самодельные конструкторы/деструкторы):

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

'ClassA

...

Sub SomeProcedure(...)
...
  Dim objChild As ClassB
  Set objChild = New ClassB
  objChild.Create Me
  ...
  objChild.Release
  Set objChild = Nothing
...
End Sub

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

'ClassB

Private objParent As ClassA

Private Sub Class_Initializa()
  'nothing
End Sub

Private Sub Class_Terminate()
  Release
End Sub

Friend Sub Create(Parent As ClassA)
  Set objParent = Parent
End Sub

Friend Sub Release()
  Set objParent = Nothing
End Sub

Через событие на потомке:

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

'ClassA

Private WithEvent Children As ClassB

Private Sub Children_GetParent(Ref As ClassA)
Set Ref = Me
End Sub

Sub SomeProcedure(...)
...
  Set Children = New ClassB
  ...
  Children.Release
  Set Children = Nothing
...
End Sub

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

'ClassB

Private objParent As ClassA

Public Event GetParent(ByRef Ref As ClassA)

Private Sub Class_Initializa()
  Create
End Sub

Private Sub Class_Terminate()
  Release
End Sub

Friend Sub Create()
  RaiseEvent GetParent(objParent)
End Sub

Friend Sub Release()
  Set objParent = Nothing
End Sub

[alibek]

nat-z, тебе надо при создании формы FORM2 передавать в нее ссылку на родителя одним из методов.

[nat-z]

nat-z, тебе надо при создании формы FORM2 передавать в нее ссылку на родителя одним из методов.

Какие методы?

Я вот тупо вижу только какую-то глоб. переменную REG=xxx присвоить значение, а в дочерней форме так же тупо сделать DO CASE по значению REG.
Неужели нельзя короче и красивее?
--------------------------------------------
И если допустим я как-то получила имя формы nameform="FORM1", имя textbox nametext="TEXT1", то как в VB пишется оператор присвоения типа x=FORM1.text1.text, чтобы вместо form1,text1 использовать переменные nameform, nametext???