时间戳

首页 > 解决方案 > VB.Net如何一起使用去除闪烁和禁用ALT F4

vb.net - VB.Net如何一起使用去除闪烁和禁用ALT F4

问题描述

我这里有禁用闪烁的代码。我将此添加到设计器中：

'Remove Flicker Lag
    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or &H2000000
            ' Turn on WS_EX_COMPOSITED
            Return cp
        End Get
    End Property

我也有这段代码可以防止表单成为 alt + f4 并且我将它添加到我想防止成为 alt f4 的表单代码中

  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

但我不能同时使用它们。谁能帮帮我吗？

标签： vb.net

解决方案

我把它们加在一起。谢谢@AConfusedSimpleton。

 Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Const CS_NOCLOSE As Integer = &H200
            Const WS_EX_COMPOSITED As Integer = &H2000000

            Dim cp As CreateParams = MyBase.CreateParams

            ' Enable compositing to reduce flicker
            cp.ExStyle = cp.ExStyle Or WS_EX_COMPOSITED

            ' Disable close button and Alt+F4
            cp.ClassStyle = cp.ClassStyle Or CS_NOCLOSE

            Return cp
        End Get
    End Property

推荐阅读