بسم الله الرحمن الرحيم
أذكر انى قرأت من أحد الأعضاء يتسائل عن عمل مصفوفة من ال Textbox كما كان فى الاصدار vb6 وها هو مثال لعمل المصفوفة
الشرح : بعد عمل مشروع جديد
1 -تضيف إلى المشروع مجموعة من ال TextBox وليكن عددهم 10
2 - ثم من ال ToolBox كليك يمين وتختار Choose Items
3 - تفتح معك شاشة choose Toolbox Items تذهب إلى أسفل ثم تختار TextBoxArray ثم تضغط على ok
أصبحت ال TextBoxitem الأن مدرجة داخل قائمة ال ToolBox
4- أسحبها إلى الفورم
ثم يأتى دور البرمجة
5 - من ال Solution Explorer اضغط مرتين بالموس على form1.Designer
6 - اكتب الكود التالى مع أعدادات كل textbox
Me.TextBoxArray1.SetIndex(Me.TextBox1, CType(0, Short))
الرقم 0 بمثل ال index لل textbox 1
,وبديهى مع كل textbox يزداد رقم ال index بمقدار واحد مثال الtextbox2
Me.TextBoxArray1.SetIndex(Me.TextBox2, CType(1, Short))
وهكذا لكل text box كما فى المثال
ملحوظة : بعد الأنتهاء لو فتخت ال Properties لأى Textbox ستجد عنصر جديد وهو Index on TextBoxArray وأمامه رقم ال Index الذى أضفته من قبل
ارجو ان تعم الأفادة على الجميع وانتظر ردودكم مع دعواتكم