تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مسح جميع أدوات النص دفعة واحدة
#1
السلام عليكم إخوتي

أحناج إلى كود مبرمج محترف لمسح جميع أدوات النص دفعة واحدة

كذلك كود شرط في حالة إحتوت هذه الحقول على قيمة مثلاً أصغر من 50 تضلل باللون اللأخمر على سبيل المثال

ياريت الكود يكون مبسط أو مختصر 
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم اخي الكريم
تفضل هذا الكود

كود :
     For Each M As Control In Me.Controls
           If TypeOf M Is TextBox Then
               If Val(M.Text) < 50 Then
                   M.BackColor = Color.Red

               End If
               M.Text = ""
           End If
       Next
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#3
PHP كود :
   Private Sub EmptyTextBox_Click(sender As ObjectAs EventArgsHandles BtnEmptyTextBox.Click
        For Each ctrl 
As Control In Me.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl
.Text String.Empty
 
           End If
 
       Next
    End Sub
    Private Sub BtnRedBackColor_Click
(sender As ObjectAs EventArgsHandles BtnRedBackColor.Click
        For Each ctrl 
As Control In Me.Controls
            If TypeOf ctrl Is TextBox Then
                If ctrl
.Text 50 Then
                    ctrl
.BackColor Color.Red
                End 
If
 
           End If
 
       Next
    End Sub 
الرد }}}
#4
(30-03-19, 12:59 AM)asemshahen5 كتب :
PHP كود :
   Private Sub EmptyTextBox_Click(sender As ObjectAs EventArgsHandles BtnEmptyTextBox.Click
        For Each ctrl 
As Control In Me.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl
.Text String.Empty
 
           End If
 
       Next
    End Sub
    Private Sub BtnRedBackColor_Click
(sender As ObjectAs EventArgsHandles BtnRedBackColor.Click
        For Each ctrl 
As Control In Me.Controls
            If TypeOf ctrl Is TextBox Then
                If ctrl
.Text 50 Then
                    ctrl
.BackColor Color.Red
                End 
If
 
           End If
 
       Next
    End Sub 

الحقول موجودة على فورم داخل أداة TabControl1 عند تفعيل الكود لا ينتج أي حدث ؟ مالحل
الرد }}}
تم الشكر بواسطة: elgokr
#5
السّلام عليكم و رحمة الله و بركاته
أخي الكريم .. إضافة لما قدمه الأخويْن الغاليين العزيزين : " إبراهيم إيبو " و " عاصم "
بارك الله فيهما و لهما و جزاهما خير الجزاء إن شاء الله
أنت أخي الغالي .. لم توضّح من البداية أن الأمر يتعلق ب TabControl
لا حظ لو سمحت الأكواد و ما بداخلها من كتابة .. تاكسات بكس أو كومبوبكسات أو أدوات أخرى
مثلا مسح محتويات ال GroupBox
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       For I = 0 To GroupBox1.Controls.Count - 1
           If TypeOf GroupBox1.Controls(I) Is TextBox Then GroupBox1.Controls(I).Text = ""
       Next
       For I = 0 To GroupBox2.Controls.Count - 1
           If TypeOf GroupBox2.Controls(I) Is TextBox Then GroupBox2.Controls(I).Text = ""
       Next
   End Sub

[b]مثلا مسح محتوياتال TabControl[/b]
كود :
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

       For I = 0 To TabPage1.Controls.Count - 1
           If TypeOf TabPage1.Controls(I) Is TextBox Then TabPage1.Controls(I).Text = ""
       Next

       For I = 0 To TabPage2.Controls.Count - 1
           If TypeOf TabPage2.Controls(I) Is TextBox Then TabPage2.Controls(I).Text = ""
       Next

   End Sub

تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , elgokr , elgokr , asemshahen5 , ali_ahmed12
#6
(30-03-19, 03:09 AM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
أخي الكريم .. إضافة لما قدمه الأخويْن الغاليين العزيزين : " إبراهيم إيبو " و " عاصم "
بارك الله فيهما و لهما و جزاهما خير الجزاء إن شاء الله
أنت أخي الغالي .. لم توضّح من البداية أن الأمر يتعلق ب TabControl
لا حظ لو سمحت الأكواد و ما بداخلها من كتابة .. تاكسات بكس أو كومبوبكسات أو أدوات أخرى
مثلا مسح محتويات ال GroupBox
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       For I = 0 To GroupBox1.Controls.Count - 1
           If TypeOf GroupBox1.Controls(I) Is TextBox Then GroupBox1.Controls(I).Text = ""
       Next
       For I = 0 To GroupBox2.Controls.Count - 1
           If TypeOf GroupBox2.Controls(I) Is TextBox Then GroupBox2.Controls(I).Text = ""
       Next
   End Sub

[b]مثلا مسح محتوياتال TabControl[/b]
كود :
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

       For I = 0 To TabPage1.Controls.Count - 1
           If TypeOf TabPage1.Controls(I) Is TextBox Then TabPage1.Controls(I).Text = ""
       Next

       For I = 0 To TabPage2.Controls.Count - 1
           If TypeOf TabPage2.Controls(I) Is TextBox Then TabPage2.Controls(I).Text = ""
       Next

   End Sub

تحياتي

أشكرك أخي أتأسف عن عدم التوضيح أكثر ولاكن أعتقدت أن كود الفورم كان يكفي بالغرض ولاكن إتضح أنه لايعمل مع أداة TabControl /// أخي هل من المكن أن أنفذ الكود على [b]TabControl مرة واحدة أم أني ملزم عمله على كل TabPage على حده[/b]
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , elgokr , elgokr , asemshahen5
#7
السلام عليكم ورحمة الله وبركاته

السؤال الواضح يتلقى سائله اجابة واضحة

اخي انت قلت :



أحناج إلى كود مبرمج محترف لمسح جميع أدوات النص دفعة واحدة

كذلك كود شرط في حالة إحتوت هذه الحقول على قيمة مثلاً أصغر من 50 تضلل باللون اللأخمر على سبيل المثال

ياريت الكود يكون مبسط أو مختصر 

من كلامك فهمت ان لديك مجموعة من التكست بوكس تستخدم فيها ارقاما وليس نصوص

 وتريد افراغها دفعة واحدة بشرط لو كان التكست بوكس قيمته اقل من 50 يصبح لونه احمر

عذرا اخي انا لست منجما او عالما بالغيب لأعرف ان التكست بوكس موجودة مثلا في panel أو groupBox او غيره

وقام الاخ العزيز عاصم مشكورا باعطائك كودين منفصلين واحد لتفريغ التيكست بوكس والاخر لتلوينه جزاه الله خيرا

كذلك انبرى اخي العزيز عبد العزيز يشرح لك بكل حب الاكواد ومدلولاتها طمعا في رضى الله ومحبة بك

فقط مطلوب منك توظيف الاكواد فيما تريد وقليلا من الحركة ستتعلم صيد السمك

لان اعطاءك السمكة  لن تفيدك الا يوما او يومين 

تقبل كلماتي بصدر رحب فوالله لا اريد بك الا خيرا

دمت بخير 
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: sads , elgokr , elgokr , asemshahen5 , عبد العزيز البسكري
#8
و ما هو المانع أخي الكريم من كتابة الكود الخاص لكل TabPage على حدة .. أكيد سيكون الكل .. 8 أو 10 سطور .. لا أظنها متعبة
و مع ذلك أخي الكريم .. و جدت لك هذا الكود و الذي يقوم بمسح محتويات Tabcontrol دفعة واحدة بكل ( طابْ باجاتِها )
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       ClearTabControl(TabControl1)
   End Sub
   Private Sub ClearTabControl(ByVal tb As TabControl)
       For Each page As TabPage In TabControl1.TabPages
           ClearFields(page)
       Next
   End Sub
   Private Sub ClearFields(ByVal cntr As Control)
       For Each ctl As Control In cntr.Controls
           If TypeOf ctl Is TextBox OrElse TypeOf ctl Is ComboBox Then
               ctl.Text = ""
           ElseIf ctl.HasChildren Then
               ClearFields(ctl)
           End If
       Next
   End Sub

تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو , elgokr , elgokr
#9
مشكور اخي الكريم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  تحميل جميع الماسحات الضوئية المتصلة بالجهاز في كومبوبوكس جيولوجي مبتدئ 2 202 22-02-24, 07:10 PM
آخر رد: جيولوجي مبتدئ
  [VB.NET] استخلاص جزء محدد من نص وإضافته إلى بداية النص ؟ AmeenRashed 2 213 02-01-24, 10:06 AM
آخر رد: AmeenRashed
  [VB.NET] مطلوب دمج جملتين لتحديث قاعدة بيانات فى جملة واحدة AmeenRashed 1 335 18-11-23, 01:32 AM
آخر رد: sniper2030
  استفسار عام بخصوص فتح اكثر من اتصال على قاعدة بيانات واحدة assuhimi 0 324 15-09-23, 04:54 PM
آخر رد: assuhimi
  دالة ادخال ارقام فقط في مربع النص atefkhalf2004 7 808 20-08-23, 09:04 AM
آخر رد: atefkhalf2004
  [VB.NET] احتاج كود يغلق جميع الفورم ويبقي فقط الفورم Home Ali_hassn 4 545 15-08-23, 06:43 PM
آخر رد: Alexander Max2
  سؤال حول اغلاق جميع النوافذالمفتوحة maherhaddaf 3 455 20-07-23, 08:48 AM
آخر رد: maherhaddaf

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


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