05-10-12, 01:49 AM
كاتب الموضوع : samerselo
لإضافة فئة جديدة إلى مجال الأسماء 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
كود :
TextBox2.Text = My.TestClass.JustForTest(TextBox1.Text)
كما يمكنك اعتماد على الميزة الجديدة وهي الفئات الجزئية 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