VB .NET定製控件的屬性不會被保存在運行時

Question

我聲明的自定義屬性「填充」

Public Overloads Property Padding() As Padding 
    Get 
     Return (pad) 
    End Get 
    Set(ByVal Value As Padding) 
     pad = Value 
     RecalculateCharacterSize() 
     Me.Refresh() 
    End Set 
End Property 

，並在設計時的作品。但是當我運行表單時，這個屬性重置爲0，並且在設計編輯器中返回時也爲零。與原來的「填充」屬性名稱有衝突，因爲如果我更改爲「Padding2」可以正常工作（並且我可以更改我的名字），但最初的名稱最適合:)

非常感謝您的建議，我確定這裏有一些愚蠢的東西

PS。我與那些打包，但仍然沒有什麼作品

<EditorBrowsable(EditorBrowsableState.Always), Browsable(True), Bindable(True), _ 
DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _ 

有什麼想法？

Answer 1

如果您只是試圖添加到現有的Padding屬性嘗試這樣的事情。

Public Shadows Property Padding() As Padding 
    Get 
     Return (MyBase.Padding) 

    End Get 
    Set(ByVal Value As Padding) 
     MyBase.Padding = Value 
     pad = Value 
     RecalculateCharacterSize() 
     Me.Refresh() 
    End Set 
End Property 

Answer 2

非常感謝馬克，工程:)

Public Shadows Property Padding() As Padding 
    Get 

     Return (pad) 
    End Get 
    Set(ByVal Value As Padding) 
     pad = Value 
     MyBase.Padding = pad ' ---> this had to be added 
     RecalculateCharacterSize() 
     Me.Refresh() 
    End Set 
End Property