98 lines
2.2 KiB
VB.net
98 lines
2.2 KiB
VB.net
Public Class BabySitter
|
|
Inherits Person
|
|
|
|
Private _phone1 As String
|
|
Public Property phone1() As String
|
|
Get
|
|
Return _phone1
|
|
End Get
|
|
Set(ByVal value As String)
|
|
_phone1 = value
|
|
End Set
|
|
End Property
|
|
|
|
Private _phone2 As String
|
|
Public Property phone2() As String
|
|
Get
|
|
Return _phone2
|
|
End Get
|
|
Set(ByVal value As String)
|
|
_phone2 = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Private _meet1 As Meet
|
|
Public Property meet1() As Meet
|
|
Get
|
|
Return _meet1
|
|
End Get
|
|
Set(ByVal value As Meet)
|
|
_meet1 = value
|
|
End Set
|
|
End Property
|
|
|
|
Private _meet2 As Meet
|
|
Public Property meet2() As Meet
|
|
Get
|
|
Return _meet2
|
|
End Get
|
|
Set(ByVal value As Meet)
|
|
_meet2 = value
|
|
End Set
|
|
End Property
|
|
|
|
Private _meet3 As Meet
|
|
Public Property meet3() As Meet
|
|
Get
|
|
Return _meet3
|
|
End Get
|
|
Set(ByVal value As Meet)
|
|
_meet3 = value
|
|
End Set
|
|
End Property
|
|
|
|
'Private _meet1 As Integer
|
|
'Public Property meet1() As Integer
|
|
' Get
|
|
' Return _meet1
|
|
' End Get
|
|
' Set(ByVal value As Integer)
|
|
' _meet1 = value
|
|
' End Set
|
|
'End Property
|
|
|
|
'Private _meet2 As Integer
|
|
'Public Property meet2() As Integer
|
|
' Get
|
|
' Return _meet2
|
|
' End Get
|
|
' Set(ByVal value As Integer)
|
|
' _meet2 = value
|
|
' End Set
|
|
'End Property
|
|
|
|
'Private _meet3 As Integer
|
|
'Public Property meet3() As Integer
|
|
' Get
|
|
' Return _meet3
|
|
' End Get
|
|
' Set(ByVal value As Integer)
|
|
' _meet3 = 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, phone1 As String, Optional phone2 As String = Nothing)
|
|
MyBase.New(id, fname, lname, gender, address)
|
|
Me.phone1 = phone1
|
|
Me.phone2 = phone2
|
|
End Sub
|
|
|
|
Public Sub New(id As Integer)
|
|
MyBase.New(id)
|
|
End Sub
|
|
|
|
|
|
End Class
|