عرب تك
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

اذهب الى الأسفل
avatar
tarik
عدد المساهمات : 134
تاريخ التسجيل : 08/10/2012

افراغ كافة الكونترولز الموجودة على الفورم Empty افراغ كافة الكونترولز الموجودة على الفورم

الثلاثاء فبراير 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
الرجوع الى أعلى الصفحة
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى