Кнопка выхода - VB

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

Здравствуйте! Подскажите, пожалуйста! Как в VB сделать так, чтобы кнопка закрытия программы (X) была запавшей, то есть нельзя программу закрыть. (только через диспетчер устройств). Ответьте пожалуйста по скорее. Всем нащёлкаю спасибо.


textual

Код к задаче: «Кнопка выхода - VB»

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
Эта работа вам не подошла?

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


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.867 из 5

Источник