Procedura: creare e implementare interfacce

Articolo
09/12/2008

Aggiornamento: novembre 2007

Come illustrato nella sezione Cenni preliminari sulle interfacce, le interfacce definiscono le proprietà, i metodi e gli eventi di una classe senza fornire alcuna implementazione.

Per creare un'interfaccia

Definire le interfacce aggiungendo un codice che inizi con la parola chiave Interface seguita dal nome dell'interfaccia e termini con l'istruzione End Interface. Il codice riportato di seguito, ad esempio, consente di definire un'interfaccia denominata IAsset.
```
Interface IAsset
End Interface
```
Aggiungere le istruzioni che definiscono le proprietà, i metodi e gli eventi supportati dall'interfaccia. Il codice riportato di seguito, ad esempio, consente di definire una funzione, una proprietà e un evento.
```
Interface IAsset
    Event ComittedChange(ByVal Success As Boolean)
    Property Division() As String
    Function GetID() As Integer
End Interface
```

Per implementare un'interfaccia

Se l'interfaccia da implementare non fa parte del progetto, aggiungere un riferimento all'assembly contenente l'interfaccia.
Creare una nuova classe che implementa l'interfaccia e includere la parola chiave Implements nella riga che segue il nome della classe. Ad esempio, per implementare l'interfaccia IAsset è possibile denominare la classe di implementazione Computer, come nel codice che segue.
```
Class Computer
    Implements IAsset
End Class
```

Aggiungere le routine per l'implementazione delle proprietà, dei metodi e degli eventi della classe come nel codice riportato di seguito, che è basato sull'esempio utilizzato per il passaggio precedente:

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

Vedere anche

Condividi tramite

Procedura: creare e implementare interfacce

Per creare un'interfaccia

Per implementare un'interfaccia

Vedere anche

Attività

Concetti

Riferimenti

Altre risorse

Risorse aggiuntive