Clases abstractas o no instanciables - I

Una clase abstracta es aquella que no permite la instanciación directa de objetos a partir de ella, siendo necesario una clase derivada para acceder a sus miembros. Una clase concreta es el tipo de clase que venimos utilizando hasta el momento, desde la cuál, podemos instanciar objetos. 

Aunque en una clase abstracta podemos escribir un método constructor, sólo será accesible desde el constructor de la subclase. 

Para definir una clase abstracta utilizaremos la palabra clave MustInherit en el momento de su declaración, como muestra el Código fuente 278.

Public MustInherit Class Empleado

Código fuente 278

Dentro de una clase abstracta podemos implementar propiedades y métodos, en la forma que hemos visto hasta el momento. Adicionalmente, podemos obligar a que determinados miembros sean sobrescritos por la clase heredada; son los denominados miembros abstractos, y se declaran usando la palabra clave MustOverride, como vemos en el Código fuente 279.

Module Module1

Public Sub Main()

Dim loAdmin As New Administrativo()

loAdmin.piID = 789

loAdmin.psNombre = "Pedro Pinares"

Console.WriteLine("Nombre en mayúsculas del administrativo: {0}", _

loAdmin.NombreMay)

loAdmin.pdtFHAlta = "8/10/01"

loAdmin.MesesActivo()

Console.Read()

End Sub

End Module

' clase abstracta,

' no podemos crear objetos Empleado

Public MustInherit Class Empleado

Public piID As Integer

Public psNombre As String

Public pdtFHAlta As Date

Public ReadOnly Property NombreMay() As String

Get

Return UCase(Me.psNombre)

End Get

End Property

' método abstracto;

' este método debe ser sobrescrito

' por la clase derivada

Public MustOverride Sub MesesActivo()

Public Sub VerDatos()

Console.WriteLine("Información sobre el empleado." & _

" ID:{0} - Nombre:{1} - Fecha de alta:{2}", _

Me.piID, Me.psNombre, Me.pdtFHAlta)

Console.WriteLine()

End Sub

End Class

' desde esta clase tendremos acceso

' a los miembros de la clase Empleado

Public Class Administrativo

Inherits Empleado

' en esta clase sobrescribimos este método

' declarado como abstracto en la clase abstracta

Public Overrides Sub MesesActivo()

Console.WriteLine("Entró en el mes de {0}", _

Format(Me.pdtFHAlta, "MMMM"))

Console.WriteLine("El número de meses que lleva es: {0}", _

DateDiff(DateInterval.Month, Me.pdtFHAlta, Now))

End Sub

Public Overrides Sub VerDatos()

'....

'....

End Sub

End Class

Código fuente 279