从 TextBox 继承的 vb .NET 自定义控件不会触发 Paint 事件

我需要一个始终被禁用的多行文本框，但它不应该将自己涂成灰色，但我想保留其设计者选择的颜色。

我以前对始终黑色标签（无多行）有相同的要求，因此我从 Label 继承，例如：

Imports System.ComponentModel

   Public Class LabelDisabled
        Inherits Label

        Sub New()
            InitializeComponent()
            Enabled = False
        End Sub

        Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
            ' always draw it black
            e.Graphics.DrawString(Me.Text, Me.Font, Brushes.Black, 0, 0)
        End Sub

    End Class

效果很好。现在我想要同样的东西，但带有多行标签，所以我选择继承自 TextBox：

Imports System.ComponentModel

Public Class CustomControl1
    Inherits TextBox

    Sub New()

        InitializeComponent()
        'Paint never fires anyway
        'Enabled = False
    End Sub


    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim brush As New SolidBrush(Me.ForeColor)
        e.Graphics.DrawString(Me.Text, Me.Font, brush, 0, 0)
    End Sub

End Class

现在，Paint 事件永远不会在继承的 CustomControl1（TextBox）控件中触发。

为什么我无法获取 Paint 事件？

另外，如果我想让 Enabled 属性不可见并且用户不可设置，我会这样做：

<Browsable(False),
DefaultValue(False)>
Public Overloads Property Enabled As Boolean
    Get
        Return False
    End Get
    Set(ByVal value As Boolean)
    End Set
End Property

但这样，我就无法设置“真正的”Enabled 属性，我指的是支持字段。

我找到了解决方案。看起来 TextBox 即使对于子类也禁用 Paint 事件。但您可以调用 SetStyle 强制 WM_PAINT 位：

Public Class DisabledTextBox
    Inherits TextBox

    Public Sub New()
        InitializeComponent()

        Enabled = False
        SetStyle(ControlStyles.Selectable, False)
        SetStyle(ControlStyles.UserPaint, True)

    End Sub

    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim brush As New SolidBrush(Me.ForeColor)
        e.Graphics.DrawString(Me.Text, Me.Font, brush, 0, 0)
    End Sub

End Class

它按预期完美运行:)