[sads]

السلام عليكم إخوتي

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

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

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

[ابراهيم ايبو]

السلام عليكم اخي الكريم

تفضل هذا الكود

كود :

     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

[asemshahen5]

PHP كود :

   Private Sub EmptyTextBox_Click(sender As Object, e As EventArgs) Handles 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 Object, e As EventArgs) Handles 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 


[sads]

(30-03-19, 12:59 AM)asemshahen5 كتب :

PHP كود :

   Private Sub EmptyTextBox_Click(sender As Object, e As EventArgs) Handles 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 Object, e As EventArgs) Handles 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 عند تفعيل الكود لا ينتج أي حدث ؟ مالحل

[عبد العزيز البسكري]

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

أخي الكريم .. إضافة لما قدمه الأخويْن الغاليين العزيزين : " إبراهيم إيبو " و " عاصم "

بارك الله فيهما و لهما و جزاهما خير الجزاء إن شاء الله

أنت أخي الغالي .. لم توضّح من البداية أن الأمر يتعلق ب 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

تحياتي

[sads]

(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]

[ابراهيم ايبو]

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

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

اخي انت قلت :

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

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

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

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

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

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

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

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

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

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

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

دمت بخير 

[عبد العزيز البسكري]

و ما هو المانع أخي الكريم من كتابة الكود الخاص لكل 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

تحياتي

[خالد العصاوي]

مشكور اخي الكريم