Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / закрытие модальной формы закрывает все формы / 4 сообщений из 4, страница 1 из 1
27.04.2006, 10:13:29
    #33693450
dbf97
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
закрытие модальной формы закрывает все формы
место действия - Ексел
суть действия - из немодальной userform запускается модальная userform. Все работает зашибись, но имеется маленький геморрой - ежели пользователь щелкает по крестику в верхнем правом углу модальной формы, то закрываются обе формы.
вопрос - как этого избежать и сделать так чтобы закрывалась тока модальная форма.
...
Рейтинг: 0 / 0
27.04.2006, 10:40:29
    #33693559
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
закрытие модальной формы закрывает все формы
Какая версия. У меня 2000 с SP-3, никуда не пропадает.

Попробуй такой вариант; на событие модальной формы "Terminate", отображай немодальную форму.

Код: plaintext
1.
2.
Private Sub UserForm_Terminate()
    UserForm1.Show vbModeless
End Sub
...
Рейтинг: 0 / 0
27.04.2006, 10:47:47
    #33693591
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
закрытие модальной формы закрывает все формы
помести код в модальную форму
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        MsgBox "Эта кнопка не работает", vbCritical, "LeroyMerlin"
        Cancel = True
    End If
End Sub
...
Рейтинг: 0 / 0
27.04.2006, 12:13:44
    #33693968
dbf97
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
закрытие модальной формы закрывает все формы
спасибо vkodor, идея подошла
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / закрытие модальной формы закрывает все формы / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]