10-11-23, 09:24 PM
PHP كود :
Private Sub ClearTextBoxes(ByVal root As Control)
For Each ctrl As Control In root.Controls
ClearTextBoxes(ctrl)
If TypeOf ctrl Is TextBox Then
CType(ctrl, TextBox).Text = String.Empty
End If
Next ctrl
End Sub
Private Sub fill(ByVal root As Control)
For Each ctrl As Control In root.Controls
fill(ctrl)
If TypeOf ctrl Is TextBox Then
CType(ctrl, TextBox).Text = ctrl.Name
End If
Next ctrl
End Sub
او
fill(Me)