تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود لمسح كل التيكست بوكس مرة واحدة مهما كان العدد
#1
Thumbs Down 
السام عليكم ورحمة الله ورحمة الله وبركاته
اول مشاركة لي اتمني انها تعجبكم ان شاء الله
كود لمسح ما بداخل التيكست بوكس ارجو ان يفيدكم

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

الكود منقول
الرد }}}}
#2
Smile 
وعليكم السلام ورحمة الله وبركاته

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

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


PHP كود :
Array.ForEach(Me.Controls.OfType(Of TextBox).ToArraySub(As TextBoxT.Clear()) 

وفقك الله

الرد }}}}
#3
وكود آخر أيضا :


كود :
Me.TextBox1.Clear()
كود :
Me.TextBox1.Text = Nothing
الرد }}}}
تم الشكر بواسطة: سعود , مبرمج بلا حدود , الطالب
#4
بارك الله فيكم جميعا
الرد }}}}
تم الشكر بواسطة: الطالب
#5
TextBox1.text=""
ممكن هكذا ايضا
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود , الطالب
#6
شكرا جزيلا اخي
الرد }}}}
تم الشكر بواسطة: الطالب
#7
في حالة لو التكيست بوكسس داخل تاب كونترول مثلا نستخدم هذا الكود
 
كود :
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
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود , الطالب
#8
الله يعطيكم العافية
سبحان الله وبحمده .. سبحان الله العظيم
الرد }}}}
#9
بارك الله فيك
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود , الطالب
#10
السلام عليكم ورحمة الله وبركاته
جزاكم الله خير وباركـ الله فيكم وجعله الله في ميزان حسناتكم وفقكم الله
لكن لدي استفسار هل هذا الكود او هذه الاكواد تعمل حتى لو تم تغير الاسم البرمجي للـ TextBox
وجزاكم الله خير
الرد }}}}
تم الشكر بواسطة: الطالب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية عمل mdi حيث يظهر مرة واحدة egypure 2 813 18-12-12, 04:07 AM
آخر رد: egypure
  مقال- الكومبو بوكس ComboBox كيف تضيف أيقونات RaggiTech 0 765 05-10-12, 06:54 PM
آخر رد: RaggiTech
  كود- تكست بوكس شفاف Transparent TextBox RaggiTech 0 562 05-10-12, 01:44 PM
آخر رد: RaggiTech
  كود- الماسج بوكس 2 RaggiTech 0 415 05-10-12, 11:09 AM
آخر رد: RaggiTech
  غزة ماسج بوكس - اهداء الي اهلنا في غزة RaggiTech 0 413 05-10-12, 10:57 AM
آخر رد: RaggiTech
  إجبار المستخدم على اختيار واحدة من عدة قيم محددة سابقا في صندوق النصوص RaggiTech 0 461 01-10-12, 11:33 PM
آخر رد: RaggiTech
  مقال: الكومبو بوكس ComboBox كيف تضيف أيقونات Blue Sky 0 767 17-09-12, 10:19 PM
آخر رد: Blue Sky

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم