58 lines
1.4 KiB
VB.net
58 lines
1.4 KiB
VB.net
Public Class Child
|
|
Inherits Person
|
|
|
|
Private _bornDate As Date
|
|
Public Property bornDate() As Date
|
|
Get
|
|
Return _bornDate
|
|
End Get
|
|
Set(ByVal value As Date)
|
|
_bornDate = value
|
|
End Set
|
|
End Property
|
|
|
|
Private _parent1 As Parent
|
|
Public Property parent1() As Parent
|
|
Get
|
|
Return _parent1
|
|
End Get
|
|
Set(ByVal value As Parent)
|
|
_parent1 = value
|
|
End Set
|
|
End Property
|
|
|
|
Private _parent2 As Parent
|
|
Public Property parent2() As Parent
|
|
Get
|
|
Return _parent2
|
|
End Get
|
|
Set(ByVal value As Parent)
|
|
_parent2 = value
|
|
End Set
|
|
End Property
|
|
|
|
Private _meet As Meet
|
|
Public Property meet() As Meet
|
|
Get
|
|
Return _meet
|
|
End Get
|
|
Set(ByVal value As Meet)
|
|
_meet = value
|
|
End Set
|
|
End Property
|
|
|
|
<Obsolete("This method is deprecated, use New with the id parameter insead")>
|
|
Public Sub New(id As Integer, fname As String, lname As String, gender As Boolean, address As String, born As Date, meet As Meet, Optional parent1 As Parent = Nothing, Optional parent2 As Parent = Nothing)
|
|
MyBase.New(id, fname, lname, gender, address)
|
|
Me.bornDate = born
|
|
Me.meet = meet
|
|
Me.parent1 = parent1
|
|
Me.parent2 = parent2
|
|
End Sub
|
|
|
|
Public Sub New(id As Integer)
|
|
MyBase.New(id)
|
|
End Sub
|
|
|
|
End Class
|