كيفية القيام بما يلي: إنشاء أسلوب جزئي (Visual Basic)
الـأساليب الجزئية تقوم بإعطاء المطورين طريقة لإدراج منطق مخصص في تعليمات برمجية منشأة من قبل المصمم, غالباً من أجل التحقق من صحة البيانات. هناك جزئين لإنشاء أسلوب جزئي: تعريف توقيع الأسلوب كتابة التطبيق. بشكل عام، يتم كتابة التعريف بواسطة مصمم منشئ التعليمات البرمجية, و التطبيق يتم كتابته بواسطة المطور الذي يستخدم التعليمات البرمجية المنشأة. لمزيد من المعلومات، راجع أساليب جزئية.
لتعريف توقيع الأسلوب
في الفئة الجزئية, ابدأ التوقيع مع الكلمة الأساسية Partial.
استخدم Private كمعدّل الوصول.
قم بـإضافة الكلمة الأساسية Sub. الـأسلوب يجب أن يكون إجراء فرعي.
قم بكتابة اسم الأسلوب.
قم بـتوفر قائمة المعلمات للأسلوب.
قم بانهاء الأسلوب مع End Sub.
لتطبيق الأسلوب
استخدم Private كمعدّل الوصول.
قم بـإضافة أي معدّلات أخرى التي تريد تضمينها.
قم بـكتابة اسم الأسلوب, والذي يجب أن يطابق الاسم في تعريف التوقيع.
قم بـإضافة قائمة المعلمة. يجب أن تتطابق أسماء المعلمات مع الأسماء في التوقيع. يمكن أن يتم حذف أنواع بيانات المعلمة.
تعريف النص الأساسي للأسلوب.
قم باغلاق مع End Sub الكشف.
مثال
تعريف والتنفيذ للأسلوب الجزئي يتم بشكل عام في ملفات منفصلة, التي يتم إنشاؤها باستخدام فئة جزئية. بشكل عام، الغرض من الأسلوب الجزئي هو توفير إعلام على أن شيء في المشروع قد تم تغييره.
في المثال التالي, الأسلوب الجزئي باسم OnNameChanged يتم تطويره و استدعاؤه. يتم تعريف توقيع الأسلوب في فئة جزئية Customer في ملف Customer.Designer.vb. التطبيق في الفئة الجزئية Customer في ملف Customer.vb و مثيل من Customer يتم إنشاؤه في مشروع الذي يستخدم الفئة.
تكون النتيجة مربع رسالة التي تحتوي على الرسالة التالية:
Name was changed to: Blue Yonder Airlines.
' File Customer.Designer.vb provides a partial class definition for
' Customer, which includes the signature for partial method
' OnNameChanged.
Partial Class Customer
Private _Name As String
Property Name() As String
Get
Return _Name
End Get
Set(ByVal value As String)
_Name = value
OnNameChanged()
End Set
End Property
' Definition of the partial method signature.
Partial Private Sub OnNameChanged()
End Sub
End Class
' In a separate file, a developer who wants to use the partial class
' and partial method fills in an implementation for OnNameChanged.
Partial Class Customer
' Implementation of the partial method.
Private Sub OnNameChanged()
MsgBox("Name was changed to " & Me.Name)
End Sub
End Class
Module Module1
Sub Main()
' Creation of cust will invoke the partial method.
Dim cust As New Customer With {.Name = "Blue Yonder Airlines"}
End Sub
End Module