40029 Letture

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.

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


Disattivare il pulsante che permette la chiusura di una finestra - IlSoftware.it