VisualBasic.NET
オブジェクトプロパティ
オブジェクトプロパティのサンプル2

オブジェクト型のプロパティ

'プロパティクラス
Public Class MyProperty
    Event PropertyChanged(ByVal PropertyName As String)

    Dim strA As String
    Dim strB As String

    Public Property a As String
        Get
            Return strA
        End Get
        Set(ByVal Value As String)
            If strA <> Value Then
                strA = Value
                RaiseEvent PropertyChaged(a)
            End If
        End Set
    End Property

    Public Property b As String
        Get
            Return strB
        End Get
        Set(ByVal Value As String)
            If strB <> Value Then
                strB = Value
                RaiseEvent PropertyChaged(b)
            End If
        End Set
    End Property

    Overrides Function ToString() As String
        Return ”(MyProperty)”
    End Function
End Class

'ユーザコントロール
Public Class MyControl
    Inherits System.Windows.Forms.UserControl

+ Windows フォーム デザイナで生成されたコード

    Dim WithEvents mMyProperty As New MyProperty()

    <TypeConverter(GetType(MyPropertyTypeConverter))> _
    Property CustomProperty As MyProperty
        Get
            Return mMyProperty
        End Get
        Set(ByVal Value As MyProperty)
            mMyProperty = Value
        End Set
    End Property
End Class

'TypeConvertカスタムクラス
Public Class MyPropertyTypeConverter
    Inherits TypeConverter

    Overlodes Overrides Function GetPropertiesSupported( _
      ByVal Context as ITypeDescriptorContext) As Boolean
        Return True
    End Function

    Overlodes Overrides Function GetProperties( _
      ByVal Context as ITypeDescriptorContext, _
      ByVal Value As Object, _
      ByVal attributes() As Attribute) As PropertyDescriptorCollection
        Return TypeDescriptor.GetProperties(GetType(MyProperty))
    End Function
End Class

修正

上のプログラム例では、実行時に値が消えてしまう。値を永続化するため、ユーザコントロールのプロパティ設定に属性を一つ追加する。

  • System.ComponentModel?.DesignerSerializationVisibility属性
    デザイン時にコンポーネントのプロパティをシリアライズ化する属性。
    引数に永続化の種類を指定する。

    [Context]:代入するオブジェクトの各プロパティを初期化。

    [Hidden] :初期化コードで永続化しない。

    [Visible]:初期化コードで永続化する。

'ユーザコントロール
Public Class MyControl
    Inherits System.Windows.Forms.UserControl

+ Windows フォーム デザイナで生成されたコード

    Dim WithEvents mMyProperty As New MyProperty()

    <DesignerSerializationVisibility(Content), TypeConverter(GetType(MyPropertyTypeConverter))> Property CustomProperty As MyProperty
        Get
            Return mMyProperty
        End Get
        Set(ByVal Value As MyProperty)
            mMyProperty = Value
        End Set
    End Property
End Class

トップ   編集 凍結解除 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2007-05-31 (木) 18:49:25 (4466d)