+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طريقة استخدام حلقة For Each (/showthread.php?tid=45859)
طريقة استخدام حلقة For Each - ASUS2020 - 10-04-23
السلام عليكم
عندي فورم فيه ( 30 تكست بوكس ) و ( 10 شيك بوكس )
احتاج انه لمن اختار اسم من ( شيك بوكس ) يحدد كل ( التكست بوكس ) الي تحتوي نفس الاسم في ( الشيك بوكس المختار )
( أنا سويت كود واشتغل لكن الاسطر البرمجية كثيرة مرة ) ( احتاج اختصار للاسطر البرمجية باستخدام حلقة For Each )
جزاكم الله خير
RE: طريقة استخدام حلقة For Each - aljzazy - 10-04-23
PHP كود :
For Each txt As TextBox In {TextBox1, TextBox2, TextBox3}
' اضف هنا أي كود تريد تطبيقه على كل TextBox، مثل:
txt.Text = "النص الجديد"
Next
RE: طريقة استخدام حلقة For Each - Taha Okla - 10-04-23
وعليكم السلام ورحمة الله وبركاته
تستطيع تميز كل (text) بميزة بحيث تجري عليها تعديل اذا احتوت هذه الميزة.
حاول أن تستفيد من الكود الموجود في المشاركة التي في الرابط : هنا
RE: طريقة استخدام حلقة For Each - ASUS2020 - 11-04-23
ألف شكر لكم على التجاوب
راح أجرب وأعطيكم خبر إن شاء الله
RE: طريقة استخدام حلقة For Each - سعود - 11-04-23
الاجراء التالي هو المسؤول
PHP كود :
Private Sub AllClick(sender As Object, e As EventArgs) Handles RadioButton3.Click, RadioButton2.Click, RadioButton1.Click
Dim r As RadioButton = DirectCast(sender, RadioButton)
For Each txt As Control In Me.Controls
If TypeOf txt Is TextBox Then
If CType(txt, TextBox).Tag = r.Tag Then
CType(txt, TextBox).BringToFront()
Else
CType(txt, TextBox).SendToBack()
End If
End If
Next
End Sub
فكرة المشاركة توجد عدد 9 Textbox كلها بنفس اللوكيشن والتاق لكل ثلاث مربعات نص نفس تاق زر راديو خاص بهن زر الراديو الاول يحمل نفس تاق مربعات النص الثلاث الاولى والثاني كذلك المربعات الثلاث الثانية والاخير للمربعات الاخيرة
و الباقي . بالكود اعلاه.
مجرد مشاركة بسيطة بعد معاناة مع الـ css 
تحياتي للجميع
لقد اخترت الحدث الخطأ وهو click انقل الاكواد لحدث CheckedChanged
RE: طريقة استخدام حلقة For Each - ASUS2020 - 11-04-23
تم تعديل الكود بنجاح
الله يوسع عليكم ويرزقكم من واسع فضله
الله لا يحرمنا من علمكم