لإضافة فئة جديدة إلى مجال الأسماء My كل ما عليك عمله هو إضافة كتلة Namespace تحمل اسم My فإذا أردنا إضافة فئة جديدة إلى مجال الأسماء My مثلا TestClass يحتوي على دالة JustForTest سنقوم ببساطة بكتابة الكود التالي
Namespace My
Public Class TestClass
Public Shared Function JustForTest(ByVal SomeText As String) As String
Return SomeText & ", " & Now.ToString("dddd")
End Function
End Class
End Namespaceو أصبح الآن بإمكاننا استخدامه كبقية الفئات المودودة سابقا في مجال الأسماء My
TextBox2.Text = My.TestClass.JustForTest(TextBox1.Text)
ولكن تجدر الملاحظة هنا أن الدالات التي ستستخدمها هنا يجب أن تكون Shared أو أن تقوم بتضمينها في Module بدلا من Class وذلك لأن جميع الدالات والخصائص الموجود في Module تكون Shared دائما.
كما يمكنك اعتماد على الميزة الجديدة وهي الفئات الجزئية Partial Class أيضا إضافة عناصر أخرى لبعض فئات مجال الأسماء My مثل الفئة My.Computer أو الفئة My.Application ولفعل ذلك نقوم بإنشاء فئة جزئية بالاسم الصحيح وإضافة العناصر الجديدة التي نريد حيث يجب عليك تعريف هذه الفئة باستخدام Friend حتى تتطابق مع الفئة الأصلية الموجودة سابقا
Namespace My ' Extend My.Application Class Partial Friend Class MyApplication Public Function AppTest() As String Return "For Test Purposes" End Function End Class End Namespace
واستخدامه أيضا كبقية الفئات الموجودة سابقا
TextBox3.Text = My.Application.AppTest
وبهذا يصبح الكود الكامل لمثالنا هنا كالتالي
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
TextBox2.Text = My.TestClass.JustForTest(TextBox1.Text)
TextBox3.Text = My.Application.AppTest
End Sub
End Class
Namespace My
' Add New Class
Public Class TestClass
Public Shared Function JustForTest(ByVal SomeText As String) As String
Return SomeText & ", " & Now.ToString("dddd dd/MM/yyyy")
End Function
End Class
' Extend My.Application Class
Partial Friend Class MyApplication
Public Function AppTest() As String
Return "For Test Purposes"
End Function
End Class
End Namespaceويمكنك الآن توسيع مجال الأسماء My بحسب حاجتك وهذا ليس محدودا بتطبيق معين حيث يمكنك إنشاء مكتبة Class Library خاصة بك تضيف بعض الأشياء لمجال الأسماء My واستخدامها في تطبيقاتك وذلك بإضافة مرجع لهذه المكتبة من داخل التطبيق
