vb.net - 如何阻止 WinForm 的 ALT+F4 但允许所有其他形式关闭 WinForm？

Question

我在互联网和该资源的各个部分搜索了提出这个问题的地方，并注意到我得到了以下代码:

Protected Overrides ReadOnly Property CreateParams() As CreateParams
    Get
        Dim cp As CreateParams = MyBase.CreateParams
        Const CS_NOCLOSE As Integer = &H200
        cp.ClassStyle = cp.ClassStyle Or CS_NOCLOSE
        Return cp
    End Get
End Property

按预期工作，这会禁用 ALT+F4 的使用。但是，此代码有一个意想不到的副作用:通过控制框关闭窗口被禁用:

此代码是否有一个版本 disables ALT+F4但仍然允许通过其控制框或其他 UI 选项(例如关闭按钮和菜单中的关闭选项)关闭窗口。

我知道有人会说检查 e.CloseReason of the form ，但是 UserClosing 是类似于我想做的事情的唯一原因，但是......仍然会禁用 UI 的使用。除非有一个代码我忘记了。

Answer 1

设置 KeyPreview = True 并处理 KeyDown 事件:

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
    If e.Alt AndAlso e.KeyCode = Keys.F4 Then
        e.Handled = True
    End If
End Sub