Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

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

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.