تجزئة الكلاس أو الستركتشر على عدة ملفات

بناء على طلب أحد الإخوة في المنتدى تم وضع هذا الشرح

لن أقوم هنا بإعادة شرح الفئات أو الكلاس Class وكيفية إنشائها هنا كونها مشروحة سابقا في المنتدى ولكن سأركز على النقطة الجديدة التي تهم الموضوع هنا وسأفترض أنك تلم بالكلاسات حتى تستطيع المتابعة معي

أنشئ مشروعا جديدا و أضف إليه ملفين 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