Como usar o Polimorfismo

Sub Main()

Dim cli  As Cliente

Dim cliM  As New ClienteMor ()

cliM.Nome = "Pepe"

cliM.idade= 30

cli = cliM

Console.WriteLine("Usando Mostrar da classe Cliente")

cli.Mostrar()

Console.WriteLine("Usando Mostrar da classe ClienteMor")

cliM.Mostrar()

Console.WriteLine(“A idade do Cliente mor é : {0}", cliM.idade)

Console.ReadLine()

End Sub 

 

 

¢No programa declaramos uma variável do tipo da classe cliente, no entanto não foi criado nenhum objecto dessa classe.

¢Depois criamos um objecto da classe Clientemor.

¢Depois atribuímos a variável cli o mesmo objecto da variável cliM.

¢Como a variável cli é do tipo cliente apenas se poderá ter acesso aos elementos existentes nessa classe.

¢Note-se ainda que sempre que alteremos o valor da propriedade nome em cli, este valor também é alterado em CliM.