vb.net禁止程序窗口的“关闭”按钮（转载+亲自实践）

vb.net写程序，生成的窗口默认右上角都有最大化，最小化和关闭按钮

其中最大化和最小化按钮可以通过窗口的属性直接删除

有时候需要将“关闭”按钮禁止，

可以通过编写简单程序实现。

具体方法如下：

 

新建一个名叫common.vb的文件，将以下内容写入其中，

方便其他窗口调用

 

Public Class Common
   Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Integer, ByVal bRevert As Long) 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

    Private Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Integer) As Integer



    Private Const MF_BYPOSITION = &H400&

    Private Const MF_DISABLED = &H2&


    '禁用窗口右上角的“关闭”按钮
    Public Sub DisableCloseButton(ByVal wnd As Form)

        Dim hMenu As Integer, nCount As Integer

        '得到系统Menu

        hMenu = GetSystemMenu(wnd.Handle.ToInt32, 0)

        '得到系统Menu的个数

        nCount = GetMenuItemCount(hMenu)

        '去除系统Menu

        Call RemoveMenu(hMenu, nCount - 1, MF_BYPOSITION Or MF_DISABLED)

        '重画MenuBar

        DrawMenuBar(wnd.Handle.ToInt32)

    End Sub

End Class

然后在需要该功能的窗口的Load方法中调用DisableCloseButton方法

    Public Sub FormChangePassWord_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
        Me.Visible = True

        common.DisableCloseButton(Me)

    End Sub