Как правильно присвоить форму и её Control объ-м переменным?

[Rojohn]

Как правильно присвоить (если возможно) форму и её контрол (например TextBox) соответствующим объектным переменным, находящимся в другой форме? Например есть форма frm1.form, на ней есть Text1.TextBox. Надо присвоить их переменным MyForm as Form и MyTxt as TextBox так, чтобы можно было выполнять действия типа:

MyForm.MyTxt.Text="Значащий текст" и MyForm.Enabled=True.

Причем текст появлялся бы в frm1.Text1...

Спасибо за ответы (даже если такое сделать невозможно )!

[tyomitch]

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

Set MyForm = frm1
Set MyForm.MyTxt = frm1.Text1


[Rojohn]

Пишу:

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

Option Explicit
Dim selDate As Date, valFrmMe As Form, valTbMe As TextBox

Sub ImportToMe(valFrm As Form, valTb As TextBox)
  'Импорт наименования формы
  Set valFrmMe = valFrm
  Set valTbMe = valTb
  Set valFrmMe.valTbMe = valFrm.valTb
End Sub


на строчку:

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

Set valFrmMe.valTbMe = valFrm.valTb


ругается, что объект не поддерживает это свойство или метод!
Что не так?

[Rojohn]

Всё заработало! Просто присвоил frm1.Text1 переменной valTbMe As Object

Тема закрыта! Хотя пишите ещё, если хотите - мне не жалко

[lord0n]

Как правильно присвоить (если возможно) форму и её контрол (например TextBox) соответствующим объектным переменным, находящимся в другой форме? Например есть форма frm1.form, на ней есть Text1.TextBox. Надо присвоить их переменным MyForm as Form и MyTxt as TextBox так, чтобы можно было выполнять действия типа:

MyForm.MyTxt.Text="Значащий текст" и MyForm.Enabled=True.

Причем текст появлялся бы в frm1.Text1...

Спасибо за ответы (даже если такое сделать невозможно )!

ты же сам ответил на свой вопрос:
как сделать чтобы по нажатию на кнопку в форме2, в форме1 появлялось значение
frm1.text1.text = "ляля"