Disable "close window option"

[RobDog888]

'In a module
    'Call from any form, passing the Form object
    Option Explicit On
 
    Private Const MF_DISABLED = &H2&
    Private Const MF_BYPOSITION = &H400&
 
    Private Declare Function GetSystemMenu Lib "user32.dll" (ByVal hwnd As Int32, ByVal bRevert As Int32) As Int32
    Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Integer) As Integer
    Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
    Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Integer) As Integer
 
    Public Function DisableX(ByRef oForm As System.Windows.Forms.Form)
        '<VB/OUTLOOK GURU 11/09/2004 - REMOVES FORM SYSTEM MENU ITEMS BY POSITIONS>
        Dim hMenu As Int32
        Dim nCount As Integer
        hMenu = GetSystemMenu(oForm.Handle.ToInt32, 0)
        nCount = GetMenuItemCount(hMenu)
        Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
        nCount = GetMenuItemCount(hMenu)
        Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
        Call DrawMenuBar(oForm.Handle.ToInt32)
    End Function

[taxes]

Hi,

You could put
If bCheck = False then e.Cancel = True


in the closing event of the form. Then when you come to the point in your code wher you want the form to close, set bCheck to true. (bCheck must have form scope of course)

[RobDog888]

True, but I like the greyed out disabled look and feel of removing the close option from the system menu.

[taxes]

By the time I'd written all that code it would be ME that had the "Greyed out look"

[RobDog888]

Grey huh,

'In Form1
DisableX(Me)

[kebo]

damn...posted in the wrong thread....good beer tho
kevin

[szms]

Hello RobDog888,

I used the code that you provided in my module where I have some more codes for different forms. So my module looks like as foloows now:

Module mdlMain
    Public optionInterface As New frmOptions
    Public insertNewmember As New frmInsertmember
 
    Option Explicit On
 
    Private Const MF_DISABLED = &H2&
    Private Const MF_BYPOSITION = &H400&
 
    Private Declare Function GetSystemMenu Lib "user32.dll" (ByVal hwnd As Int32, ByVal bRevert As Int32) As Int32
    Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Integer) As Integer
    Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
    Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Integer) As Integer
 
    Public Function DisableX(ByRef oForm As System.Windows.Forms.Form)
        '<VB/OUTLOOK GURU 11/09/2004 - REMOVES FORM SYSTEM MENU ITEMS BY POSITIONS>
        Dim hMenu As Int32
        Dim nCount As Integer
        hMenu = GetSystemMenu(oForm.Handle.ToInt32, 0)
        nCount = GetMenuItemCount(hMenu)
        Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
        nCount = GetMenuItemCount(hMenu)
        Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
        Call DrawMenuBar(oForm.Handle.ToInt32)
    End Function
End Module

VB.NET does not like "Option Explicit On" so I commented it out and run the code. I could not achive the goal.

I am new in VB.NET so please bear with me and let me know how to handle this situation. Thank you.