禁用关闭按钮而不禁用图标

Question

我的问题很简单，但我似乎无法解决它。

我只想从表单中删除关闭按钮，而不删除图标。

我使用了 ControlBox = false，但它也删除了表单的图标，我只想保留它。

无论如何，我可以通过代码或属性来做到这一点吗？

Answer 1

将其添加到 Public Class Form ... 下：

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

它应该完美地工作！

Answer 2

如果你想要一些功能齐全的东西，那么你可以使用我的SystemMenuManager By Elektro Class。

只需将所有代码添加到单个类中，然后像下面的示例一样使用它：

Public Class Form1
    Dim SystemMenu As New SystemMenuManager(Me)
    Private Shadows Sub Load() Handles MyBase.Load
        ' Disables the 'Close' button and 'Close' menu-item.
        SystemMenu.SetItemState(SystemMenuManager.Item.Close, 
                                SystemMenuManager.ItemState.Disabled)
    End Sub
End Class