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:
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