[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