تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة: asemshahen5 , sads , عبد العزيز البسكري , بدري
#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
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أدوات قواعد البيانات في الدوت نت وطريقة استخدامها معتز حسن 4 145 16-05-19, 01:42 PM
آخر رد: elgokr
  كيفة إجبار مربع النص على الكتابة بالفرنسية فقط ahmedfa71 2 75 15-05-19, 03:02 PM
آخر رد: ahmedfa71
  مربع النص يبدا بحرف ومن بعد ارقام anis 3 141 09-04-19, 02:36 AM
آخر رد: elgokr
Photo كيفية دمج 2 داتا حريد فيو فى داتا جريد فيو واحدة code3x 0 68 27-03-19, 11:41 AM
آخر رد: code3x
  انشاء فورم يظهر مرة واحدة عند البدء بالبرنامج العتيق 13 440 17-03-19, 01:58 PM
آخر رد: عبد العزيز البسكري
  اريد ظهور الفورم لمرة واحدة فقط سمير جمال 1 120 17-03-19, 04:12 AM
آخر رد: asemshahen5
Exclamation [VB.NET] ملاحظتي الوحيدة في جميع دوال تشفير النصوص (مضاعفة الأحرف) sniperjawadino 4 159 15-03-19, 03:15 PM
آخر رد: sniperjawadino
  كيف اجعل النص bold and italic and Underline سوية وليس كل على حدة ابراهيم ايبو 1 105 03-03-19, 08:24 AM
آخر رد: ابراهيم ايبو
  مشكلة كود استيراد ملف اكسيل يقراء لغة واحدة فقط new_programer 4 177 18-02-19, 02:04 AM
آخر رد: new_programer
  [VB.NET] اظهار النص في الفور الاول ومطابقته في الفورم الاخر اباذر 3 179 14-02-19, 06:36 AM
آخر رد: princelovelorn

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


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