Ayuda con herencia en Visual Basic

[bunburetto]

Hola hermanos bakunos, un saludo a todos.

Quisiera saber si alguien me puede ayudar con un ejemplo funcional de una herencia en Visual Basic.Net 2008, realmente he estado leyendo temas al respecto pero no encuentro un ejemplo funcional.

De tal manera que una clase herede a otra clase.

Solo se que se utiliza inherits nombredelaclase
pero se que va mas alla, desconozco el codigo.

Muchas gracias hermanos.
He estado buscando en libros pero no encuentro un ejemplo funcional.

 

[jirafirex]

Que tal. La herencia en Programacion Orientada a objetos te sirve más que nada para definir tus propiedades y métodos generales que van a ser implementados en las demás clases a las cuales se heredarán los atributos en especifico. Un ejemplo seria el siguiente (en Visual Basic .Net):

Esta es la clase abstracta animal. En esta clase se define un atributo "Nombre" y una función llamada "NombreAnimal()" que te regresa el nombre del animal

Public MustInherit Class Animal

Private strNombre As String



Public Property Nombre() As String
Get
Return strNombre
End Get
Set(ByVal value As String)
strNombre = value
End Set
End Property


Public Function NombreAnimal() As String
Return strNombre
End Function
End Class


La clase siguiente Perro hereda las propiedades y funcionesde la clase Animal. Para poder heredar las propiedades y funciones de la clase Animal a la clase Perro se le declara debajo del nombre de la clase la palabra Inherits seguida del nombre de la clase de la cual hereda, en este caso Animal:

Public Class Perro
Inherits Animal



Public Sub New()
End Sub


End Class

Al hacer la herencia en la clase Perro a Animal vas a poder acceder a las propiedades de la clase Animal como si fueran propias de la clase Perro. Para hacerlo te muesto el siguiente codigo de un botón de un formulario:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MiPerro As New Perro
MiPerro.Nombre = "Firulais"
MsgBox(MiPerro.NombreAnimal())
End Sub

Como veras al declarar una instancia, como en este caso "MiPerro", de la clase Perro accedes a la propiedad Nombre y a la función NombreAnimal() de la clase Animal.

Espero que te haya servido de utilidad. Cualquier cosa puedes escribirme a victor_b_leon@yahoo.com.mx sirve que nos ayudamos ya que aun te falta entender la POO a profundidad.

Saludos.