بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
[COLOR="#800000"]سأشرح اليوم ان شاء الله طريقة بسيطه جدآ في التعامل مع الادوات بحيث تتحكم في اداتك كما تحب ويستطيع أي شخص عمل ذلك بسهوله
الفكره ستكون عن طريق الكلاس بنفس فكرة بعض الثيمات التي يستخدمها البعض في تجميل الفورم وماهي الا كلاسات تم تصميمها واعطت هذه النتائج.
نبدأ على بركة الله الشرح
نفتح مشروع جديد WindowsApplication ثم نضيف الكلاس ونختار له اسم الاداة سيكون مثالي اداة TextBox[/COLOR]
[ATTACH=CONFIG]3186[/ATTACH]
[ATTACH=CONFIG]3187[/ATTACH]
بعد ان اضفنا الكلاس نأتي الان للكود لتحديد نوع الاداة اكتب هذا الكود في داخل الكلاس
كود :
Inherits System.Windows.Forms.TextBox
الكود السابق هو يستخدم لوراثة الاداة وهي تكست بوكس ويمكنك تغيرها على حسب الاداة الي راح تستخدمها وطبعآ بعد كتابة الكود السابق نلاحظ تغيير شكل الكلاس[/COLOR]
[ATTACH=CONFIG]3188[/ATTACH]
والان انتهينا من الاداة وهي تكست بوكس والدليل اعمل بويلد Build للمشروع تلاحظ ظهرت الاداة تكست بوكس ولا تختلف خصائصها شيئآ عن الاداة الجاهزه
[ATTACH=CONFIG]3189[/ATTACH]
[COLOR="#800000"]
الان نأتي للخصائص كيف نضيف خصائص للأداة؟سأضع خاصيه بحيث يقبل التكست بوكس حروف او ارقام او كلاهما
اولآ قم بكتابة هذا الكود [/COLOR]
كود :
Enum Type
Number
Text
TextAndNumber
End Enum
[COLOR="#800000"]وهو لتحديد ثلاث خيارات (حروف,ارقام,حروف وارقام)
ثم اكتب هذا الكود[/COLOR]
كود :
Private _Value As Integer
Public Property TextType() As Type
Get
Return _Value
End Get
Set(ByVal value As Type)
_Value = value
End Set
End Property
ليصبح الكود بالكامل بهذا الشكل
[ATTACH=CONFIG]3190[/ATTACH]
الان تم اضافة الخاصيه الجديده لاحظها بخصائص الاداة
[ATTACH=CONFIG]3191[/ATTACH]
اختار كما بالصوره
[ATTACH=CONFIG]3192[/ATTACH]
[ATTACH=CONFIG]3193[/ATTACH]
في الصور السابقه اخترنا احداث للأداة وهو حدث KeyPress لنضع شروط الخاصيه الجديده اكتب الكود التالي في الحدث
كود :
If TextType = Type.Number Then
If IsNumeric(e.KeyChar) = False Then
e.Handled = True
End If
End If
If TextType = Type.Text Then
If IsNumeric(e.KeyChar) = True Then
e.Handled = True
End If
End If
[COLOR="#800000"]وهذه صورة للكود بعد الانتهاء
[/COLOR]
[ATTACH=CONFIG]3194[/ATTACH]
[COLOR="#800000"]الان قم بتجربة الأداة وغير الخاصيه مره حسب حروف فقط ومره حسب ارقام فقط ومره كلاهما , عرفنا كيف يتم عمل الخصائص لها اعمل خصائص كما تحب للأداة نجي على الدوال
سأضع دالة لقرائة النص بالصوت تابع معاي[/COLOR]
كود :
Public Sub ReadText()
If Me.Text <> "" Then
Dim SAPI
SAPI = CreateObject("SAPI.spvoice")
SAPI.Speak(Me.Text)
End If
End Sub
ولتجربة الكود ضعه في زر بوتون مثلآ
كود :
TextBox1.ReadText()
[COLOR="#800000"]كما قلت الطريقه سهله وممتعه وتستطيع التحكم بأداتك كما تحب وتضع لها الخصائص والميزات والالوان وعند العمل على مشروع ما عليك سوى اضافة الكلاس الذي صممته
اسأل الله الافادة للجميع وفقكم الله لما يحب ويرضاه
والسلام عليكم ورحمة الله وبركاته
هذه مثال بلغة vb.net2008[/COLOR]