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

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

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

كذلك كود شرط في حالة إحتوت هذه الحقول على قيمة مثلاً أصغر من 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

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 

(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

تحياتي

(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

تحياتي

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

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

sads

ابراهيم ايبو

asemshahen5

sads

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

sads

ابراهيم ايبو

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

خالد العصاوي