crear e implementar interfaces en Visual Basic

programming tutorials, programming manuals
crear e implementar interfaces en  Visual Basic>visual basic vb.net
Recuperación de información de archivos de VB.NET - Visual Basic RegistrateNewsletter
+ de 85.000 registrados
Recuperación de información de archivos de VB.NET - Visual Basic
AñadenosFavoritos

Recuperación de información de archivos de VB.NET - Visual Basic

Coleccion de articulos de visual basic y vb.net
Articulos de Visual Basic > Articulos de programacion de objetos en VB

Las interfaces describen las características de las propiedades, los métodos y los eventos, pero dejan los detalles de la implementación para las estructuras o clases.

Este tutorial explica cómo declarar e implementar una interfaz.

Para definir una interfaz

1. En el menú Archivo, haga clic en Nuevo para abrir un nuevo proyecto de aplicación para Windows y, a continuación, haga clic en Proyecto. Aparecerá el cuadro de diálogo Nuevo proyecto.
2. Seleccione Proyectos de Visual Basic en el panel Tipos de proyecto.
3. Seleccione Aplicación para Windows en la lista de plantillas de proyecto de Visual Basic.
4. Agregue un módulo nuevo al proyecto haciendo clic en Agregar módulo en el menú Proyecto.
5. Dé al módulo el nombre Module1.vb y haga clic en Abrir. Aparecerá el código del módulo nuevo.
6. Defina una interfaz con el nombre MyInterface dentro de Module1 escribiendo Interface MyInterface entre las instrucciones Module y End Module, y presione ENTRAR. El editor de código incluye una sangría delante de la palabra clave Interface y agrega la instrucción End Interface para formar un bloque de código.
7. Defina una propiedad, un método y un evento para la interfaz colocando el siguiente código entre las instrucciones Interface y End Interface:

Property Prop1() As Integer
Sub Method1(ByVal X As Integer)
Event Event1()

Puede notar que la sintaxis utilizada para declarar los miembros de la interfaz es diferente de la sintaxis utilizada para declarar los miembros de la clase. Esta diferencia refleja el hecho de que las interfaces no pueden contener código de implementación.

Para implementar la interfaz

1. Agregue una clase denominada ImplementationClass agregando la siguiente instrucción a Module1 después de la instrucción End Interface, pero antes de la instrucción End Module y, a continuación, presione ENTRAR:

Class ImplementationClass

Si está trabajando dentro del entorno de desarrollo integrado, el editor de código suministrará la instrucción End Class correspondiente al pulsar ENTRAR.

2. Agregue la siguiente instrucción Implements a ImplementationClass, que da nombre a la interfaz que implementa la clase:

Implements MyInterface

Cuando se muestra separada de otros elementos en la parte superior de la clase o estructura, la instrucción Implements indica que la clase o estructura implementa una interfaz. Si está trabajando dentro del entorno de desarrollo integrado, el Editor de código puede subrayar la palabra MyInterface y avisarle de que esta clase debe implementar todos los miembros de la interfaz MyInterface. Los dos pasos siguientes de este tutorial implementan estos miembros y se ocupan de esta advertencia.

3. Agregue el código siguiente a ImplementationClass para implementar Event1.

Event Event1() Implements MyInterface.Event1

Este código contiene una instrucción Event para implementar Event1 y una instrucción Implements que da nombre a la interfaz y al miembro de la interfaz que se van a implementar.
4. Agregue el siguiente código a ImplementationClass para implementar los demás miembros de la interfaz:

Private pval As Integer ' Holds the value of the property.
Property Prop1() As Integer Implements MyInterface.Prop1
Get
Return pval
End Get
Set(ByVal Value As Integer)
pval = Value
End Set
End Property

Sub Method1(ByVal X As Integer) Implements MyInterface.Method1
MsgBox("The X parameter for Method1 is " & X)
RaiseEvent Event1()
' Add more code to implement this method.
End Sub

Para cada miembro que se va a implementar en este código, una instrucción Implements indica el nombre de la interfaz y el miembro que se van a implementar.

Para probar la implementación de la interfaz

1. Haga clic con el botón secundario del mouse (ratón) en el formulario de inicio del proyecto en el Explorador de soluciones y haga clic en Ver código. El editor mostrará la clase del formulario de inicio. De manera predeterminada, el formulario de inicio se denomina Form1.
2. Agregue el siguiente controlador de eventos a la clase Form1 para controlar los eventos que inicien las instancias de ImplementationClass:

Sub EventHandler()
MsgBox("The event handler caught the event.")
End Sub

3. Agregue una subrutina denominada Test a la clase Form1 para probar la clase de implementación:

Sub Test()
' Create an instance of the class.
Dim T As New ImplementationClass()
' Create a variable of type MyInterface.
Dim I As MyInterface
' Assign the class instance to the interface.
' Calls to the interface members are
' executed through the class instance.
I = T
' Associate an event handler with an event raised by the object.
AddHandler I.Event1, AddressOf EventHandler
I.Prop1 = 9 'Set a property.
MsgBox("Prop1 was set to " & I.Prop1) ' Read the property.
' Test the method and raise an event.
I.Method1(5)
End Sub

El procedimiento Test crea una instancia de la clase que implementa MyInterface, crea una variable del tipo de la interfaz, asocia un controlador de eventos con el evento que inicia la instancia, define una propiedad y ejecuta un método a través de la interfaz.


4. Agregue código para llamar al procedimiento Test desde el procedimiento Form1_Load del formulario de inicio:

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
Test() ' Test the class.
End Sub

5. Ejecute el procedimiento Test presionando F5. Aparecerá el mensaje "Prop1 se ha definido como 9". Tras hacer clic en Aceptar, aparecerá el mensaje "El parámetro X de Method1 es 5". Al hacer clic de nuevo en Aceptar, aparecerá el mensaje "El controlador de eventos ha interceptado el evento".

Recomendar
Recomendar esta pagina a un amigo


Recuperación de información de archivos de VB.NET - Visual Basic