Событие формы QweryUnload

[8Ball's]

При закрытии формы должна происходить проверка файла для сохранения, с последующим msgBox (да)(нет)(отмена). При нажатии отмена, работа программы должна продолжаться, а вместо этого дальше происходит Unload Подскажите, что делать

[Viper]

присвоить аргументу Cancel события QueryUnload значение 1.

[Amed]

Код: Выделить всё

Dim retval As Long
retval = MsgBox("Закрыть?", vbYesNoCancel)

Select Case retval
    Case vbYes:
        MsgBox "Yes!"
    Case vbNo:
        MsgBox "No!"
    Case vbCancel:
        MsgBox "Cancel!"
        ' Cancel=1
End Select

[BasiС]

Код: Выделить всё

Private Sub Form_Unload(Cancel As Integer)
'Выход из программы

If MsgBox("Вы типа хотите выйти из программы? А файл Вы сохранили?", vbQuestion + vbYesNo + vbDefaultButton2, "title") = vbNo Then
    Cancel = True
Else
    Me.Hide

End If

End Sub