جملة التنفيذ

تحديد واجهة واحدة أو أكثر أو واجهة الأعضاء يجب أن يتم تطبيقها في تعريف فئة أو بنية الذي يظهر عليه.

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

الأجزاء

• interfacename
  مطلوبة. الواجهة التي خصائصها ، إجراءاتها و الأحداث يتم تطبيقها من قبل الأعضاء المقابلة في الفئة أو البنية.

• interfacemember
  مطلوبة. العضو من واجهة التي يتم تطبيقها.

ملاحظات

واجهة عبارة عن مجموعة من النماذج الأولية يمثل الأعضاء (الخصائص، إجراءات, وأحداث) بتغليف الواجهة. تحتوي الواجهات على تعريفات أعضاء ، بينما تطبّق الفئات و البنيات هؤلاء الأعضاء.

العبارة Implements يجب أن يتبعها مباشرة Class أو جملة Structure .

عند تطبيق واجهة يجب تطبيق كل الأعضاء المعرّفين في الواجهة. يعتبر حذف أي عضو خطأ في بناء جملة. لتطبيق عضو معين ، حدد الكلمة الأساسية عبارة التطبيقات (Visual Basic) ( وهي تعتبر منفصلة عن جملة Implements ) عندما تقوم بتعريف العضو في فئة أو بنية. لمزيد من المعلومات، راجع الواجهات.

يمكن للفئات استخدام تطبيقات خاص (Visual Basic) من الخصائص و الإجراءات ، لكن هؤلاء الأعضاء ممكن الوصول إليها فقط من قبل تحويل النوع عن مثيل لفئة المطبّقة الى متغير معرف ليكون من نوع الواجهة.

مثال

المثال التالي يوضح كيفية استخدام عبارة Implements لتطبيق واجهة الأعضاء. ويعرف هذا واجهة باسم ICustomerInfo مع حدث و خاصية و إجراء. الفئة customerInfo يقوم بتطبيق الأعضاء المعرّفين في واجهة.

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

لاحظ أن الفئة customerInfo يستخدم Implements بيان تشغيل المصدر منفصلة تعليمات برمجية خط للإشارة إلى أن الفئة بتنفيذ كل الأعضاء للواجهة ICustomerInfo . كل عضو الفئة يستخدم الكلمة الأساسية Implements كجزء من تعريف عضو الخاص به لتشير إلى أنه يقوم بتطبيق واجهة الأعضاء هذا.

الإجراءات التالية توضّح كيف يمكن استخدام واجهة التطبيق في المثال السابق. لاختبار التطبيق أضف هذه الإجراءات إلى مشروع ثم استدعي الإجراء 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

راجع أيضًا:

المرجع

عبارة التطبيقات (Visual Basic)

كشف واجهة (Visual Basic)

موارد أخرى

الواجهات