Como: Criar e implementar interfaces

Artigo
08/25/2010

Conforme explicado em Visão geral de interfaces, interfaces descrevem as propriedades, métodos e eventos de uma classe sem fornecer qualquer implementação.

Para criar uma interface

Defina sua interface adicionando um código a ela que comece com a palavra-chave Interface e o nome da interface, e termine com a instrução End Interface.Por exemplo, o código a seguir define uma interface chamada IAsset.
```
Interface IAsset
End Interface
```
Adicione instruções que definem a propriedades, métodos e eventos aos quais a interface oferece suporte.Por exemplo, o código a seguir define uma função, uma propriedade e um evento.
```
Interface IAsset
    Event ComittedChange(ByVal Success As Boolean)
    Property Division() As String
    Function GetID() As Integer
End Interface
```

Para implementar uma interface

Se a interface que você estiver implementando não for parte do seu projeto, adicione uma referência ao assembly que contém a interface.
Crie uma nova classe que implementa a sua interface, e inclua a palavra-chave Implements na linha seguinte ao nome da classe.Por exemplo, para implementar a interface IAsset, você poderia nomear a classe de implementação Computer, como no código a seguir.
```
Class Computer
    Implements IAsset
End Class
```

Adicione procedimentos para implementar as propriedades, métodos e eventos da classe como no código a seguir, que amplia o exemplo na etapa 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

Consulte também

Como: Criar e implementar interfaces

Para criar uma interface

Para implementar uma interface

Consulte também

Tarefas

Conceitos

Referência

Outros recursos

Recursos adicionais