Implements Deyimi
Görüntülenen sınıf veya yapı tanımında uygulanması gereken bir veya daha fazla arabirimi veya arabirim üyesini belirtir.
Syntax
Implements interfacename [, ...]
' -or-
Implements interfacename.interfacemember [, ...]
Bölümler
interfacename
Gereklidir. Özellikleri, yordamları ve olayları sınıf veya yapıda ilgili Üyeler tarafından uygulanacak olan bir arabirim.
interfacemember
Gereklidir. Uygulanan bir arabirimin üyesi.
Açıklamalar
Arabirim, arabirimin sarmalarındaki üyeleri (özellikler, yordamlar ve olaylar) temsil eden prototipli türlerin bir 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.
ImplementsDeyimin hemen arkasından Class veya ifadesini izlemesi gerekir Structure .
Bir arabirim uyguladığınızda, arabiriminde belirtilen tüm üyeleri uygulamanız gerekir. Herhangi bir üyenin atlanması, söz dizimi hatası olarak kabul edilir. Tek bir üyeyi uygulamak için, Implements sınıf veya yapıda üyeyi bildirdiğinizde Implements anahtar sözcüğünü (deyimden ayrı olan) 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ğini arabirimin türü olarak belirtilen bir değişkene atama yoluyla erişilebilir.
Örnek 1
Aşağıdaki örnek, Implements bir arabirimin üyelerini uygulamak için ifadesinin nasıl kullanılacağını gösterir. ICustomerInfoBir olay, özellik ve bir yordam ile adlı bir arabirimi tanımlar. Sınıfı, customerInfo arabiriminde 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 Implements sınıfın tüm üyelerini uyguladığından emin olmak için deyimin ayrı bir kaynak kod satırında kullandığını unutmayın ICustomerInfo . Sonra, sınıftaki her üye, Implements Bu arabirim üyesini uyguladığını göstermek için anahtar sözcüğünü kendi üye bildiriminin bir parçası olarak kullanır.
Örnek 2
Aşağıdaki iki yordamda, önceki örnekte uygulanan arabirimi nasıl kullanabileceğiniz gösterilmektedir. Uygulamayı test etmek için projenize bu yordamları ekleyin ve testImplements yordamı çağırın.
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