17-10-12, 12:59 AM
كاتب الموضوع : AhmedEssawy
كود :
Public Sub ClearAllText(frm As Form, ctl As Control)
For Each ctl In frm
If TypeOf ctl Is TextBox Then
ctl.Text=""
End If
Next ctl
End Sub
لمسح كافة صناديق النص في الفورم
|
|