[RaggiTech]

كاتب الموضوع : samerselo

أنشئ مشروعا جديدا و أضف إليه ملفين Code File


في الملف الأول أدخل الكود التالي الذي هو عبارة عن كلاس اسمه Person

كود :

Public Class Person

Public Property FirstName() As String
Get
Return _FirstName
End Get
Set(ByVal value As String)
_FirstName = value.Trim
End Set
End Property

Public Property LastName() As String
Get
Return _LastName
End Get
Set(ByVal value As String)
_LastName = value.Trim
End Set
End Property

Public Sub New()
_FirstName = "John"
_LastName = "Doe"
End Sub

End Class

الآن في الملف الثاني أدخل الكود التالي الذي هو عبارة عن تتمة الكلاس person ذات نفسه

كود :

Partial Public Class Person

Private _FirstName As String
Private _LastName As String

Public Sub New(ByVal FirstName As String, ByVal LastName As String)
_FirstName = FirstName.Trim
_LastName = LastName.Trim
End Sub

Public ReadOnly Property FullName() As String
Get
Return _FirstName & " " & _LastName
End Get
End Property
End Class

لاحظ في الملف الثاني قبل تعريف الكلاس استخدام الكلمة Partial وهي التي تمكننا من تجزئة الكلاس Class أو الستركتشر Structure إلى عدة ملفات

كود :

Partial Public Class Person

[RaggiTech]

نلاحظ من مكتبة MSDN

اقتباس:
[TABLE="width: 100%"]
[TR]
[TD="class: alt2"]Visual Basic uses partial-class definitions to separate generated code from user-authored code in separate source files. For example, the Windows Form Designer defines partial classes for controls such as Form. You should not modify the generated code in these controls. [/TD]
[/TR]
[/TABLE]


يستخدم فيجول بايزيك تعريف الكلاس الجزئي لفصل الكود المولد تلقائيا من الكود المكتوب من قبل المستخدم على ملفات منفصلة. فعلى سبيل المثال مصمم النماذج يحدد فئات Class جزئية للتحكمات مثل النموذج From. وعليك ألا تعدل الكود المولد تلقائيا لهذه التحكمات

وهذا المثال المطروح في المكتبة

كود :

Partial Public Class sampleClass
Public Sub sub1()
End Sub
End Class
Partial Public Class sampleClass
Public Sub sub2()
End Sub
End Class

ويبقى استخدام الكلاس كما هو كما لو كان ضمن ملف واحد كما كنا نفعل سابقا