[soad.soad]

(11-03-21, 01:13 AM)علي بنيان كتب : وعليكم السلام
صراحة ما فهمت السؤال بالضبط ولكن فهمت حظرتك تريد تتعامل مع مصفوفة Textbox , عن نفسي اذا اريد اتعامل مع مجموعة من الادوات دفعة واحدة استخدم الـ Collection
اضيف الادوات الى Collection وبعدها اتعامل مع خصائص الاداة المضافة
هذا مثال بسيط من خلاله اضفت مجموعة من التسكت بوكس اثناء زمن التشغيل واضفت لها الخاصية text من خلال زر امر

PHP كود :

 Dim AL As New Collection
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 1 To AL.Count
            AL(i).Text = " تيكست بوكس رقم " & i
        Next
    End Sub
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim y As Integer = 50
        For i = 1 To 10
            Dim txt As New TextBox()
            txt.Size = New Size(150, 10)
            txt.Location = New Point(90, y)
            Me.Controls.Add(txt)
            y += 25
            AL.Add(txt)
        Next
    End Sub 


اذا ما كان هذا الشيء الي تقصده حضرتك نرجو توضيح السؤال اكثر

شكرا على الرد ...يمكن قريب جدا للمطلوب ..انظر الى هذا الكود كنت استخدمة في الفيجوال 6 لاضافة بيانات لقاعدة البيانات حيث rs متغير تم تعرفيه في المودل لتعامل مع جداول قاعدة البيانات والتكست داخل الfor تصبح text(i) كانت الطريقة سهلة وممتعة هذا المكلوب مع vb.net 
لانه انا جديدة بال vb.net ان شاء الله تكون فهمت السؤال
                                                                                                                                                            Set rs = db.OpenRecordset("file")
                                                                                                                                                                                     rs.Index = "Key"
                                                                                                                                                                         rs.Seek "=", Val(Text1(0)
                                                                                                                                                                                   If rs.NoMatch The  

                                                                                                                                                                                               rs.AddNew
                                                                                                                                                                     For I = 0 To Text1.Count - 1
                                                                                                                                                       rs.Fields(Text1(I).DataField) = Text1(I)
                                                                                                                                                                                                       Next