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