Создание копии существующего окна...

[Lazy_caT]

Привет, всем!!!

Народ столкнулся тут с проблемой, как можно сделать копию окна?
т.е. есть прога а-ля ICQ... приходит мессага от одного человека - открывается окно с сообщением, приходит мессага от другого человека - открывается копия окна сообщения с другим содержимым...
как сделать? все мозги себе сломал.... MDI не проходит, требует родительскую форму а её не существует...

Так что нужно сделать? подскажите...

Заранее спасибо...

[kif]

Допустим у тебя есть форма Form1 (для этих сообщений)

Для создания экземпляра

Dim a as Form1
a.Show

[alibek]

Что делать? Пользоваться поиском.

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

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


[Konst_One]

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

dim NewMesage as string

NewMessage="1 message"
Call OpenForm(NewMessage)
NewMessage="2 message"
Call OpenForm(NewMessage)
....

public function OpenForm(byval Message as string)
dim frm as frmMessage

set frm=new frmMessage
frm.Message=Message
frm.show

end function



У формы метод Message не забудь сделать

[Lazy_caT]

Спасибо за ответы....

что-то я в последнее время вообще с головой не дружу, такие простые вещи забываю...

На покой, пожалуй, пора...