Disattivare il pulsante che permette la chiusura di una finestra

Questa subroutines (DisableX), permette di rendere inattivo - quindi inutilizzabile - il pulsante che permette la chiusura di una qualunque finestra (form) facente parte del vostro progetto Visual Basic.

Questa subroutines (DisableX), permette di rendere inattivo – quindi inutilizzabile – il pulsante che permette la chiusura di una qualunque finestra (form) facente parte del vostro progetto Visual Basic.

Utilizzo:

DisableX NomeDelForm

Abbiate cura di sostituire NomeDelForm con il nome del form del quale desiderate eliminare il pulsante “X”.
Se volete eliminare il pulsante “X” contenuto nel form corrente potete utilizzare:
DisableX Me

Sub DisableX(NomeDelForm As Form)

    Dim hMenu As Long
    Dim menuItemCount As Long
    hMenu = GetSystemMenu(NomeDelForm.hwnd, 0)

    If hMenu Then
        menuItemCount = GetMenuItemCount(hMenu)
        Call RemoveMenu(hMenu, menuItemCount - 1, MF_REMOVE Or MF_BYPOSITION)
        Call RemoveMenu(hMenu, menuItemCount - 2, MF_REMOVE Or MF_BYPOSITION)
        Call DrawMenuBar(NomeDelForm.hwnd)
    End If
    
End Sub

Ti consigliamo anche

Link copiato negli appunti