+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : تجزئة الكلاس أو الستركتشر على عدة ملفات (/showthread.php?tid=4944)
تجزئة الكلاس أو الستركتشر على عدة ملفات - RaggiTech - 03-10-12
كاتب الموضوع : 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كود :
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 Public Class Personتجزئة الكلاس أو الستركتشر على عدة ملفات - RaggiTech - 03-10-12
نلاحظ من مكتبة 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