"AND" "OR"
Главная Информер Журнал Форум

Как сделать форму, которую нельзя закрыть

Если установить свойство формы ControlBox в False, то кнопки минимизации и максимизации так же станут невидимыми. Однако, иногда бывает необходимо оставить возможность максимизировать и минимизировать форму, но при этом не разрешать её закрывать. Для этого просто добавьте следующий код в событие Query_Unload:

' в VB3 следующую строчку следует раскоментировать
' Const vbFormControlMenu = 0
Private Sub Form_QueryUnload(Cancel As _
        Integer, UnloadMode As Integer)
                If UnloadMode = vbFormControl_
                        Menu Then
                        Cancel = True
                End If
End Sub