كيفية القيام بما يلي: استدعاء أسلوب تفويض

هذا المثال يوضح كيفية إقران أسلوب مع مفوض ومن ثم استدعاء هذا الأسلوب خلال المفوّض.

إنشاء تفويض و مطابقة الإجراءات

1. إنشاء تفويض باسم MySubDelegate.

       Delegate Sub MySubDelegate(ByVal x As Integer)
   

2. عرف فئة التي تحتوي على أسلوب مع نفس التوقيع كالتفويض.

       Class class1
           Sub Sub1(ByVal x As Integer)
               MsgBox("The value of x is: " & CStr(x))
           End Sub
       End Class
   

3. قم بتعرف أسلوب الذي يقوم بإنشاء مثيل للمفوض و ثم استدعاء الأسلوب المقترن مع المفوض عن طريق استدعاء المضمنة Invoke الأسلوب.

       Protected Sub DelegateTest()
           Dim c1 As New class1
           ' Create an instance of the delegate.
           Dim msd As MySubDelegate = AddressOf c1.Sub1
           ' Call the method.
           msd.Invoke(10)
       End Sub
   

راجع أيضًا:

المرجع

عبارة التفويض

المبادئ

تطبيقات ذات مؤشرات الترابط المتعددة

موارد أخرى

المفوضين (Visual Basic)

الـأحداث (Visual Basic)