02-10-12, 01:13 AM
كاتب الموضوع : samerselo
- أنشئ مشروعا جديدا من النوع Windows Forms Application كي نقوم بالعمل عليه
- من قائمة File ومن القائمة الفرعية ADD أضف مشروعا جديدا للمشروع الحالي من النوع Class Library وقم بتسميته TestExtendingLib
في ملف الكود الخاص بالمكتبة أضف في بدايته المراجع التالية الضرورية لعمل مثالنا هنا بعد التأكد من أنك قد أضفت المراجع المناسبة لها من صفحة References من خصائص My Project
كود :
Imports System.Runtime.CompilerServices
Imports System.Math
Imports System.Drawing
Imports System.Windows.Forms
كود :
Public Class Class1
End Class
كود :
Public Module TestExtending
End Module
- سأبدا بإضافة الوظيفة Alert لصندوق النصوص التي ستحول لون الخلفية له إلى الأحمر والكتابة إلى الأصفر عند استدعائها - داخل تعريف الـ Module السابق أدخل الكود التالي
كود :
<Extension()> _
Sub Alert(ByVal TxtBx As TextBox)
TxtBx.Font = New Font(TxtBx.Font, FontStyle.Bold)
TxtBx.ForeColor = Color.Yellow
TxtBx.BackColor = Color.Red
End Sub
كود :
<Extension()> _
Function Multiply(ByVal InString As String, _
ByVal Multply As Double) As Double
Return CDbl(InString) * Multply
End Function
- من أجل التجربة انقر بزر الفأرة اليميني على تطبيق ويندوز الذي أنشأناه في البداية ثم اضغط Add Reference وأضف مرجعا للمكتبة التي أنشأناه للتو ثم أضف الاستيراد التالي في بداية كود النموذج
كود :
Imports TestExtendingLib.TestExtending
كود :
Me.TextBox1.Text = "123.456"
Me.TextBox1.Alert()
Dim s As String = Me.TextBox1.Text
MsgBox(s.Multiply(13))