Interface Polymorphism in vb.net

Satyapriyanayak
Posted by Satyapriyanayak under VB.NET category on | Points: 40 | Views : 1011
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As New raj1
Dim b As New raj2
display(a)
display(b)
End Sub
Public Sub display(ByVal x As raj)
x.adarsh()
End Sub
Public Interface raj
Sub adarsh()
End Interface
Public Class raj1
Implements raj
Public Sub adarsh() Implements raj.adarsh
MsgBox("Adarsh of raj1")
End Sub
End Class
Public Class raj2
Implements raj
Public Sub adarsh() Implements raj.adarsh
MsgBox("Adarsh of raj")
End Sub
End Class
End Class

Comments or Responses

Login to post response