تقييم الموضوع :
  • 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 ك ب / التحميلات : 345)
الرد }}}}
#2
السلام عليكم و رحمة الله و بركاته




بارك الله فيك




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


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

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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] حل مشكلة الترقيم التلقائي بعد حذف سجل معين mohammed alnour 7 349 13-11-17, 06:26 PM
آخر رد: sendbad100
  الترقيم التلقائي في الجداول مشاكل و حلول ابو ليلى 6 433 09-04-17, 01:35 AM
آخر رد: ابو ليلى
  [VB.NET] ( يبدو انني مزعج ) ممن عندهم خبره في vb.net هل يمكنك تحويل النص التالي إلى كود برمجي thevirus 2 498 21-11-16, 06:35 AM
آخر رد: أبو عمر
  الترقيم التلقائي في برامج الداتا بيز silverlight 1 532 07-06-16, 12:05 AM
آخر رد: silverlight
  تنفيذ كود vb.net من خلال مربع نص @@أبورائد@@ 18 4,642 27-10-14, 01:07 AM
آخر رد: hamaonline
  الإصدار الاول من إضافة الرسائل ( Msge ) والصور مجانآ ali.alfoly 12 2,097 25-05-13, 01:10 PM
آخر رد: shaker.soft
  معالجة العمليات الحسابية من خلال مربع نص وإظهار النتيجة @@أبورائد@@ 9 2,091 25-05-13, 01:07 PM
آخر رد: shaker.soft
  تعلم إضافة ألعاب الفلاش و مقاطع الفيديو الفلاشية إلى برنامجك Aly El-Haddad 1 1,001 13-04-13, 06:46 PM
آخر رد: Sajad
  معلومة ::: FileSystemWatcher أداة هامة جداً RaggiTech 2 749 06-10-12, 10:04 PM
آخر رد: RaggiTech
  معلومة ::: Search In TextBox RaggiTech 1 566 06-10-12, 08:56 PM
آخر رد: RaggiTech

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


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