Как дать возможность пользователям отменить выгрузку форм 2

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
Case vbFormControlMenu
Cancel = (MsgBox( _
"Close commAnd from form menu (or Close button)." & _
vbCrLf & "Close form?", _
vbQuestion Or vbYesNo, _
"Close Form?") = vbNo)
Case vbFormCode
Cancel = (MsgBox( _
"Unload invoked from code (the Unload button)." & _
vbCrLf & "Close form?", _
vbQuestion Or vbYesNo, _
"Close Form?") = vbNo)
Case vbAppWindows
Cancel = (MsgBox( _
"Windows Is exiting." & _
vbCrLf & "Close form?", _
vbQuestion Or vbYesNo, _
"Close Form?") = vbNo)
Case vbAppTaskManager
Cancel = (MsgBox( _
"The Task Manager Is trying To End the program." & _
vbCrLf & "Close form?", _
vbQuestion Or vbYesNo, _
"Close Form?") = vbNo)
Case vbFormMDIForm
Cancel = (MsgBox( _
"ThIs form's MDI parent Is unloading." & _
vbCrLf & "Close form?", _
vbQuestion Or vbYesNo, _
"Close Form?") = vbNo)
Case vbFormOwner
Cancel = (MsgBox( _
"ThIs form's owner Is closing." & _
vbCrLf & "Close form?", _
vbQuestion Or vbYesNo, _
"Close Form?") = vbNo)
End Select
End Sub

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Как дать возможность пользователям отменить выгрузку форм 2", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!