Implementuje prohlášení

Určuje jeden nebo více rozhraní, nebo členy rozhraní, které musí být zavedeny třídy nebo definice struktury, ve kterých se vyskytuje.

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

Části

• interfacename
  Povinné.Rozhraní, jehož vlastnosti, postupy a události se uskutečňují odpovídající členy třídy nebo struktury.

• interfacemember
  Povinné.Člen rozhraní, které uplatňuje.

Poznámky

Rozhraní je kolekce prototypů zastupujících členů (vlastnosti, postupy a události) zapouzdřuje rozhraní.Rozhraní obsahovat prohlášení pro členy; třídy a struktury implementovat tyto členy.Další informace naleznete v tématu Rozhraní (Visual Basic).

Implements Prohlášení musí následovat bezprostředně Class nebo Structure prohlášení.

Při implementaci rozhraní musí implementovat všechny členy deklarována v rozhraní.Vynechání kterýkoli člen považována za chybu syntaxe.Při implementaci jednotlivých členů, určete Klauzule implements (Visual Basic) klíčové slovo (odděleném od Implements prohlášení) při deklarování člen třídy nebo struktury.Další informace naleznete v tématu Rozhraní (Visual Basic).

Pomocí třídy Soukromé (Visual Basic) implementacích vlastnosti a postupů, ale tyto členy jsou přístupné pouze obsazení deklarována instance třídy prováděcí do proměnné typu rozhraní.

Příklad

Následující příklad ukazuje použití Implements prohlášení implementovat členy rozhraní.Definuje rozhraní s názvem ICustomerInfo událost, vlastnost a postup.Třída customerInfo implementuje všechny členy definované v rozhraní.

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

Všimněte si, že třída customerInfo používá Implements příkazem na řádku samostatné zdrojový kód označující, že třída implementuje všechny členy ICustomerInfo rozhraní.Každý člen třídy použije Implements klíčové slovo jako součást své prohlášení člena označující implementuje rozhraní člena.

Následující dva postupy ukazují, jak lze pomocí rozhraní implementované v předchozím příkladu.Otestujete provádění těchto postupů přidat k projektu a volání testImplements postup.

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

Viz také

Referenční dokumentace

Klauzule implements (Visual Basic)

Rozhraní prohlášení (Visual Basic)

Další zdroje

Rozhraní (Visual Basic)