vb.net - 自定义控件中的文本属性丢失值

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