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




بارك الله فيك




السلام عليكم و رحمة الله و بركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

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


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

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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ( يبدو انني مزعج ) ممن عندهم خبره في vb.net هل يمكنك تحويل النص التالي إلى كود برمجي thevirus 2 143 21-11-16, 06:35 AM
آخر رد: أبو عمر
  الترقيم التلقائي في برامج الداتا بيز silverlight 1 230 07-06-16, 12:05 AM
آخر رد: silverlight
  @@@ تنفيذ كود vb.net من خلال مربع نص @@@ @@أبورائد@@ 18 3,851 27-10-14, 01:07 AM
آخر رد: hamaonline
  الإصدار الاول من إضافة الرسائل ( Msge ) والصور مجانآ ali.alfoly 12 1,686 25-05-13, 01:10 PM
آخر رد: shaker.soft
  @@@ معالجة العمليات الحسابية من خلال مربع نص وإظهار النتيجة @@@ @@أبورائد@@ 9 1,595 25-05-13, 01:07 PM
آخر رد: shaker.soft
  تعلم إضافة ألعاب الفلاش و مقاطع الفيديو الفلاشية إلى برنامجك Aly El-Haddad 1 765 13-04-13, 06:46 PM
آخر رد: Sajad
  معلومة ::: FileSystemWatcher أداة هامة جداً RaggiTech 2 561 06-10-12, 10:04 PM
آخر رد: RaggiTech
  معلومة ::: Search In TextBox RaggiTech 1 423 06-10-12, 08:56 PM
آخر رد: RaggiTech
  كود- تكست بوكس شفاف Transparent TextBox RaggiTech 0 564 05-10-12, 01:44 PM
آخر رد: RaggiTech
  نبضة- مربع الاختيار RaggiTech 0 405 05-10-12, 04:12 AM
آخر رد: RaggiTech

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


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