Instrukcja implementuje

Określa jeden lub więcej interfejsów, lub członków interfejsu, które muszą być wdrożone w klasie lub struktury definicji, w której pojawia się.

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

Części

• interfacename
  Wymagane.Interfejs, którego właściwości, procedur i zdarzenia są realizowane przez odpowiednich członków w klasie lub strukturze.

• interfacemember
  Wymagane.Członek interfejs, który jest realizowany.

Uwagi

Interfejs jest zbiorem prototypów reprezentujący członków (właściwości, procedur i zdarzenia) hermetyzuje interfejsu.Interfejsy zawierać tylko deklaracje członków; klasy i struktur wdrożenia tych członków.Aby uzyskać więcej informacji, zobacz Interfejsy (Visual Basic).

Implements Instrukcji należy niezwłocznie wykonać Class lub Structure instrukcji.

Gdy implementuje interfejs musi implementować wszystkich członków zadeklarowanych w interfejsie.Pominięcie któregokolwiek członka jest uważana za błąd składni.Aby zaimplementować poszczególnych elementów członkowskich, należy określić Klauzula implementuje (Visual Basic) słowa kluczowego (oddzielonym od Implements instrukcji) kiedy zadeklarować członka klasy lub struktury.Aby uzyskać więcej informacji, zobacz Interfejsy (Visual Basic).

Można użyć klasy Prywatne (Visual Basic) implementacje właściwości i procedur, ale elementy te są dostępne tylko przez Rzutowanie instancji klasy wykonawczych do zmiennej zgłoszone do typu interfejsu.

Przykład

Poniższy przykład pokazuje, jak używać Implements instrukcji w celu implementowania członków interfejsu.Definiuje on interfejsu o nazwie ICustomerInfo z zdarzenie, właściwości i procedur.Klasa customerInfo implementuje wszystkie elementy członkowskie zdefiniowane w interfejsie.

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

Należy zauważyć, że klasa customerInfo korzysta z Implements instrukcji na oddzielne źródło wiersza kodu, aby wskazać, że klasa implementuje wszystkich członków ICustomerInfo interfejsu.Następnie używa każdego członka w klasie Implements słowa kluczowego jako część jego deklaracji członka, aby wskazać implementuje tego członka interfejsu.

Dwie następujące procedury pokazują, jak można wykorzystywać interfejs, zaimplementowane w poprzednim przykładzie.Test wprowadzenia w życie, należy dodać do projektu i wywołanie procedury te testImplements procedury.

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

Zobacz też

Informacje

Klauzula implementuje (Visual Basic)

Interfejs instrukcji (Visual Basic)

Inne zasoby

Interfejsy (Visual Basic)