Comment : créer et implémenter des interfaces

Article
09/12/2008

Mise à jour : novembre 2007

Conformément à ce qui est expliqué dans Vue d'ensemble des interfaces, les interfaces décrivent les propriétés, les méthodes et les événements d'une classe sans en assurer l'implémentation.

Pour créer une interface

Définissez votre interface en y ajoutant du code commençant par le mot clé Interface et le nom de l'interface et se terminant par l'instruction End Interface. Par exemple, le code suivant définit une interface appelée IAsset.
```
Interface IAsset
End Interface
```
Ajoutez des instructions définissant les propriétés, méthodes et événements pris en charge par votre interface. Par exemple, le code suivant définit une fonction, une propriété et un événement.
```
Interface IAsset
    Event ComittedChange(ByVal Success As Boolean)
    Property Division() As String
    Function GetID() As Integer
End Interface
```

Pour implémenter une interface

Si l'interface que vous implémentez ne fait pas partie de votre projet, ajoutez une référence à l'assembly qui contient l'interface.
Créez une nouvelle classe qui implémente votre interface et ajoutez le mot clé Implements dans la ligne à la suite du nom de la classe. Par exemple, pour implémenter l'interface IAsset, vous pouvez nommer la classe d'implémentation Computer, comme dans le code suivant.
```
Class Computer
    Implements IAsset
End Class
```

Ajoutez des procédures pour implémenter les propriétés, méthodes et événements de la classe conformément au code ci-dessous, qui complète l'exemple fourni à l'étape précédente :

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

Voir aussi

Partager via

Comment : créer et implémenter des interfaces

Pour créer une interface

Pour implémenter une interface

Voir aussi

Tâches

Concepts

Référence

Autres ressources

Ressources supplémentaires