布尔属性在运行时返回 false，尽管通过 Designer 设置为“true”

Question

希望这有一个简单的解决方法：

我为我的解决方案创建了一个自定义文本框。我向那个自定义控件添加了一个名为“AllowEmpty”的自动属性：

Public Property AllowEmpty As Boolean

我的构造函数和事件都读取该属性的值并采取相应的行动：

Public Sub New()

    If AllowEmpty Then
        Text = String.Empty
    Else
        Text = "0"
    End If

End Sub

Private Sub CustomTextBox_TextChanged(sender As Object, e As EventArgs) Handles Me.TextChanged

    If AllowEmpty Then
        Text = String.Empty
    Else
        Text = "0"
    End If

End Sub

但是，通过设置断点，我发现如果我在 Designer 上将“AllowEmpty”设置为 True，它在运行时仍然为 false。我错过了什么吗？

谢谢。

Answer 1

如果尝试在组件的构造函数中访问设计时设置的自定义属性，事情发生的顺序对您不利。

假设这个 CustomTextBox 在 Form1 上，会发生以下情况：

1. Form1 构造函数
2. Form1 构造函数调用Form1.InitializeComponent()
3. InitializeComponent 内部，Me.components = New System.ComponentModel.Container()
4. CustomTextBox 现已构建
5. 返回Form1.InitializeComponent()

然后InitializeComponent()中的这段代码

'CustomTextBox1
'
Me.CustomTextBox1.AllowEmpty = True ' <--- that is the designer set value
Me.CustomTextBox1.Location = New System.Drawing.Point(12, 12)
Me.CustomTextBox1.Name = "CustomTextBox1"
Me.CustomTextBox1.Size = New System.Drawing.Size(100, 20)
Me.CustomTextBox1.TabIndex = 0
' ...

如您所见，任何设计器设置的属性都在此处的代码中设置，在类被构造之后。所以构造函数不是访问它们的最佳位置。

但您可以改用OnCreateControl

Protected Overrides Sub OnCreateControl()
    MyBase.OnCreateControl()
    If AllowEmpty Then
        Text = String.Empty
    Else
        Text = "0"
    End If
End Sub