Elementos compartidos e interfaces - III

En el caso de clases heredadas, y con métodos sobrescritos, CType( ) discierne la implementación de clase a la que debe dirigirse. 

Si añadimos la clase Administrativo como hija de Empleado, y sobrescribimos el método VerDatos( ), cuando pasemos al procedimiento ManipularVarios( ) un objeto Administrativo, dado que esta clase hereda de Empleado, con un sencillo cambio en la estructura Select...Case que comprueba el tipo de objeto, ejecutaremos la implementación sobrescrita del método VerDatos( ) en la clase Administrativo. Veamos el Código fuente 283.

Module Module1

Public Sub Main()

Dim loEmple As New Empleado()

loEmple.piID = 58

loEmple.psNombre = "Elena Peral"

ManipularVarios(loEmple)

Dim loAdmin As New Administrativo()

loAdmin.piID = 80

loAdmin.psNombre = "Alfredo Iglesias"

ManipularVarios(loAdmin)

Dim loFac As New Factura()

loFac.pdtFecha = "25/2/2002"

loFac.piImporte = 475

ManipularVarios(loFac)

Console.Read()

End Sub

Public Sub ManipularVarios(ByVal loUnObjeto As Object)

' obtenemos información sobre el tipo del objeto

Dim loTipoObj As Type

loTipoObj = loUnObjeto.GetType()

' comprobamos qué tipo de objeto es,

' y en función de eso, ejecutamos el

' método adecuado

Select Case loTipoObj.Name

Case "Empleado", "Administrativo"

CType(loUnObjeto, Empleado).VerDatos()

Case "Factura"

CType(loUnObjeto, Factura).Emitir()

End Select

End Sub

End Module

Public Class Administrativo

Inherits Empleado

Public pdtFHAlta As Date

Public Overrides Sub VerDatos()

Console.WriteLine("DATOS DEL ADMINISTRATIVO")

Console.WriteLine("==================")

Console.WriteLine("Código: {0}", Me.piID)

Console.WriteLine("Nombre: {0}", Me.psNombre)

End Sub

Public Function MesAlta()

Return Format(Me.pdtFHAlta, "MMMM")

End Function

End Class

Código fuente 283

Pero ¿cómo podríamos ejecutar el método particular MesAlta( ) de Administrativo, que no se encuentra en Empleado?, pues creando en la estructura Select...Case, un caso particular que compruebe cuándo estamos tratando con un objeto Administrativo. Veámoslo en el Código fuente 284.

Public Sub ManipularVarios(ByVal loUnObjeto As Object)

' obtenemos información sobre el tipo del objeto

Dim loTipoObj As Type

loTipoObj = loUnObjeto.GetType()

' comprobamos qué tipo de objeto es,

' y en función de eso, ejecutamos el

' método adecuado

Select Case loTipoObj.Name

Case "Empleado"

CType(loUnObjeto, Empleado).VerDatos()

Case "Administrativo" ' <-- añadimos este caso a la estructura

CType(loUnObjeto, Administrativo).VerDatos()

Console.WriteLine("El administrativo comenzó en {0}", _

CType(loUnObjeto, Administrativo).MesAlta())

Case "Factura"

CType(loUnObjeto, Factura).Emitir()

End Select

End Sub

Código fuente 284