Elementos compartidos e interfaces - II

Conociendo ya el tipo de objeto con el que tratamos, utilizaremos la función CType( ), que realiza un moldeado de la variable que contiene el objeto hacia un tipo determinado, y nos permite acceder a los elementos del objeto. 

El lector puede argumentar que no sería necesario el uso de CType(), y en efecto es así; podríamos haber utilizado directamente la variable, situando a continuación el método a ejecutar. Esta técnica, no obstante, tiene el inconveniente de que utiliza enlace tardío para acceder al objeto. 

CType( ) sin embargo, tiene la ventaja de que opera bajo enlace temprano, con lo cuál, el rendimiento en ejecución es mayor. Veamos el código cliente que accedería a estas clases en el Código fuente 282.

Module Module1

Public Sub Main()

Dim loEmple As New Empleado()

loEmple.piID = 58

loEmple.psNombre = "Elena Peral"

ManipularVarios(loEmple)

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"

CType(loUnObjeto, Empleado).VerDatos()

Case "Factura"

CType(loUnObjeto, Factura).Emitir()

End Select

End Sub

End Module

Código fuente 282