[silverlight]

لو التكست بوكس كلها موجودة داخل الفورم مباشرة هنا تستطيع أن تستخدم الكود الذي تفضل الاخ حريف برمجة بكتابته

لكن لو كانت بعض من التكست بوكس موجودة داخل الفورم و البعض الأخر موجود داخل Panel او داخل GruoupBox عليك أن تضيف الكود التالي الي الفورم لتجد جميع التكست بوكس الموجودة علي الفورم او علي اي كونترول اخر داخل الفورم

كود :

  ' 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

و لحذف جميع التكست من حميع التكست بوكس يمكنك أن تستخدم الكود التالي

كود :

    For Each ctrl As Control In GetControls(Me.Controls)
          If TypeOf ctrl Is TextBox Then
              ctrl.Text = ""
          End If
      Next