تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إيجاد جميع الكونترول الموجودة في الفورم Recursively Find All Controls in Form
#1
[rtl]السلام عليكم و رحمة الله وبركاته

مقدمة:

أحد اهم الاسئلة الشائعة في النت هو كيف أمسح جميع التكست الموجود في مجموعة من التكست بوكس كونترول الموجودة علي الفورم؟ [/rtl]

[rtl] [/rtl]
[rtl]بالتأكيد جميع الاجابات التي سوف تجدها علي النت هي إجابات صحيحية و مناسبة لكن يتبقي السؤال


ماذا لو كان هذا التكست بوكس ليس موجودا بشكل مباشر علي الفورم نفسه بل موجودا داخل كونترول أخر مثل  Panel  أو مثل GroupBox أو مثل TabControl ؟

الإجابة علي مثل هذا السؤال تنحصر في كلمة واحدة و هي Recursion

وهنا قد يتبارد الي ذهن البعض ما هو تعريف هذا الشئ الذي نطلق عليه Recursion ؟

تعريف   Recursion

هو أن تقوم الدالة Function او الروتين Sub او الطريقة Method  بإستدعاء نفسها من داخل نفسها [/rtl]

[rtl]وهذا يعني أننا هنا نقوم بعمل Looping بدون استخدام جمل برمجية مثل For .... Next او  For .... Each[/rtl]

[rtl]أي أن Recursion   وببساطة شديدة هو شئ عكس كلمة  Iteration أو بشكل أكثر دقة فإن  Recursion هو عبارة عن محاولة إيجاد حل لمشكلة رئيسية Main Problem و ايضا إيجاد حلول لجميع المشاكل الفرعية Minor Problems المتصلة بالمشكلة الرئيسية ..... مع الوضع في الاعتبار أن المشكلتان من نفس النوعية

مثال توضيحي :

عندما تحاول أن تجد جميع الكونترول علي الفورم فأنت هنا تحاول إيجاد حل لمشكلة رئيسية و عندما تحاول أن تبحث داخل بقية الكونترول الاخري علي الفورم فانت هنا تحاول إيجاد حل لمشكلة فرعية و لكنها من نفس نوعية المشكلة الرئيسية. الكود اتالي يوضح الفكرة بشكل أفضل من الحديث النظري

 
الكود:

لقد قمت باستخدام HashSet(Of T) Class لأنه لا يكرر المدخلات و يمكن استخدام اي Collection  مناسبة بدلا منه[/rtl]

[rtl] في الكود أدناه ستجدون طريقتان لكيفية استرجاع جميع الكونترول الموجودة علي الفورم [/rtl]

الطريقة الأولي:


كود :
  '  Method 1
   ..........................................................................................

   ' This Method will detect contols only and components will not detected
   Friend Shared Sub FindControls(ctrlContainer As Control, controls As HashSet(Of Control))
       If ctrlContainer Is Nothing Then
           Return
       End If
       For Each ctrl As Control In ctrlContainer.Controls
           controls.Add(ctrl)
           ' If the control has hildren, recursively call this Method
           If ctrl.HasChildren Then
               FindControls(ctrl, controls)
           End If
       Next
   End Sub

   ' This Function will return contols only and components will not be returned
   Friend Shared Function GetControls(list As ICollection, ctrlContainer As Control) As HashSet(Of Control)
       If list Is Nothing OrElse ctrlContainer Is Nothing Then
           Return Nothing
       End If
       Dim controls As HashSet(Of Control) = New HashSet(Of Control)()
       For Each ctrl As Control In list
           controls.Add(ctrl)
           FindControls(ctrlContainer, controls)
       Next
       Return controls
   End Function

الطريقة الثانية:


كود :
'  Method 2
   ..........................................................................................

   ' This Function will return contols only and components will not be returned
   Public Shared Function GetControls(ctrls As ICollection) As HashSet(Of Control)
       Dim controls As New HashSet(Of Control)()
       For Each ctrl As Control In ctrls
           controls.Add(ctrl)
           If ctrl.HasChildren Then
               Dim childs As HashSet(Of Control) = GetControls(ctrl.Controls)
               For Each child As Control In childs
                   controls.Add(child)
               Next
           End If
       Next
       Return controls
   End Function


[rtl]كيفية استخدام الكود: [/rtl]

[rtl] 
[/rtl]
كود :
   '  Method 1 Usage

       For Each ctrl As Control In GetControls(Me.GroupBox1.Controls, Me.GroupBox1)
           ListBox2.Sorted = True
           If TypeOf ctrl Is TextBox Then
               ctrl.Text = "أهلا بكم جميعا"
               ListBox2.Items.Add(ctrl.Name)
           End If
       Next

 '  Method 2 Usage

       For Each ctrl As Control In GetControls(Me.Controls)
           Me.ListBox1.Items.Add(ctrl.Name)
           Me.ListBox1.Sorted = True
           If TypeOf ctrl Is TextBox Then
               ctrl.Text = "Hello World"
           End If
       Next

 '  Method 2 Usage

       ' مسح جميع التكست الموجودة في التكست بوكس
       For Each ctrl As Control In GetControls(Me.Controls)
           If TypeOf ctrl Is TextBox Then
               ctrl.Text = ""
           End If
       Next



[rtl] [/rtl]
[rtl]المرفقات[/rtl]

المرفقات ستجدون ملف به جميع الأكواد السابقة

المراجع:

HashSet Class

تقبلوا تحياتي و بالتوفيق للجميع


الملفات المرفقة
.rar   Test_AllTextBoxText.rar (الحجم : 206.68 ك ب / التحميلات : 74)
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] إختيار صف واحد أو اختيار جميع الصفوف في الداتا جريد فيو silverlight 0 333 18-12-15, 03:50 PM
آخر رد: silverlight
  Retrieve Owner and Form of a Control silverlight 0 182 12-12-15, 05:28 AM
آخر رد: silverlight
  [كود] تأثيرات على Form او على Objects HASAN6.0 4 487 30-11-15, 10:36 PM
آخر رد: Bettayeb
  من المنتدى القديم - تحريك الفورم من اي مكان ( للاخ omar2205 ) المبرمج علي نوري 2 736 16-08-15, 05:09 PM
آخر رد: otman_bel
  [VB.NET] موقع جميل وجيد لاكواد جميع لغات البرمجة alking-0999 1 783 08-08-15, 07:02 PM
آخر رد: AkraM Fouad
  [مقال] Fun with Windows Forms & Graphics - Spy Form silverlight 1 510 23-06-15, 09:33 PM
آخر رد: silverlight
  [كود] كيف نتأكد من أن البكسل الموجودة في الصورة تدعم الشفافية silverlight 1 567 02-06-15, 03:43 PM
آخر رد: abulayth
  العمل على إصدار فيجوال استديو 2012 واجعل مشاريعك تعمل على جميع الإصدارات القديمة ali.alfoly 8 3,224 22-10-14, 11:08 PM
آخر رد: احمد بكري احمد علي
Rainbow Toolbox in VB.NET - Common Controls - Lesson One - Button Control Properties Genius Live 18 4,225 26-03-14, 09:21 PM
آخر رد: رابح11
Rainbow Toolbox in VB.NET - Common Controls - Lesson Third - CheckBox Genius Live 0 708 19-03-14, 05:05 PM
آخر رد: Genius Live

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


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