Pasando seguidamente a la sobre-escritura, escribiremos en la clase padre el método MostrarNombre(
), y lo sobrescribiremos en la clase hija. Instanciaremos después un objeto Administrativo y lo
asignaremos a la variable tipificada como Empleado. Debido a que el enlace tardío se basa en el tipo
del objeto que contiene la variable, y no en el tipo de la variable, al llamar al método MostrarNombre(
), se ejecutará la versión de la clase Administrativo. Veamos el Código fuente 271.
Module Module1
Sub Main()
Dim loPersona As Empleado
loPersona = New Administrativo()
loPersona.psNombre = "Juan García"
' como la sobre-escritura utiliza enlace tardío,
' se basa en el objeto que contiene la variable y
' no en el tipo de dato de la variable, se ejecuta
' la versión del método MostrarNombre() que está
' en la clase Administrativo, ya que el objeto
' que contiene la variable loPersona es una
' instancia de Administrativo
loPersona.MostrarNombre()
Console.ReadLine()
End Sub
End Module
Public Class Empleado
Public psNombre As String
Public pdtFHAlta As Date
Public Overridable Sub MostrarNombre()
Console.WriteLine("El nombre del empleado es {0}", _
Me.psNombre)
End Sub
End Class
Public Class Administrativo : Inherits Empleado
Public Overrides Sub MostrarNombre()
Console.WriteLine("Nombre del empleado")
Console.WriteLine("===================")
Console.WriteLine(UCase(Me.psNombre))
End Sub
End Class
Código fuente 271
La Tabla 23 muestra, al utilizar sobre-escritura, la clase de la cuál será ejecutado el método, en función
de la referencia de la variable y el tipo de objeto.Tabla 23. Método ejecutado mediante enlace tardío bajo sobre-escritura. |
No hay comentarios:
Publicar un comentario