ГлавнаяVB Как запретить юзеру уйти не попрощавшись
Как запретить юзеру уйти не попрощавшись
Автор Виталий
06.06.2002 г.
В статье описан способ, с помощью которого можно контролировать (запретить) выход из работающего приложения
>>. Каждый новичок знает несколько способов выгрузить форму: щелкнуть кнопку Exit или соответствующую команду меню, щелкнуть кнопку со знаком X в верхнем правом углу формы. Юзер со стажем может выбрать команду Close из всплывающего меню окна формы в верхнем левом углу.Особо продвинутые могут даже произвести отмену выполнения программы из менеджера задач или перезагрузить компьютер.
У тех, которые могут программировать, возможности поистине безграничны в способах "убить" ваше творение. Но, по совести сказать - они видимо, знают что делают.
А вот обычный пользователь может по неопытности своей закрыть программу не сохранив важные данные, уничтожив т.о. свой труд. А может, понадеялся, что при выходе его пригласят сохраниться, как в "настоящих" программах? Так или иначе, было бы полезно не лишать пользователя возможности отмены операции выгрузки формы, проводимой одним из вышеперечисленных способов.
Для этого и всего то надо поместить в своей программе несколько строчек кода, осуществляющий проверку выгрузки формы, т.е. событие QueryUnload для этой формы. Данное событие инициируется независимо от метода, используемого для выгрузки формы:
‘Объявляем переменные
Dim strQuestion As String ‘ Это ваш вопрос или предложение юзеру
Dim intAnswer As Integer ‘ Это его ответ
Dim aryMode As Variant ‘ А это способ, которым пытаются закрыть окно
‘Далее процедура, которая проверяет выгрузку формы
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)