herencia

Herencia
La parte principal de la Programación Orientada a Objetos (POO) es la
herencia de clases, es decir, la característica de definir una clase que sirva de
base para otras clases derivadas, las clases derivadas tendrán los miembros
de la clase base: propiedades, métodos, eventos, etc.
Otra forma de herencia es a través del polimorfismo, que es una característica
de la POO que consisteen definir una clase abstracta con propiedades y
métodos que serán implementados de diferentes formas por otras clases, es
decir, con un mismo nombre de propiedad o método se obtiene funcionalidad
distinta de acuerdo al tipo de objeto.
En .NET solo existe herencia simple y no herencia múltiple, es decir, una clase
derivada solo puede heredar de una clase base. Haciendo una analogía, si a laclase base le llamamos “padre” y a la clase derivada le llamamos “hijo”
diríamos que la herencia simple consiste en que un “hijo” solo puede tener un
solo “padre”, lo que parece algo natural y coherente.
Si deseamos simular herencia múltiple en Visual Basic .NET recurrimos a las
interfaces, que permiten definir propiedades y métodos en una clase sin código,
luego desde una clase se puedeimplementar varias interfaces, lográndose una
herencia múltiple pero a nivel de definición y no de código, ya que la
implementación será distinta en cada clase.
En general, la herencia de clases permite reusar código y facilitar el
mantenimiento de las aplicaciones, ya que cuando se desea modificar
características de un objeto solo hay que cambiar la clase adecuada.

Ejemplo:
Attribute VB_Name= "Carnivoro"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
'//------------------------------------------------------'// Clase Carnívoro
'// Simulando Herencia. Ejemplo Harvey T.
'//------------------------------------------------------DefInt A-Z
Option Explicit
Public Tipo
As String
Public Mamífero As Boolean
Public Habitad As String
Public Sub Morder(Optional Nombre AsVariant)
Dim s As String
s = "El carnívoro de tipo «" & Tipo & "» acaba de morder."

Conalep Tlaquepaque

Página 1

If Not IsMissing(Nombre) Then
s = s + " Es una mascota y se llama «" & Nombre & "»"
End If
MsgBox s
End Sub
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "Gato"
Attribute VB_Creatable = False
Attribute VB_Exposed = False'//------------------------------------------------------'// Clase Gato
'// Simulando Herencia. Ejemplo Harvey T.
'//------------------------------------------------------Option Explicit
'//Simula una Superclase, ó que esta clase es una Subclase de
'//que hereda de Carnivoro
Private m_Carnivoro As New Carnivoro
'//Propiedades exclusivas
Public Nombre
As
Public Raza
As
Public RatonesCazados As

de estaclase
String
String
Integer

'//-----------------------------------------------------'// Muestra como heredar un método de la superclase
'//-----------------------------------------------------Sub Morder()
m_Carnivoro.Morder Nombre
End Sub
'//-----------------------------------------------------'// Es conveniente fijar las propiedades de la superclase'//-----------------------------------------------------Private Sub Class_Initialize()
With m_Carnivoro
.Tipo = "Felino"
.Habitad = "Hogar"
.Mamífero = True
End With
End Sub
'//-----------------------------------------------------'// Muestra como heredar una propiedad de la superclase
'// Así podremos usar miGato.Mamífero para saber
'// si es mamífero.
'//-----------------------------------------------------Public PropertyGet Mamífero() As Boolean
Mamífero = m_Carnivoro.Mamífero
End Property

Reutilización de código
Conalep Tlaquepaque

Página 2

Ahora, como antes, más que antes, como siempre, la reutilización de código se
presenta como un valor fundamental en el desarrollo de sistemas. Uno de sus
aspectos es la interoperabilidad de los códigos. Por decirlo de alguna manera,
la compatibilidad de una...