TopPicLogo TopPicText

Открытие копии формы

Автор: Кривцов Анатолий

Чтобы иметь такую возможность, необходимо в заголоке модуля формы объявить переменную типа Form (Dim frm as Form), а в вызывающей процедуре создать следующую конструкцию (Имя формы - "Проба"):
С копией можно работать, как и с оригиналом, но с учетом следующих ограничений:
     Если закрыть оригинал - закроется и копия.
     В семействе Forms будет два объекта с одинаковым именем.Ссылка Forms![Проба]... будет обращаться к оригиналу, поэтому в вычисляемых элементах формы и в источниках строк ListBox и ComboBox следует указывать короткую ссылку Form!..... , а во внешних процедурах использовать объект Form, ссылку на который можно получить через Screen.ActiveForm, или пройдя по семейству Forms с конца, или передавая Me в качестве аргумента.
Примечание:
Из копии формы можно открыть вторую копию и т.д.

Set frm = New Form_Проба
'------------- Не обязательно ---------------
    frm.Caption = frm.Caption & " (Копия)"
    frm.Filter = .......
    frm.FilterOn = True
'--------------------------------------------
frm.Visible = True 


Назад ToTop
L.E. 19.11.2012
Рейтинг@Mail.ru