.NET Tutorials, Forums, Interview Questions And Answers
Welcome :Guest
 
Sign In
Register
 
Win Surprise Gifts!!!
Congratulations!!!


Top 5 Contributors of the Month
david stephan

Home >> Code Snippets >> Visual Studio >> Post New Resource Bookmark and Share   

 Subscribe to Code Snippets

Polymorphism in vb.net

Posted By:satyapriyanayak       Posted Date: August 14, 2013    Points: 40    Category: Visual Studio    URL: http://www.dotnetspark.com  

We will know about the types of Polymorphism in vb.net
 

Polymorphism: - A procedure can assume different forms using Polymorphism. It is of two kinds they are as below:

 

1.Inheritance based

2.Interface based

 

Inheritance based example: -

 

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 raj1)

        x.amit("sagar")

    End Sub

    Public Class raj1

        Public Overridable Sub amit(ByVal s As String)

            MsgBox("Hello:" & s)

        End Sub

    End Class

    Public Class raj2

        Inherits raj1

        Public Overrides Sub amit(ByVal s As String)

            MsgBox("Hello:" & s)

        End Sub

    End Class

End Class

 

 

Interface based example: -

 

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



     

Further Readings:

Responses

No response found. Be the first to respond this post

Post Comment

You must Sign In To post reply
Find More code samples in C#, ASP.Net, Vb.Net and more Here

Hall of Fame    Twitter   Terms of Service    Privacy Policy    Contact Us    Archives   Tell A Friend