Блокирование крестика сверху справа

[A.A.Z.]

Как заблокировать крестик в верхнем правом углу окна?
И Alt+F4 заодно.
А то при таком закрытии проги может у меня кой-чего глюкануться.

[Ronin_1978]

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

Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub


[A.A.Z.]

Нет, немного не так, чтобы у него было что-то вроде Enabled = False.

[A.A.Z.]

Здесь пример MsgBox'a, но я и формы такие точно видел!

[Dmitriy2003]

http://vbnet.ru/faq/

ищи там, есть пример.

[MEMBER]

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

Option Explicit

   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&

   Private ReadyToClose As Boolean
'---------------------------------------------------------------------------------------
Private Sub RemoveMenus(frm As Form, _
   remove_restore As Boolean, _
   remove_move As Boolean, _
   remove_size As Boolean, _
   remove_minimize As Boolean, _
   remove_maximize As Boolean, _
   remove_seperator As Boolean, _
   remove_close As Boolean)
   Dim hMenu As Long

   ' Get the form's system menu handle.
   hMenu = GetSystemMenu(hwnd, False)

   If remove_close Then DeleteMenu hMenu, 6, MF_BYPOSITION
   If remove_seperator Then DeleteMenu hMenu, 5, MF_BYPOSITION
   If remove_maximize Then DeleteMenu hMenu, 4, MF_BYPOSITION
   If remove_minimize Then DeleteMenu hMenu, 3, MF_BYPOSITION
   If remove_size Then DeleteMenu hMenu, 2, MF_BYPOSITION
   If remove_move Then DeleteMenu hMenu, 1, MF_BYPOSITION
   If remove_restore Then DeleteMenu hMenu, 0, MF_BYPOSITION
End Sub
'---------------------------------------------------------------------------------------
Private Sub cmdClose_Click()
   ReadyToClose = True
   Unload Me
End Sub
'---------------------------------------------------------------------------------------
Private Sub Form_Load()
   ' Remove the Close system menu item and the
   ' menu separator.
   RemoveMenus Me, False, False, _
   False, False, False, True, True
End Sub
'---------------------------------------------------------------------------------------
' Cancel if ReadyToClose is false.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   Cancel = Not ReadyToClose
End Sub


И позволю себе понудить: [url]http://www.google.com/search?q=VB Заблокировать крестик[/url]

[A.A.Z.]

Спасибо за код! Всё работает!
И за Google спасибо. В "Мастерской разработчика" много интересного.

[_NeoN_]

но лучше ничего не делай такого что если прирвется то всему хана... ведь бывают же и зависания

[A.A.Z.]

Да я знаю...
Пытаюсь всё к минимуму свести. Если что - Backup'ы.
Теперь буду пытаться запретить завершение процесса сделать...