[justforit]

(10-11-23, 11:48 PM)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

ههههههههههههه
هذا فقط للسرعة عشان اجرب