- tarik
- عدد المساهمات : 134
تاريخ التسجيل : 08/10/2012
افراغ كافة الكونترولز الموجودة على الفورم
الثلاثاء فبراير 17, 2015 4:54 pm
أولا : كود لافراغ الكونترولز من على الفورم
- الكود:
Dim a As Control
For Each a In Me.Controls
If TypeOf a Is TextBox Then
a.Text = Nothing
End If
Next
-
- الكود:
For Each tp As TabPage In tabs.TabPages
For Each ctl As Control In tp.Controls
If TypeOf ctl Is TextBox Then
ctl.Text = ""
End If
Next
Next
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى