منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[مقال] إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : [مقال] إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox (/showthread.php?tid=205)

الصفحات: 1 2

إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox - sooriaty03 - 21-09-13

بسم الله الرحمن الرحيم


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


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


لعل البعض منكم ما زال يتذكر هذا العنوان في النسخة المفقودة من هذا المنتدى ...
حينها ذكرت أن لأداة مربع النص ثلاث حالات، وهي:
الحالة الأولى/ إذا كانت خاصية تعدد الأسطر غير مفعلة (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



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


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


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

RE: إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox - @@أبورائد@@ - 21-09-13

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




بارك الله فيك




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

RE: إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox - hoob computer - 22-09-13

جزاك الله خيراً أخي الكريم ....


تحياتي

RE: إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox - issamhamwi - 22-09-13

تحية احترام وتقدير لجميع مشرفي وأعضاء منتدى فيجوال بيسك لكل العرب جزاكم الله عنا كل خير

RE: إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox - دمعة المقهور - 26-09-13

شكرا على هذا المقال

RE: إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox - مبرمج أوتار - 28-09-13

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

بارك الله فيك Blush

RE: إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox - رحوووم - 27-12-13

مقال جميييييييييييل


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

Smile


RE: إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox - adosql - 02-01-14

بسم الله والصلاة والسلام على رسول الله صلى الله عليه وسلم
جزاك الله خيرا اخى الكريم
هذه الطريقة ممتازة جدا في حالة عدم الرغبه في عمل فئة للوارثة من الكونترول لاجل اضافة وظيفة او اكثر

RE: إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox - aladein - 26-01-14

الله يجزيك الخير .

RE: إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox - العواد الصغير - 11-02-16

والله فكرة حلوة الله  يعطيك العافية