25 lines
638 B
VB.net
25 lines
638 B
VB.net
Public Class Parent
|
|
Inherits Person
|
|
|
|
Private _phone As String
|
|
Public Property phone() As String
|
|
Get
|
|
Return _phone
|
|
End Get
|
|
Set(ByVal value As String)
|
|
_phone = 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, phone As String, address As String)
|
|
MyBase.New(id, fname, lname, gender, address)
|
|
Me.phone = phone
|
|
End Sub
|
|
|
|
Public Sub New(id As Integer)
|
|
MyBase.New(id)
|
|
End Sub
|
|
|
|
End Class
|