تقييم الموضوع :
  • 5 أصوات - بمعدل 4.2
  • 1
  • 2
  • 3
  • 4
  • 5
[مقال] إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox
#1
بسم الله الرحمن الرحيم


الحمد لله رب العالمين، والصلاة والسلام على سيدنا محمد وعلى آله وصحبه أجمعين ... وبعد


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


لعل البعض منكم ما زال يتذكر هذا العنوان في النسخة المفقودة من هذا المنتدى ...
حينها ذكرت أن لأداة مربع النص ثلاث حالات، وهي:
الحالة الأولى/ إذا كانت خاصية تعدد الأسطر غير مفعلة (MultiLine = False)
الحالة الثانية / إذا كانت خاصية تعدد الأسطر مفعلة (MultiLine = True) ولكن خاصية التفاف النص غير مفعلة (WordWrap = False)
الحالة الثالثة / إذا كانت خاصية تعدد الأسطر مفعلة (MultiLine = True) وخاصية التفاف النص أيضا مفعلة (WordWrap = True)


وأرفقت مع الموضوع آنذاك مشروعا لتوضيح الحالات الثلاث...


كل هذا الكلام كان في النسخة المفقودة...


أما اليوم فأحببت أن أسوق لكم هذا الكلام بلباس جديد وفكرة جديدة، هدفي منه أن ألفت نظر القارئ الكريم إلى هذه الميزة البرمجية التي ما وَجَدتُّ خلال هذه الفترة من قام باستعمالها ...
فكرتي هذه هي استعمال خاصية Extension والتي تمكنك من خلالها إلحاق أي وظيفة أو حدث إلى نوع معين Type والذي هنا سيكون TextBox وإليك الشرح ...
في البداية يجب أن تقوم بإضافة Module جديد وسمه ماشئت ...


كود :
Module ModuleName
   '
   '
   '
End Module



بعد ذلك نقوم بوضع الكود التالي:


كود :
   <System.Runtime.CompilerServices.Extension()> _



أخيرا نضع الدالة أو الإجراء المطلوب بعد السطر السابق مباشرة:
ملاحظة: المسموح لك بعد السطر السابق ثلاث معرفات وهم (Module, Sub and Function) وقد استعملت في هذا المثال  Sub




كود :
   <System.Runtime.CompilerServices.Extension()> _
   Public Sub AutoSizer(ByVal [TextBox] As TextBox)
       '
       '
       '
   End Sub



الآن أصبح بإمكاننا استخدام الحدث AutoSizer من أي أداة مربع نص يتم إضافتها في الفورم لاحظ ذلك:


كود :
   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       TextBox1.AutoSizer()
   End Sub



وأخيرا أعذروني على الإطالة


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


المثال: في المرفقات


الملفات المرفقة
.zip   TextBoxAutoResizer.zip (الحجم : 42.71 ك ب / التحميلات : 501)
الرد }}}
#2
السلام عليكم و رحمة الله و بركاته




بارك الله فيك




السلام عليكم و رحمة الله و بركاته
الرد }}}
تم الشكر بواسطة: sooriaty03
#3
جزاك الله خيراً أخي الكريم ....


تحياتي
الرد }}}
تم الشكر بواسطة: issamhamwi , sooriaty03
#4
تحية احترام وتقدير لجميع مشرفي وأعضاء منتدى فيجوال بيسك لكل العرب جزاكم الله عنا كل خير
الرد }}}
تم الشكر بواسطة: sooriaty03
#5
شكرا على هذا المقال
الرد }}}
تم الشكر بواسطة: sooriaty03
#6
السلام عليكم ورحمة الله وبركاته 

بارك الله فيك Blush
الرد }}}
تم الشكر بواسطة: sooriaty03
#7
مقال جميييييييييييل


شكلراااااااا

Smile
الرد }}}
تم الشكر بواسطة: sooriaty03
#8
بسم الله والصلاة والسلام على رسول الله صلى الله عليه وسلم
جزاك الله خيرا اخى الكريم
هذه الطريقة ممتازة جدا في حالة عدم الرغبه في عمل فئة للوارثة من الكونترول لاجل اضافة وظيفة او اكثر
الرد }}}
تم الشكر بواسطة: sooriaty03
#9
الله يجزيك الخير .
الرد }}}
تم الشكر بواسطة:
#10
والله فكرة حلوة الله  يعطيك العافية
                                                        Heart سبحان الله والحمد لله ولا اله الا الله والله اكبر  Heart
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  رقابة قاعدة البيانات (التحديث التلقائي للبيانات ) SqlDependency قناص المدينة 0 516 05-10-23, 04:43 PM
آخر رد: قناص المدينة
  إضافة و نسخ الخطوط الخاصّة لمجلّد خطوط الوينداوز عبد العزيز البسكري 2 3,698 08-05-23, 12:03 AM
آخر رد: ابو محمد محمد محمد
  [مشروع] حل مشكلة الترقيم التلقائي بعد حذف سجل معين mohammed alnour 9 13,797 13-01-23, 04:16 PM
آخر رد: اسلام الكبابى
  تنفيذ كود vb.net من خلال مربع نص @@أبورائد@@ 20 14,605 06-10-21, 05:05 PM
آخر رد: الماجيك مسعد
  [مقال] إضافة تقارير Crystal report إلى فيجوال 2010 اسامه الهرماوي 3 5,302 05-10-21, 01:38 PM
آخر رد: mohameddahab867
  تحويل النص إلى كلام بالعربي دون الاتصال بالأنترنت ابو ليلى 15 10,126 20-09-20, 05:27 AM
آخر رد: kingofchess
Exclamation [VB.NET] التحقق من المدخلات النصية Textbox Validation - لبرنامج أكثر امانا Anas Mahmoud 1 4,534 23-08-20, 10:11 AM
آخر رد: Anas Mahmoud
  طريقة إضافة اختصار للصنف في شاشة المبيعات ملهمـ 5 5,905 14-07-20, 12:24 PM
آخر رد: ابراهيم ايبو
  الغاء الحفظ التلقائي للمشروع viv 1 2,163 04-08-19, 04:13 PM
آخر رد: عبد العزيز البسكري
  إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج عبد العزيز البسكري 11 7,244 23-01-19, 08:35 PM
آخر رد: عبد العزيز البسكري

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


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