Kriptus – Mi web blog

Aqui os presente un pequeño ejemplo del uso del polimorfismo realizado en visual basic .net

Espero que os sirva de ayuda.

Class animal
    Public Overridable Sub comer()
    End Sub

End Class

Class ave
    Inherits animal
    Overrides Sub comer()

        Console.WriteLine("come el ave.")
    End Sub

End Class

Class perro
    Inherits animal
    Overrides Sub comer()

        Console.WriteLine("come el perro.")
    End Sub

End Class

Module Module1

    Sub Main()

        Dim s As animal = New ave()
        Dim s2 As animal = New perro()
        s.comer()
        s2.comer()
        Console.ReadKey()

    End Sub

End Module