Implements Deyimi

  • Makale

Göründüğü sınıf veya yapı tanımında uygulanması gereken bir veya daha fazla arabirimi veya arabirim üyesini belirtir.

Sözdizimi

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

Parça

interfacename
Gerekli. Özellikleri, yordamları ve olayları sınıf veya yapıdaki ilgili üyeler tarafından uygulanacak bir arabirim.

interfacemember
Gerekli. Uygulanan bir arabirimin üyesi.

Açıklamalar

Arabirim, arabirimin kapsülledüğü üyeleri (özellikler, yordamlar ve olaylar) temsil eden bir prototip koleksiyonudur. Arabirimler yalnızca üyeler için bildirimleri içerir; sınıflar ve yapılar bu üyeleri uygular. Daha fazla bilgi için bkz . Arabirimler.

Deyiminin Implements hemen or Structure deyimini izlemesi Class gerekir.

Bir arabirim uyguladığınızda, arabirimde bildirilen tüm üyeleri uygulamanız gerekir. Herhangi bir üyenin atlanması söz dizimi hatası olarak kabul edilir. Tek bir üyeyi uygulamak için, sınıfındaki veya yapısındaki üyeyi Implements bildirirken Implements anahtar sözcüğünü (deyiminden ayrıdır) belirtirsiniz. Daha fazla bilgi için bkz . Arabirimler.

Sınıflar özelliklerin ve yordamların Özel uygulamalarını kullanabilir, ancak bu üyelere yalnızca uygulama sınıfının bir örneği arabirim türünde olduğu bildirilen bir değişkene atanarak erişilebilir.

Örnek 1

Aşağıdaki örnekte, bir arabirimin üyelerini Implements uygulamak için deyiminin nasıl kullanılacağı gösterilmektedir. Adlı ICustomerInfo bir arabirimi bir olay, bir özellik ve bir yordam ile tanımlar. sınıfı customerInfo , arabirimde tanımlanan tüm üyeleri uygular.

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

sınıfının customerInfo arabiriminin tüm üyelerini uyguladığını Implements belirtmek için ayrı bir kaynak kod satırında deyimini ICustomerInfo kullandığını unutmayın. Ardından sınıfındaki her üye, bu arabirim üyesini Implements uyguladığını belirtmek için üye bildiriminin bir parçası olarak anahtar sözcüğünü kullanır.

Örnek 2

Aşağıdaki iki yordamda, önceki örnekte uygulanan arabirimi nasıl kullanabileceğiniz gösterilmektedir. Uygulamayı test etmek için bu yordamları projenize ekleyin ve yordamı çağırın 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

Ayrıca bkz.