مشكلة في انشاء مصفوفة كنترول أثناء التشغيل في Run Time

السلام عليكم

اضف هذا الكود الى كودك الاساسي و سوف يعمل باذن الله

قم بتغيير المتغير Dist_ لتصل الى المسافة المناسبة بين الTextBox والاخرى

لا تنسى ان تضع في البداية هذه ال Declaration

Dim X() As TextBox

Private Sub Create_txt()
 ReDim X(CheckedListBox1.Items.Count - 1)  
 Dim i As Byte
        Dim Dis_ As Byte = 14
        For i = 0 To X.Length - 1
            X(i) = New TextBox
            X(i).Parent = Me
            X(i).Left = CheckedListBox1.Left + CheckedListBox1.Width + 1
            X(i).Top = CheckedListBox1.Top + (i * Dis_)
            X(i).Name = CheckedListBox1.Items(i).ToString
            X(i).Height = 3
            X(i).Font = Me.Font
        Next

    End Sub

Max!e كتب:

السلام عليكم

اضف هذا الكود الى كودك الاساسي و سوف يعمل باذن الله

قم بتغيير المتغير Dist_ لتصل الى المسافة المناسبة بين الTextBox والاخرى

لا تنسى ان تضع في البداية هذه ال Declaration

Dim X() As TextBox

Private Sub Create_txt()
 ReDim X(CheckedListBox1.Items.Count - 1)  
 Dim i As Byte
        Dim Dis_ As Byte = 14
        For i = 0 To X.Length - 1
            X(i) = New TextBox
            X(i).Parent = Me
            X(i).Left = CheckedListBox1.Left + CheckedListBox1.Width + 1
            X(i).Top = CheckedListBox1.Top + (i * Dis_)
            X(i).Name = CheckedListBox1.Items(i).ToString
            X(i).Height = 3
            X(i).Font = Me.Font
        Next

    End Sub

أشكرك اخي لقد قمت بحل المشكلة عن طريق بناء مصفوفة للعناصر

 Dim c As Integer

        For c = 0 To CheckBoxList1.Items.Count - 1

            Dim myDropDownList = New DropDownList

            myDropDownList.ID = "Cbo" + CheckBoxList1.Items(c).Text

            myDropDownList.Width = 150
            myDropDownList.height = 35

            myDropDownList.ITEMS.ADD("=")
            myDropDownList.ITEMS.ADD(">=")
            myDropDownList.ITEMS.ADD("<=")

            PnlCbo.Controls.Add(myDropDownList)

            Dim myLiteralCbo = New LiteralControl
            'لعمل مسافة
            myLiteralCbo.Text = "<BR><BR>"
            PnlCbo.Controls.Add(myLiteralCbo)
            '........
            Dim myTextBox = New TextBox

            myTextBox.ID = "Txt" + CheckBoxList1.Items(c).Text
            myTextBox.text = "Computer"
            PnlText.Controls.Add(myTextBox)

            Dim myLiteralText = New LiteralControl
            'لعمل مسافة
            'myLiteralText.Text = "<BR><BR>"
            PnlText.Controls.Add(myLiteralText)
            ''تعبئة المصفوفة بجملة الاستعلام 

            ArryFieldName.Add(CheckBoxList1.Items(c).Text)
            aArryFieldName = CType(ArryFieldName.ToArray(GetType(String)), String())

            ArryCondation.Add(myDropDownList.text)
            aArryCondation = CType(ArryCondation.ToArray(GetType(String)), String())

            ArryTextValue.Add(myTextBox.text)
            aArryTextValue = CType(ArryTextValue.ToArray(GetType(String)), String())
        Next c