+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : لافراغ جميع مربعات النص textboxes (/showthread.php?tid=6164)
لافراغ جميع مربعات النص textboxes - RaggiTech - 17-10-12
كاتب الموضوع : AhmedEssawy
كود :
Private Sub ClearForm()
Dim obj As Control, objGrp As Control
For Each obj In Form.ActiveForm.Controls
If TypeOf obj Is GroupBox Then
For Each objGrp In obj.Controls
If TypeOf objGrp Is TextBox Then
If objGrp.Name <> "txtCNO" Then objGrp.ResetText()
End If
Next objGrp
End If
Next obj
End Sub