Ocultamiento de miembros de una clase - I

Esta técnica consiste en crear dentro de una clase derivada, miembros con el mismo nombre (y firma, en el caso de métodos) que los existentes en la clase base, pero ocultando el acceso a los miembros de la clase base para los objetos instanciados de la subclase. Utilizaremos la palabra clave Shadows, en la declaración de aquellos miembros a esconder.

Cuando aplicamos el ocultamiento sobre una subclase que tiene métodos sobrecargados en la clase base, dichos métodos sobrecargados quedarán inaccesibles para la clase derivada. Como ejemplo, en el Código fuente 273, la clase Empleado implementa dos versiones sobrecargadas del método Sueldo( ), mientras que la clase hija Administrativo también tiene el método Sueldo( ), pero al declararse con Shadows, impide que los objetos de tipo Administrativo ejecuten los métodos Sueldo( ) de la clase Empleado.

Module Module1

Sub Main()

Dim loAdmin As New Administrativo()

Dim ldbImporte As Double

Dim lsFecha As String

loAdmin.Salario = 925.86

ldbImporte = loAdmin.Sueldo(80, "Viajes")

' los siguientes métodos están ocultos

' desde este objeto y se produce un error al llamarlos

loAdmin.Sueldo()

lsFecha = loAdmin.Sueldo(5)

End Sub

End Module

Public Class Empleado

Private mdbSalario As Double

Public Property Salario() As Double

Get

Return mdbSalario

End Get

Set(ByVal Value As Double)

mdbSalario = Value

End Set

End Property

' métodos sobrecargados

Public Overloads Sub Sueldo()

' aquí mostramos en consola el importe del sueldo formateado

Console.WriteLine("El sueldo es {0}", Format(Me.Salario, "#,#.##"))

Console.ReadLine()

End Sub

Public Overloads Function Sueldo(ByVal liDia As Integer) As String

' aquí mostramos la fecha del mes actual

' en la que se realizará la transferencia

' del sueldo al banco del empleado

Dim ldtFechaActual As Date

Dim lsFechaCobro As String

ldtFechaActual = Now()

lsFechaCobro = CStr(liDia) & "/" & _

CStr(Month(ldtFechaActual)) & "/" & _

CStr(Year(ldtFechaActual))

Return lsFechaCobro

End Function

End Class

Public Class Administrativo

Inherits Empleado

' este método ensombrece/oculta a los sobrecargados

' de la clase base Empleado

Public Shadows Function Sueldo(ByVal ldbImporteIncentivo As Double, _

ByVal lsTipoIncentivo As String) As Double

' aquí calculamos la cantidad de incentivo

' que se añadirá al sueldo del empleado,

' en función del tipo de incentivo

Dim ldbIncentivo As Double

' según el tipo de incentivo,

' se descuenta un importe

' de la cantidad del incentivo

Select Case lsTipoIncentivo

Case "Viajes"

ldbIncentivo = ldbImporteIncentivo - 30

Case "Extras"

ldbIncentivo = ldbImporteIncentivo - 15

End Select

Return ldbIncentivo

End Function

End Class

Código fuente 273