Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Feb 1, 2001



Building the Right Environment to Support AI, Machine Learning and Deep Learning

RemoveCloseMenuItem - Remove the Close button and command from a form

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
    ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _
    ByVal nPosition As Long, ByVal wFlags As Long) As Long

' Remove the Close menu item and disable the Close button
' from a window

Public Sub RemoveCloseMenuItem(ByVal hWnd As Long)
    Const SC_CLOSE = &HF060
    Const MF_BYCOMMAND = 0
    Dim hMenu As Long
    ' get the system menu's handle
    hMenu = GetSystemMenu(hWnd, 0)
    ' remove the Close item
    RemoveMenu hMenu, SC_CLOSE, MF_BYCOMMAND
End Sub
Marco Bellinaso
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date