منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ممكن سؤال في ال for - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 (/showthread.php?tid=38096)

ممكن سؤال في ال for - اليوم السابع - 21-03-21

السلام عليكم 

لدي متغير نصي يحمل اسم الفورم علي سبيل المثال form2

اريد عمل for يغلق جميع الفورمات المفتوحه ما عدا الفورم اللي في المتغير النصي كيف يتم ذلك

RE: ممكن سؤال في ال for - 3booody - 21-03-21

كود :
Dim St As String = "Form2"
       For i As Integer = Application.OpenForms.Count - 1 To 1 Step -1
           If Not Application.OpenForms(i).Text = St Then ' Text او Name
               Application.OpenForms(i).Close()
           End If
       Next


RE: ممكن سؤال في ال for - اليوم السابع - 21-03-21

(21-03-21, 02:52 AM)3booody كتب :
كود :
Dim St As String = "Form2"
       For i As Integer = Application.OpenForms.Count - 1 To 1 Step -1
           If Not Application.OpenForms(i).Text = St Then ' Text او Name
               Application.OpenForms(i).Close()
           End If
       Next

طول عمرك واقف بجانبنا يا كبير

RE: ممكن سؤال في ال for - رضوان الجماعي - 23-03-21

"Dim St As String = "Form
       For i As Integer = Application.OpenForms.Count - 1 To 1 Step -1
           If Not Application.OpenForms(i).Text = St Then ' Text
or name
               ()Application.OpenForms(i).Close
           End If
       Next



بامكانك تجرب هذا الكود