Polimorfismo !!

¢O polimorfismo permite ter vários métodos com o mesmo nome (identificador), mas com assinaturas diferentes, ou seja com parâmetros distintos, quer em tipo de dados quer em quantidade.

—Regras:

—Devemos utilizar a palavra reservada Overloads  antes do nome do método.

—

Public Overloads Sub escrever(ByVal a As String)

 

 

Module Module1

    'este é um exemplo de Polimorfismo de classes

    Class classe_base  ' Esta é a classe principal

        Public Sub escrever()

            Console.WriteLine("Mensagem da classe principal")

        End Sub

    End Class

    Class Classderivada1 'esta é a aclasse que redefine o método escrever

        Inherits classe_base

        Public Overloads Sub escrever(ByVal a As String)

            Console.WriteLine(a)

        End Sub 
 

 Public Overloads Sub escrever(ByVal a As String, ByVal b As Integer)

         Console.WriteLine(a & b)

        End Sub

  End Class

    Sub Main() ‘ programa principal

        Dim a As New classe_base()

        Dim b As New Classderivada1()

        Dim c As New classe_base()

        a.escrever()

        b.escrever()

        b.escrever("Escrever  algo da classe derivada")

        b.escrever("é o numero", 5)

        c.escrever()

        Console.ReadKey()

    End Sub

End Module