VB.NET 画面关闭按钮设置不可用

1.设置关闭按钮为最小化的样式。  

  Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Dim SC_CLOSE As Integer = 61536
        Dim WM_SYSCOMMAND As Integer = 274

        If m.Msg = WM_SYSCOMMAND AndAlso m.WParam.ToInt32 = SC_CLOSE Then
            '画面关闭的内容            
            Me.WindowState = FormWindowState.Minimized
            Me.ShowInTaskbar = False
            Exit Sub
        End If
        MyBase.WndProc(m)

    End Sub

2.设置关闭按钮为不可编辑的样式。  

    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim param As CreateParams = MyBase.CreateParams
            param.ClassStyle = param.ClassStyle Or &H200
            Return param
        End Get
    End Property

如果资源学习了，可以点赞支持！