"----Delegates" in Oops Example in VB.NET

'it just have method declaratoin with imp

'must overide by clss

Public Interface Test

'creating an Interface named Test

Sub disp()

Function Multiply() As Double

'specifying two methods in an interface

End Interface

Public Class One

Implements Test

'implementing interface in class One

Public i As Double = 12

Public j As Double = 12.17

Sub disp() Implements Test.disp

'implementing the method specified in interface

WriteLine(

"sum of i+j is" & i + j)

Read()

End Sub

Public Function multiply() As Double Implements Test.Multiply

'implementing the method specified in interface

WriteLine(i * j)

Read()

End Function

End Class

Public Class Two

Implements Test

'implementing the interface in class Two

Public a As Double = 20

Public b As Double = 32.17

Sub disp() Implements Test.disp

WriteLine(

"Welcome to Interfaces")

End Sub

Public Function multiply() As Double Implements Test.Multiply

WriteLine(a * b)

End Function

End Class

Sub Main()

Dim OneObj As New One()

Dim TwoObj As New Two()

'creating objects of class One and Two

OneObj.disp()

OneObj.multiply()

TwoObj.disp()

TwoObj.multiply()

'accessing the methods from classes as specified in the interface

End Sub

 

OutPut : sum of i+j is 24.17