(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

Управление закрытием окон

Если вы хотите управлять тем как пользователь закрывает ваши формы, удалите из её строки заголовка стандартную кнопку закрытия и создайте собственную кнопку закрытия. Тут я надеюсь ничего обьяснять не надо. Для того что бы исключить закрытие формы клавишами [Ctl+F4],[Ctl+W],[Alt+F4] придется слегка попотеть.

1) В области обьявлений модуля формы определите общедоступную логическую переменную (в данном примере OKToClose)

Public OKToClose As Boolean

2) В процедуре обработки события Open или Load присвойте переменной значение False.

Private Sub Form_Load()
OKToClose = False
End Sub

3) В процедуру обработки события Click кнопки, предназначенной для закрытия вашей формы добавте строчки.

Private Sub cmdClose_Click()
OKToClose = True
DoCmd.Close
End Sub

4) В процедуре обработки события Unload, проверить значение переменной.

Private Sub Form_Unload(Cancel As Integer)
Cancel = Not OKToClose
End Sub

Ссылки по теме


 Распечатать »
 Правила публикации »
  Написать редактору 
 Рекомендовать » Дата публикации: 26.12.2007 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Microsoft 365 Business Standard (corporate)
Microsoft Office 365 для Дома 32-bit/x64. 5 ПК/Mac + 5 Планшетов + 5 Телефонов. Подписка на 1 год.
Microsoft 365 Apps for business (corporate)
Microsoft 365 Business Basic (corporate)
Microsoft Office 365 Персональный 32-bit/x64. 1 ПК/MAC + 1 Планшет + 1 Телефон. Все языки. Подписка на 1 год.
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
Реестр Windows. Секреты работы на компьютере
Компьютерные книги. Рецензии и отзывы
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
 



    
rambler's top100 Rambler's Top100