オブジェクトプロパティのサンプル2
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
[[VisualBasic.NET]]~
[[オブジェクトプロパティ]]~
[[オブジェクトプロパティのサンプル1]]
* 配列型やコレクション型のプロパティを永続化する方法。 [#...
~<Serealizable()>属性や、<DesignerSerializationVisibility...
この方法で作成したコントロールのプロパティはリソースに値...
<Serializable()>Public Class MyProperty
Dim strA As String = ””
Dim intB As Integer = 0
Public Property A() As String
Get
Return strA
End Get
Set(ByVal Value As String)
strA = Value
End Set
End Property
Public Property B() As Integer
Get
Return intB
End Get
Set(ByVal Value As Integer)
intB = Value
End Set
End Property
End Class
Public Class ArrayPropertyEditor
Inherits System.ComponentModel.Design.ArrayEditor
Sub New()
MyBase.New(GetType(cEventProcess))
End Sub
Protected Overrides Function CreateCollectionItemTyp...
Return GetType(cEventProcess)
End Function
End Class
Public Class MyControl
Inherits System.Windows.Forms.UserControl
Dim clsArrayProperty As MyProperty() = {New MyProper...
+ Windows フォーム デザイナで生成されたコード
<System.ComponentModel.DesignerSerializationVisibili...
System.ComponentModel.EditorAttribute(GetType(Array...
Public Property MyArrayProperty() As MyProperty()
Get
Return clsArrayProperty
End Get
Set(ByVal Value As MyProperty())
clsArrayProperty = Value
End Set
End Property
End Class
終了行:
[[VisualBasic.NET]]~
[[オブジェクトプロパティ]]~
[[オブジェクトプロパティのサンプル1]]
* 配列型やコレクション型のプロパティを永続化する方法。 [#...
~<Serealizable()>属性や、<DesignerSerializationVisibility...
この方法で作成したコントロールのプロパティはリソースに値...
<Serializable()>Public Class MyProperty
Dim strA As String = ””
Dim intB As Integer = 0
Public Property A() As String
Get
Return strA
End Get
Set(ByVal Value As String)
strA = Value
End Set
End Property
Public Property B() As Integer
Get
Return intB
End Get
Set(ByVal Value As Integer)
intB = Value
End Set
End Property
End Class
Public Class ArrayPropertyEditor
Inherits System.ComponentModel.Design.ArrayEditor
Sub New()
MyBase.New(GetType(cEventProcess))
End Sub
Protected Overrides Function CreateCollectionItemTyp...
Return GetType(cEventProcess)
End Function
End Class
Public Class MyControl
Inherits System.Windows.Forms.UserControl
Dim clsArrayProperty As MyProperty() = {New MyProper...
+ Windows フォーム デザイナで生成されたコード
<System.ComponentModel.DesignerSerializationVisibili...
System.ComponentModel.EditorAttribute(GetType(Array...
Public Property MyArrayProperty() As MyProperty()
Get
Return clsArrayProperty
End Get
Set(ByVal Value As MyProperty())
clsArrayProperty = Value
End Set
End Property
End Class
ページ名: