منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود لمسح كل التيكست بوكس مرة واحدة مهما كان العدد

الصفحات : 1 2

السام عليكم ورحمة الله ورحمة الله وبركاته
اول مشاركة لي اتمني انها تعجبكم ان شاء الله
كود لمسح ما بداخل التيكست بوكس ارجو ان يفيدكم

Dim i As Integer
For i = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(i) Is TextBox Then
Me.Controls(i).Text = ""
End If
Next

الكود منقول

وعليكم السلام ورحمة الله وبركاته

جزاك الله كل خير أخي الكريم

كود آخر للفائدة

PHP كود :

Array.ForEach(Me.Controls.OfType(Of TextBox).ToArray, Sub(T As TextBox) T.Clear()) 

وفقك الله

وكود آخر أيضا :

كود :

Me.TextBox1.Clear()

كود :

Me.TextBox1.Text = Nothing

بارك الله فيكم جميعا

TextBox1.text=""
ممكن هكذا ايضا

شكرا جزيلا اخي

في حالة لو التكيست بوكسس داخل تاب كونترول مثلا نستخدم هذا الكود

كود :

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

الله يعطيكم العافية

بارك الله فيك

السلام عليكم ورحمة الله وبركاته
جزاكم الله خير وباركـ الله فيكم وجعله الله في ميزان حسناتكم وفقكم الله
لكن لدي استفسار هل هذا الكود او هذه الاكواد تعمل حتى لو تم تغير الاسم البرمجي للـ TextBox
وجزاكم الله خير

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

medo_ya

Sniper.ps

Dev Saeed

medo_ya

mohmedhosen

alsouf

arbtech

ro3h

otman_bel

مبرمج بلا حدود