Как отменить закрытие окна - VB

Формулировка задачи:

т.е. если я нажимаю крест вправом верхнем углу моя прога переспрашивает: точно хочешь уйти? и если да, то отлично уходит(закрывается). а если нет - тоже закрывается (хотя мне-то надо, чтоб НЕ ЗАКРЫВАЛАСЬ!!!)

Решение задачи: «Как отменить закрытие окна»

textual
                            Листинг программы 
                        
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    On Error Resume Next
    If MsgBox('Вы уверены, что хотите завершить программу?', vbYesNo + vbQuestion, 'Завершение работы программы') = vbNo Then Cancel = 1
 Exit Sub
    end if
   
End Sub

Оцени полезность:

13 голосов , оценка 4.154 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы