تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريقة استخدام حلقة For Each
#1
السلام عليكم
عندي فورم فيه ( 30 تكست بوكس ) و ( 10 شيك بوكس )
احتاج انه لمن اختار اسم من ( شيك بوكس ) يحدد كل ( التكست بوكس ) الي تحتوي نفس الاسم في ( الشيك بوكس المختار )
( أنا سويت كود واشتغل لكن الاسطر البرمجية كثيرة مرة ) ( احتاج اختصار للاسطر البرمجية باستخدام حلقة For Each )
جزاكم الله خير
الرد }}}
تم الشكر بواسطة: سعود
#2
PHP كود :
For Each txt As TextBox In {TextBox1TextBox2TextBox3}
 
   ' اضف هنا أي كود تريد تطبيقه على كل TextBox، مثل:
    txt.Text = "النص الجديد"
Next 
الرد }}}
تم الشكر بواسطة: سعود
#3
وعليكم السلام ورحمة الله وبركاته

تستطيع تميز كل (text) بميزة بحيث تجري عليها تعديل اذا احتوت هذه الميزة.
حاول أن تستفيد من الكود الموجود في المشاركة التي في الرابط : هنا
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: سعود
#4
ألف شكر لكم على التجاوب
راح أجرب وأعطيكم خبر إن شاء الله
الرد }}}
تم الشكر بواسطة: سعود
#5
الاجراء التالي هو المسؤول
PHP كود :
Private Sub AllClick(sender As ObjectAs EventArgsHandles RadioButton3.ClickRadioButton2.ClickRadioButton1.Click
        Dim r 
As RadioButton DirectCast(senderRadioButton)
 
       For Each txt As Control In Me.Controls
            If TypeOf txt Is TextBox Then
                If CType
(txtTextBox).Tag r.Tag Then
                    CType
(txtTextBox).BringToFront()
 
               Else
                    CType
(txtTextBox).SendToBack()
 
               End If
 
           End If
 
       Next
    End Sub 

فكرة المشاركة توجد عدد 9 Textbox  كلها بنفس اللوكيشن والتاق لكل ثلاث مربعات نص نفس تاق زر راديو خاص بهن زر الراديو الاول يحمل نفس تاق مربعات النص الثلاث الاولى والثاني كذلك المربعات الثلاث الثانية والاخير للمربعات الاخيرة

و الباقي    . بالكود اعلاه.
مجرد مشاركة بسيطة بعد معاناة مع الـ css Smile
تحياتي للجميع

لقد اخترت الحدث الخطأ وهو click انقل الاكواد لحدث CheckedChanged


الملفات المرفقة
.zip   TextBoxesWithCheckboxs.zip (الحجم : 12.99 ك ب / التحميلات : 19)
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: Taha Okla , ابو روضة , أبو خالد الشكري
#6
تم تعديل الكود بنجاح
الله يوسع عليكم ويرزقكم من واسع فضله
الله لا يحرمنا من علمكم
الرد }}}
تم الشكر بواسطة:



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


يقوم بقرائة الموضوع: