تقييم الموضوع :
  • 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 ك ب / التحميلات : 12)
الرد }}}
تم الشكر بواسطة: Taha Okla , ابو روضة , أبو خالد الشكري
#6
تم تعديل الكود بنجاح
الله يوسع عليكم ويرزقكم من واسع فضله
الله لا يحرمنا من علمكم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استخدام فونت جديد في البرنامج Emam emam 5 96 14-04-24, 01:29 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] طريقة استدعاء مكتبة dll عبد الناصر موسى 3 1,465 10-04-24, 04:33 AM
آخر رد: emadahmed1995
  [VB.NET] طريقة التعلم بخطوات صحيحة للتعلم و المعرفة انمار الرواي 0 62 31-03-24, 08:23 PM
آخر رد: انمار الرواي
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 207 04-03-24, 07:15 AM
آخر رد: new_programer
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 474 07-02-24, 08:59 PM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 211 19-01-24, 12:42 PM
آخر رد: Taha Okla
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 266 06-01-24, 03:20 PM
آخر رد: Kamil
  [VB.NET] ما هي طريقة استدعاء الازرار في الكيبورد من خلار زر افتراضي haider.mohsin92 1 304 14-12-23, 03:19 PM
آخر رد: Kamil
  طريقة عرض التقرير كريستال ريبورت في جهاز العميل Adel27213 2 356 10-12-23, 04:03 AM
آخر رد: Adel27213
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 361 25-11-23, 11:51 PM
آخر رد: Adel27213

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


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