как сделать несколько форм по типу одной ?

[DragonTriste]

делал как то раньше, а теперь не могу вспомнить
в общем трабл такой:
на Form1 я указываю файл и вызываю form2.
на Form2 пара текстбоксов и пара кнопок(для работы с файлом).
если работать с одним файлом, то всё нормально.
а как сделать что б можно было работать сразу с 3-4 ?

PS:
вариант делать ещё 4 формы не подходит

[alibek]

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

Dim F As Form1
Set F = New Form1
Load F
F.Show
Set F = Nothing


[DragonTriste]

а чуть поподробнее ?

[Sirik]

Учи ООП

[DragonTriste]

а как их различать ?
(например если с 1й формы чтото нужно отправить на одну из "вторых" )

PS:

Учи ООП

спасибо, ты мне очень помог

[Sirik]

2 DragonTriste

Alibek писал:
твоя форма является классом форм, создаёшь массив таких классов, т.е все свойства и методы, которые принадлежат классу твоей формы - "перекачовуют" в коппи твоей формы.

Насчёт, отправить данные из одной формы в другую: создай свойство и функцию и передавай значения. Или я протсо не понимаю вопроса

[alibek]

А зачем их различать?
Формы будут одинаковыми, если нужен уникальный идентификатор, то сойдет hWnd.

[GSerg]

objptr тоже сойдёт

[alibek]

Э... Ну да

[Konst_One]

не мучайте человека, он ведь совсем простой вопрос, как начинающий задал.

исползуй любое свойство в своем классе формы, например:

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

Public ID as  integer


и назначай ему новое значение, каждый раз когда добавляешь новую форму в свою коллекцию (просто прибавляй хотя бы единицу)
можно также сделать это свойство ключевым в твоей коллекции форм, тогда можно будет обращаться к ней по индексу, например:

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

Dim oMyForm as MyForm
Set oMyForm=MyFormsCollections.Item(2)



Вариантов реализации много.
Экспериментируй и у тебе получиться

[Sirik]

2 Konst_One
Если ты внимательно читаешь сообщения, то найдёшь, что я как раз и предлагал использовать имеено свойства форм

[Konst_One]

я это про любителей objptr и подобных
с тобой я согласен,что для начала надо так и делать

[DragonTriste]

спасибо всем кто откликнулся.
вопрос возник потому что

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

Command1.Caption = Form2.hWnd

выдавала один и тот же hwnd на всех формах
(это кнопка на появляющейся форме)
потом я поменял Form2.hWnd на me.hWnd и все заработало

PS:
а что это вы тут понаписали ?
можно пример кода