Partager via


Implements, instruction

Spécifie une ou plusieurs interfaces, ou un ou plusieurs membres d’interface, à implémenter dans la définition de classe ou de structure dans laquelle elle apparaît.

Syntaxe

Implements interfacename [, ...]  
' -or-  
Implements interfacename.interfacemember [, ...]  

Éléments

interfacename
Obligatoire. Interface dont les propriétés, les procédures et les événements doivent être implémentés par les membres correspondants dans la classe ou la structure.

interfacemember
Obligatoire. Membre d’une interface en cours d’implémentation.

Notes

Une interface est une collection de prototypes représentant les membres (propriétés, procédures et événements) que l’interface encapsule. Les interfaces contiennent uniquement les déclarations des membres ; les classes et les structures implémentent ces membres. Pour plus d'informations, consultez Interfaces.

L’instruction Implements doit suivre immédiatement l’instruction Class ou Structure.

Lorsque vous implémentez une interface, vous devez implémenter tous les membres déclarés dans l’interface. L’omission d’un membre est considérée comme une erreur de syntaxe. Pour implémenter un membre individuel, vous spécifiez le mot clé Implements (qui est distinct de l’instruction Implements) lorsque vous déclarez le membre dans la classe ou la structure. Pour plus d'informations, consultez Interfaces.

Les classes peuvent utiliser des implémentations Privées de propriétés et de procédures, mais ces membres sont accessibles uniquement en castant une instance de la classe d’implémentation dans une variable déclarée du type de l’interface.

Exemple 1

L’exemple suivant montre comment utiliser l’instruction Implements pour implémenter les membres d’une interface. Il définit une interface nommée ICustomerInfo avec un événement, une propriété et une procédure. La classe customerInfo implémente tous les membres définis dans l’interface.

Public Interface ICustomerInfo
    Event UpdateComplete()
    Property CustomerName() As String
    Sub UpdateCustomerStatus()
End Interface

Public Class customerInfo
    Implements ICustomerInfo
    ' Storage for the property value.
    Private customerNameValue As String
    Public Event UpdateComplete() Implements ICustomerInfo.UpdateComplete
    Public Property CustomerName() As String _
        Implements ICustomerInfo.CustomerName
        Get
            Return customerNameValue
        End Get
        Set(ByVal value As String)
            ' The value parameter is passed to the Set procedure
            ' when the contents of this property are modified.
            customerNameValue = value
        End Set
    End Property

    Public Sub UpdateCustomerStatus() _
        Implements ICustomerInfo.UpdateCustomerStatus
        ' Add code here to update the status of this account.
        ' Raise an event to indicate that this procedure is done.
        RaiseEvent UpdateComplete()
    End Sub
End Class

Notez que la classe customerInfo utilise l’instruction Implements sur une ligne de code source distincte pour indiquer que la classe implémente tous les membres de l’interface ICustomerInfo. Ensuite, chaque membre de la classe utilise le mot clé Implements dans le cadre de sa déclaration membre pour indiquer qu’il implémente ce membre d’interface.

Exemple 2

Les deux procédures suivantes montrent comment utiliser l’interface implémentée dans l’exemple précédent. Pour tester l’implémentation, ajoutez ces procédures à votre projet et appelez la procédure testImplements.

Public Sub TestImplements()
    ' This procedure tests the interface implementation by
    ' creating an instance of the class that implements ICustomerInfo.
    Dim cust As ICustomerInfo = New customerInfo()
    ' Associate an event handler with the event that is raised by
    ' the cust object.
    AddHandler cust.UpdateComplete, AddressOf HandleUpdateComplete
    ' Set the CustomerName Property
    cust.CustomerName = "Fred"
    ' Retrieve and display the CustomerName property.
    MsgBox("Customer name is: " & cust.CustomerName)
    ' Call the UpdateCustomerStatus procedure, which raises the
    ' UpdateComplete event.
    cust.UpdateCustomerStatus()
End Sub

Sub HandleUpdateComplete()
    ' This is the event handler for the UpdateComplete event.
    MsgBox("Update is complete.")
End Sub

Voir aussi