Imports System
Module HelloWorld
Public Sub Main()
Dim hs as New Person
hs.Name = "MyName"
hs.Address = "My Address"
Console.WriteLine(hs.GetName())
Console.WriteLine(hs.GetAddress())
End Sub
End Module
Public Interface IName
Function GetName() as String
End Interface
Public Interface IAddress
Function GetAddress() as String
End Interface
Public Class Person
Implements IName, IAddress
Private s_name, s_address as String
Public Sub New()
End Sub
Public WriteOnly Property Name() as String
Set
s_name = value
End Set
End Property
Public WriteOnly Property Address() as String
Set
s_address = value
End Set
End Property
Public Function GetName() as String Implements IName.GetName
GetName = s_name
End Function
Public Function GetAddress() as String Implements IAddress.GetAddress
GetAddress = s_address
End Function
End Class
|