[Ashraf10]

مشاركة لكم :

PHP كود :

Private Sub ClearTextBoxes(ByVal ctrl As Control)
    Array.ForEach(ctrl.Controls.OfType(Of Control).ToArray, Sub(c) If TypeOf c Is TextBox Then c.Text = "" Else ClearTextBoxes(c))
End Sub 


---

PHP كود :

Private Sub FillTextBoxes(ByVal ctrl As Control)
    Array.ForEach(ctrl.Controls.OfType(Of Control).ToArray, Sub(c) If TypeOf c Is TextBox Then c.Text = c.Name Else FillTextBoxes(c))
End Sub 


ايه الفايده من FillTextBoxes