1

カスタムプロパティ「パディング」を宣言しました

    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」に変更すると正常に機能しますが（名前を変更できます）、元の名前が最適であるため、元の「Padding」プロパティ名と競合します:)

提案をありがとうございました、私はここに愚かな何かがあると確信しています

PS。私はそれらで飾りましたが、それでも何も機能しません

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

何かご意見は ？

4

2 に答える 2

1

どうもありがとうマーク、作品:)

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
于 2012-12-03T01:01:38.147 に答える
0

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
于 2012-12-03T00:39:16.210 に答える