Проблема закрытия модальной формы на крестик

[sergey-911]

Всем доброго времени уважаемые. Извините за ламерский вопрос.
Есть приложение с модальной формой. Нужно, чтобы пользователь не имел возможности случайно закрыть основную модальную форму простым нажатием на крестик. Для этого написал указанный ниже скрипт (взятый с данного сайта), который отключает этот крестик вообще. Но это не выход. Нужно, чтобы при нажатии на крестик модальной (основной) формы выводился диалог (Уверен...?)=>Да\Нет. Как этореализовать? Может кто сталкивался?
Прикрепляю сей пример, чтобы было наглядно и удобно редактировать...

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

'V Запрет закрытия формы нажатием на крестик-----------------------------------------------------------------------------------------------
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Const MF_BYPOSITION = &H400&
'A Запрет закрытия формы нажатием на крестик-----------------------------------------------------------------------------------------------

Private Sub RemoveMenus()
    'V Запрет закрытия формы нажатием на крестик-----------------------------------------------------------------------------------------------
    Dim hMenu As Long
    ' Получаем дескриптор системного меню формы.
    hMenu = GetSystemMenu(hwnd, False)
    DeleteMenu hMenu, 6, MF_BYPOSITION
    'A Запрет закрытия формы нажатием на крестик-----------------------------------------------------------------------------------------------
End Sub

Private Sub MDIForm_Load()
    'V Запрет закрытия формы нажатием на крестик-----------------------------------------------------------------------------------------------
    Call RemoveMenus
    'A Запрет закрытия формы нажатием на крестик-----------------------------------------------------------------------------------------------
End Sub



[Naked]

Private Sub MDIForm_Unload(Cancel As Integer)
Dim ret As Long
ret = MsgBox("Уверен что хочешь выйти?", vbOKCancel)
If ret = vbOK Then Cancel = 0
If ret = vbCancel Then Cancel = 1
End Sub

[sergey-911]

Naked
Спасибо большое! Про переменную "Cansel" я не знал

[Vi]

Еще лучше использовать событие QueryUnload вместо Unload:

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

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If UnloadMode = vbFormControlMenu Then
    Cancel = MsgBox("Уверен что хочешь выйти?", vbOKCancel) <> vbOK
  End If
End Sub

[sergey-911]

Vi
ОК! Спасибо большое!!!:)