18
Сентябрь
2009
Как заблокировать кнопку закрытия
Как заблокировать кнопку закрытия?
Блокируем кнопку закрытия («крестик» в правом верхнем углу формы).
Option Explicit
Private Declare Function RemoveMenu 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
Private Sub Form_Load()
Dim hSystemMenu&
hSystemMenu& = GetSystemMenu(Me.hwnd, 0)
Call RemoveMenu(hSystemMenu&, 6, MF_BYPOSITION)
Call RemoveMenu(hSystemMenu&, 5, MF_BYPOSITION)
End Sub