شاطر
اذهب الى الأسفل
عدد المساهمات : 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
-
ثانياً : كود لافراغ الكونترولز متداخلة مع كزنترول اخر مثل tabpage
الكود:
  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

_________________
[img] [/img]
الرجوع الى أعلى الصفحة
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى