Манипуляции с одинаковыми формами...

[Шнурок]

Как подсчитать кол-во одинаковых форм?
Как присвоить формам уникальные номера, а потом вызывать их по этим номерам?

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

Private Sub Command1_Click()
    Dim newform As Form
    Set newform = New frmNew
    newform.Show
End Sub

[GSerg]

Массив форм сделай.
Или в коллекцию их заноси. Если сама коллекция forms тебя не устраивает.

[Шнурок]

пробовал... как то криво получилось, не совсем то, что хотел

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

[GSerg]

Странно очень мне всё это...

dim f as form
for each f in forms
if typeof f is form2 then form1.combo1.additem f.name & "(" & f.text1.text & ")"
next

[Шнурок]

GSerg
Спасибо огромное

А как теперь вызвать определенную форму

[GSerg]

Ну и запоминай в коллекцию ссылку на эту форму... f это...

[Шнурок]

ссылку на эту форму

[GSerg]

А f - это, по-твоему, что?..

[Amed]

dim f as form
for each f in forms
if f.tag="my_favourite_form" then f.show
next