تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف تصنع ادواتك الخاصه بنفسك بأسهل الطرق
#1
بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

[COLOR="#800000"]سأشرح اليوم ان شاء الله طريقة بسيطه جدآ في التعامل مع الادوات بحيث تتحكم في اداتك كما تحب ويستطيع أي شخص عمل ذلك بسهوله
الفكره ستكون عن طريق الكلاس بنفس فكرة بعض الثيمات التي يستخدمها البعض في تجميل الفورم وماهي الا كلاسات تم تصميمها واعطت هذه النتائج.
نبدأ على بركة الله الشرح
نفتح مشروع جديد WindowsApplication ثم نضيف الكلاس ونختار له اسم الاداة سيكون مثالي اداة TextBox
[/COLOR]
[ATTACH=CONFIG]3186[/ATTACH]

[ATTACH=CONFIG]3187[/ATTACH]

بعد ان اضفنا الكلاس نأتي الان للكود لتحديد نوع الاداة اكتب هذا الكود في داخل الكلاس

كود :
Inherits System.Windows.Forms.TextBox
[COLOR="#800000"]
الكود السابق هو يستخدم لوراثة الاداة وهي تكست بوكس ويمكنك تغيرها على حسب الاداة الي راح تستخدمها وطبعآ بعد كتابة الكود السابق نلاحظ تغيير شكل الكلاس
[/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]


الملفات المرفقة صورة/صور
                                   

.rar   3booody-TextBox.rar (الحجم : 160.19 ك ب / التحميلات : 136)
الرد }}}
تم الشكر بواسطة: ابراهيم كركوكي
#2
السلام عليكم

بارك الله فيك وجزاك خيرا
الرد }}}
تم الشكر بواسطة:
#3
تسلم بارك الله فيك
سبحان الله وبحمده سبحان الله العظيم 
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف تصنع كونترول شفاف RaggiTech 5 3,140 05-10-12, 01:06 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم