自定义控件中的文本属性失去价值

Question

我正在制作自定义按钮控件，但我的 Text 属性遇到了一些困难。我输入的任何内容都只会在表单设计器窗口打开时保留。当我关闭表单设计器并重新打开它时，我的 Text 属性重置为“”。此外，如果我运行该程序，它会丢失在设计时输入的值。

我的控件还有一个 Image 属性，它工作得很好。

这是我的一些代码：

Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Windows.Forms
Imports System.ComponentModel

Public Class BlackButton

Private iText As String
Private iImage As Image

''' <summary>
''' Gets/Sets the text displayed in the button.
''' </summary>
<Browsable(True), Description("Gets or sets the text displayed on the button")> _
Public Shadows Property Text() As String
    Get
        Return iText
    End Get
    Set(ByVal value As String)
        iText = value
        ReDrawMe()
    End Set
End Property

''' <summary>
''' Gets/Sets the image to be displayed on the button
''' </summary>
<Browsable(True), Description("Gets or sets the image displayed on the button")> _
Public Shadows Property Image() As Image
    Get
        Return iImage
    End Get
    Set(ByVal value As Image)
        iImage = value
        ReDrawMe()
    End Set
End Property

我仔细梳理了我的代码，并确保我没有在任何地方重置它。

在此先感谢您提供任何帮助。

Answer 1

添加属性似乎可以工作：

<Browsable(True), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
Public Overrides Property Text() As String
    Get
        Return MyBase.Text
    End Get
    Set(ByVal value As String)
        MyBase.Text = value
        LabInfo.Text = MyBase.Text
    End Set
End Property

Answer 2

我曾经遇到过这个问题。只需删除 Shadows 关键字即可。我不知道 Override 是否可以在那里工作，但如果不能，请忽略 VS 关于 Text 和 Image 属性的警告。

编辑：我不知道你为什么没有成功使用 Overrides 关键字。只有Image 属性迫使我改用Overloads。这是我的代码：

Imports System.ComponentModel

公共类 UserControl1

Dim _Text As String
Dim _Image As Image

<Browsable(True), Description("Gets or sets the text displayed on the button")> _
Overrides Property Text() As String
    Get
        Return _Text
    End Get
    Set(ByVal value As String)
        _Text = value
        'This line just for update
        'the UI when I design to check
        'if the values are saved.
        MyBase.Text = value
    End Set
End Property

<Browsable(True), Description("Gets or sets the image displayed on the button")> _
Overloads Property Image() As Image
    Get
        Return _Image
    End Get
    Set(ByVal value As Image)
        _Image = value
        'ReDrawMe()
    End Set
End Property

结束类