■ コンストラクタ
構文:呼び先
Sub New (【パラメータ】)
【実行する文】
End Sub
サンプル
' 呼び出し側
Dim person As New Person("Mike", 29)
' 呼び出し先
Sub New (ReVal name As String, ReVal age As Integer)
Me.Name = name
Me.Age = age
End Sub
コンストラクタから別のコンストラクタを呼び出すには
構文
* Me.New()で呼び出す
サンプル
Private _Item As String
Private _Content As String
Private _Delimitter As String
'プロパティ
Public Property Item As String
Get
Return Me._Item
End Get
Set(ByVal value As String)
Me._Item = value
End Set
End Property
Public Property Content As String
Get
Return Me._Content
End Get
Set(ByVal value As String)
Me._Content = value
End Set
End Property
Public Property Delimitter As String
Get
Return Me._Delimitter
End Get
Set(ByVal value As String)
Me._Delimitter = value
End Set
End Property
Public Sub New( _
ByVal item As String, _
ByVal content As String)
Me.New(item, content, HeaderCreater.DelimitterColon)
End Sub
Public Sub New(
ByVal item As String, _
ByVal content As String, _
ByVal delimitter As String)
Me._Item = item
Me._Content = content
Me._Delimitter = delimitter
End Sub