La propriété de texte dans le contrôle personnalisé perd de la valeur

Question

Je crée un contrôle de bouton personnalisé et rencontre des difficultés avec ma propriété Texte. Tout ce que je tape ne reste que lorsque la fenêtre du concepteur de formulaires est ouverte. Lorsque je ferme le concepteur de formulaire et le rouvre, ma propriété Text est réinitialisée sur "". Aussi, si je cours le programme, il perd la valeur entrée au moment du design.

J'ai également une propriété Image pour mon contrôle qui fonctionne très bien.

est ici une partie de mon code:

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 

J'ai soigneusement passé au peigne fin mon code et fait que je ne suis pas remise à zéro partout.

Merci d'avance pour toute aide à ce sujet.

Answer 1

Il semble fonctionner d'ajouter une propriété:

<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

Une fois, j'ai rencontré ce problème. Il suffit de supprimer le mot-clé Shadows. Je ne sais pas si Override peut fonctionner ici, mais si ce n'est pas le cas, ignorez simplement l'avertissement VS sur les propriétés Text et Image.

EDIT: Je ne sais pas pourquoi vous n'avez pas réussi avec le mot-clé Overrides. Seule la propriété Image m'a forcé à utiliser Overloads à la place. Voici mon code:

Imports System.ComponentModel 

Classe publique 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 

End Class