Redefinição de métodos (Overriding)

—Existem classes que derivam de outras através de herança.

—Em POO, nessas classes pode-se redefinir os seus métodos, ou seja pode-se alterar o método da classe principal.

—Regras:

Public Overridable Sub escrever()

Devemos escrever overridable no método que queremos alterar.

Na classe derivada devemos usar a palavra Overrides

Public Overrides Sub escrever(ByVal a As String)

 

Module Module1

    'este é um exemplo de overriding ou redefinição de  métodos

    Class classe_base ' Esta é a classe principal

        Public Overridable 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 Overrides Sub escrever()

            Console.WriteLine("mensagem da classe que redefiniu o metodo")

        End Sub

       End Class

 

    Class Classderivada2 'esta é uma classe que deriva da principal

        Inherits classe_base

    End Class

    Sub Main()

        Dim a As New classe_base()

        Dim b As New Classderivada1()

        Dim c As New Classderivada2()

        a.escrever()

        b.escrever()

        c.escrever()

        Console.ReadKey()

    End Sub

End Module