Cómo: Crear e implementar interfaces

Artículo
10/07/2008

Actualización: noviembre 2007

Como se explica en Información general sobre interfaces, las interfaces describen las propiedades, métodos y eventos de una clase sin proporcionar ninguna implementación.

Para crear una interfaz

Defina la interfaz agregándole código, de tal forma que empiece con la palabra clave Interface y el nombre de la interfaz, y que acabe con la instrucción End Interface. Por ejemplo, el siguiente código define una interfaz denominada IAsset.
```
Interface IAsset
End Interface
```
Agregue instrucciones que definan las propiedades, métodos y eventos que sean compatibles con la interfaz. Por ejemplo, el siguiente código define una función, una propiedad y un evento.
```
Interface IAsset
    Event ComittedChange(ByVal Success As Boolean)
    Property Division() As String
    Function GetID() As Integer
End Interface
```

Para implementar una interfaz

Si la interfaz que está implementando no forma parte del proyecto, agregue una referencia al ensamblado que contiene la interfaz.
Cree una clase nueva que implemente la interfaz, e incluya la palabra clave Implements en la línea que sigue al nombre de clase. Por ejemplo, para implementar la interfaz IAsset, podría darle a la clase de implementación el nombre Computer, como en el código siguiente.
```
Class Computer
    Implements IAsset
End Class
```

Agregue procedimientos para implementar las propiedades, métodos y eventos de la clase como en el código siguiente, que se basa en el ejemplo del paso anterior:

Class Computer
    Implements IAsset

    Public Event ComittedChange(ByVal Success As Boolean) _
       Implements IAsset.ComittedChange

    Private divisionValue As String

    Public Property Division() As String _
        Implements IAsset.Division

        Get
            Return divisionValue
        End Get
        Set(ByVal value As String)
            divisionValue = value
            RaiseEvent ComittedChange(True)
        End Set
    End Property

    Private IDValue As Integer

    Public Function GetID() As Integer _
        Implements IAsset.GetID

        Return IDValue
    End Function

    Public Sub New(ByVal Division As String, ByVal ID As Integer)
        Me.divisionValue = Division
        Me.IDValue = ID
    End Sub
End Class

Vea también

Share via

Cómo: Crear e implementar interfaces

Para crear una interfaz

Para implementar una interfaz

Vea también

Tareas

Conceptos

Referencia

Otros recursos

Recursos adicionales