Mega Code Archive

 

Categories / VB.Net Tutorial / Class Module

 

Implements two interfaces and WriteOnly Property

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