Страница 1 из 1
Как выгрузить форму?
Добавлено: 13 фев 2009, 10:02
aks_sv
Здравствуйте, ВСЕМ!
Почему у меня не закрывается одна форма при открытии другой, а остается "висеть" на заднем плане?
Код: Выделить всё
Private Sub btn_Exit_Click()
frm_Справка.Show
Unload frm_View
End Sub
Re: Как выгрузить форму?
Добавлено: 13 фев 2009, 10:15
SAS888
По событию инициализации, например, формы UserForm2. Для закрытия (выгрузки) UserForm1 используйте Unload UserForm1. Если просто скрыть, то UserForm1.Hide. Все зависит от того, что требуется.
Re: Как выгрузить форму?
Добавлено: 13 фев 2009, 11:13
aks_sv
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
Результат тот же.
Re: Как выгрузить форму?
Добавлено: 13 фев 2009, 13:07
SAS888
Посмотрите пример во вложении.
Re: Как выгрузить форму?
Добавлено: 13 фев 2009, 13:20
aks_sv
SAS888,
Спасибо, все ОК
Re: Как выгрузить форму?
Добавлено: 13 фев 2009, 14:38
aks_sv
SAS888,
Рано обрадовался. У Вас все получается, а у меня нет. Пришлось на открывание формы frm_Справка сделать макрос "Справка", а между закрытием одной формы и открытием другой сделать задержку:
Код: Выделить всё
Application.OnTime Now + TimeValue("00:00:01"), "Справка"
Теперь все как надо.
Re: Как выгрузить форму?
Добавлено: 13 фев 2009, 18:45
Naeel Maqsudov
Если Вы где-либо вызываете процедуру или функцию из модуля некой формы, то происходит подгрузка формы. Может быть в этом дело?