Как выгрузить форму?

aks_sv · 13 фев 2009, 10:02

Здравствуйте, ВСЕМ!
Почему у меня не закрывается одна форма при открытии другой, а остается "висеть" на заднем плане?

 Private Sub btn_Exit_Click()
    frm_Справка.Show
    Unload frm_View 
End Sub

SAS888 · 13 фев 2009, 10:15

По событию инициализации, например, формы UserForm2. Для закрытия (выгрузки) UserForm1 используйте Unload UserForm1. Если просто скрыть, то UserForm1.Hide. Все зависит от того, что требуется.

aks_sv · 13 фев 2009, 11:13

SAS888,
Записал в код формы frm_View(UserForm1) по нажатию кнопки Exit

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

Private Sub btn_Exit_Click()
frm_Справка.Show
End Sub

В коде формы frm_Справка(UserForm2)

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

Private Sub UserForm_Initialize()
    Unload frm_ViewEmp
End Sub

Результат тот же.

SAS888 · 13 фев 2009, 13:07

Посмотрите пример во вложении.

aks_sv · 13 фев 2009, 13:20

SAS888,
Спасибо, все ОК

aks_sv · 13 фев 2009, 14:38

SAS888,
Рано обрадовался. У Вас все получается, а у меня нет. Пришлось на открывание формы frm_Справка сделать макрос "Справка", а между закрытием одной формы и открытием другой сделать задержку:

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

Application.OnTime Now + TimeValue("00:00:01"), "Справка"

Теперь все как надо.

Naeel Maqsudov · 13 фев 2009, 18:45

Если Вы где-либо вызываете процедуру или функцию из модуля некой формы, то происходит подгрузка формы. Может быть в этом дело?