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

Question

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

我也有我的控制的图像属性工作得很好。

下面是我的一些代码：

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是否可以在那里工作，但如果没有，只需忽略关于Text和Image属性的VS警告。

编辑：我不知道你为什么没有成功与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 

末级