Создания множества экземпляров объекта

[Gigahard]

У меня есть форма, которая служит шаблоном при создании множества экземпляров.
Ну к примеру, эта форма называется tempForm. Создаю ее экземпляры следующим кодом:

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


Dim i As Integer

For i=1 To 3
Set frmi= New tempForm
frmi.Caption="Экземпляр " & i
frmi.Show
Next i


Создаются три экземпляра формы, привязанные к переменным frm1, frm2 и frm3.

Внутри блока кода в котором создаются экземпляры frm1, frm2 и frm3, ими можно полноценно манипулировать. Но за рамками блока (события, процедуры, функции) достучаться до них не возможно.

Вопрос: как дальше манипулировать frm1, frm2, frm3 из других процедур?

[alibek]

Объяви их, как Public на уровне модуля.

[Gigahard]

А как?
Public Set или Set Public не прокатывает...

[Gigahard]

Или походу тут frmi не катит? И лучше динамический массив frm(i) использовать?
Или все же что то можно придумать с frmi?

[alibek]

Тот код, которые ты запостил первым, это вообще бред какой-то.

Для твоей задачи бы подошел массив или коллекция форм (Set frm(i) = New tempForm или Set f = New tempForm : frm.Add f : Set f = Nothing).

[Gigahard]

Ну я сам понимаю, что бред Но этот бред в какой то степени работал Ну я потом все же массив использовал