Imports System
Module Useclasses
Public Sub Main()
Dim hs as New Person("A","B")
Dim jd as Person = hs
jd.FirstName = "J"
jd.LastName = "D"
Console.WriteLine(hs.FirstName & "." & hs.LastName)
Console.WriteLine(jd.FirstName & "." & jd.LastName)
End Sub
End Module
Public Class Person
Private sFirstName, sLastName as String
Public Property FirstName() as String
Get
Return sFirstName
End Get
Set(ByVal Value as String)
sFirstName = Value
End Set
End Property
Public Property LastName() as String
Get
Return sLastName
End Get
Set(ByVal Value as String)
sLastName = Value
End Set
End Property
Public Sub New(ByVal FirstName as String, ByVal LastName as String)
Me.FirstName = FirstName
Me.LastName = LastName
End Sub
Public Function GetFullName() as String
Return Me.FirstName & "." & Me.LastName
End Function
End Class
|