Всем доброго дня. Есть такая процедура в модуле, открывающая форму по имени
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Imports System.Reflection
Public Function CreateObjectInstance(ByVal objectName As String) As Object
Dim obj As Object
Try
If objectName.LastIndexOf(".") = -1 Then
objectName = [Assembly].GetEntryAssembly.GetName.Name & "." & objectName
End If
obj = [Assembly].GetEntryAssembly.CreateInstance(objectName)
Catch ex As Exception
obj = Nothing
End Try
Return obj
End Function
Вызываю ее в модуле так, открываю форму с именем "Form1":
1.
2.
3.
Dim frm As New Form
frm = DirectCast(CreateObjectInstance("Form1"), Form)
frm.Show()
Все хорошо, форма открывается.
Далее из другой формы мне необходимо обратиться к компонентам этой открытой формы Form1. Пишу:
1.
Form1.Button1.Text = "тест"
И ничего не происходит, не ругается, ошибки нет, текст кнопки не меняется.
Подозреваю, что вот к открытой так форме надо обращаться как-то по другому, но не знаю, как.
Подскажите пожалуйста. Заранее спасибо.
