Gewusst wie: Erstellen und Implementieren von Schnittstellen

Artikel
09/02/2008

Aktualisiert: November 2007

Wie im Abschnitt Übersicht über Schnittstellen erläutert, enthalten Schnittstellen Beschreibungen der Eigenschaften, Methoden und Ereignisse einer Klasse, ohne eine Implementierung bereitzustellen.

So erstellen Sie eine Schnittstelle

Definieren Sie die Schnittstelle, indem Sie ihr Code hinzufügen, der mit dem Interface-Schlüsselwort und dem Namen der Schnittstelle beginnt und mit der Anweisung End Interface endet. Mit folgendem Code wird beispielsweise die Schnittstelle IAsset definiert.
```
Interface IAsset
End Interface
```
Fügen Sie Anweisungen hinzu, die die von der Schnittstelle unterstützten Eigenschaften, Methoden und Ereignisse definieren. Mit folgendem Code werden beispielsweise eine Funktion, eine Eigenschaft und ein Ereignis definiert.
```
Interface IAsset
    Event ComittedChange(ByVal Success As Boolean)
    Property Division() As String
    Function GetID() As Integer
End Interface
```

So implementieren Sie eine Schnittstelle

Wenn die zu implementierende Schnittstelle nicht Bestandteil des Projekts ist, müssen Sie einen Verweis auf die Assembly einfügen, welche die Schnittstelle enthält.
Erstellen Sie eine neue Klasse, die die Schnittstelle implementiert, und fügen Sie das Implements-Schlüsselwort in die Zeile nach dem Klassennamen ein. Wenn Sie z. B. die Schnittstelle IAsset implementieren möchten, können Sie die Implementierungsklasse Computer nennen (siehe folgendes Codebeispiel).
```
Class Computer
    Implements IAsset
End Class
```

Fügen Sie zum Implementieren von Eigenschaften, Methoden und Ereignissen der Klasse Prozeduren hinzu (siehe folgendes Codebeispiel, das eine Fortsetzung des oben stehenden Beispiels ist):

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

Siehe auch

Share via

Gewusst wie: Erstellen und Implementieren von Schnittstellen

So erstellen Sie eine Schnittstelle

So implementieren Sie eine Schnittstelle

Siehe auch

Aufgaben

Konzepte

Referenz

Weitere Ressourcen

Zusätzliche Ressourcen