[3booody]

السلام عليكم ورحمة الله وبركاته

هل من الممكن إضافة فيئات لمصفوفه والتحكم بها من المصفوفه يعني مثلآ

كود :

Dim txt1, txt2 As New TextBox
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txt1.Text <> "" Then
            'اضف الفئه الى مصفوفه
        End If
    End Sub

وبحيث استطيع التحكم ب txt1 مثل اللست تأخذ item معين

[Aly El-Haddad]

لم أفهم المطلوب تحديداً لكن لو تريد إنشاء مصفوفة

كود :

Dim strArr As String() = New String() {}

أو

كود :

Dim strArr As String() = {"Item1", "Item2", "Item3"}

و للإضافة

كود :

ReDim Preserve strArr(strArr.Length)
strArr(strArr.Length - 1) = "ItemToAdd"

للتعديل

كود :

strArr(0) = "Edited Item At 0 Index"

أما لو أردت إنشاء List (و أنصحك بها لسهولة التعامل معها)

كود :

Dim strLst As New List(Of String)

للإضافة

كود :

strLst.Add("ItemToAdd")

للتعديل

كود :

strLst(0) = "Edited Item At 0 Index"

[3booody]

لا اخي لنفترض ان عندي هذي المتغيرات

كود :

Dim txt0 As New TextBox
    Dim txt1 As New TextBox
    Dim txt2 As New TextBox
    Dim txt3 As New TextBox
    Dim txt4 As New TextBox

واردت وضع شرط لجميع النصوص بحيث النص الي ما فارغ ينضاف الى مصفوفه

كود :

If txt1.Text <> "" Then
            'add txt1 to Array
        End If

وعند استدعاء النصوص يتم من خلال الرقم في المصفوفه يعني مثلآ

كود :

Array.Item(0).Text = ""

حيث رقم 0 تمثل الفئه نفسها وهي ال txt1
وبمعنى اصح كأني عرفت النصوص بهالشكل

كود :

Dim txt(5) As TextBox

لكن ما اريد تكون بهالشكل

[Aly El-Haddad]

هل هذا هو المقصود؟

كود :

Dim strArr As String() = {"A", "B", "C"}
Dim str As String = String.Concat(strArr) 'Now str = "ABC"

[3booody]

جزاك الله خير اخي على ردك
انا ماصرحت عن string صرحت عن صندوق نص
[COLOR="#0000FF"]Dim txt0 As New TextBox
Dim txt1 As New TextBox
Dim txt2 As New TextBox
Dim txt3 As New TextBox[/COLOR]

[Aly El-Haddad]

كود :

[b][SIZE=4][COLOR=#000080]
Dim strArr As String() = {txt0.Text, txt1.Text, txt2.Text, txt3.Text}
Dim str As String = String.Concat(strArr)[/COLOR][/SIZE][/b]

[3booody]

لا اخي ما هذا طلبي
Array.Item(0).Text = "aaa"
يعني الـ txt1,txt2,txt3,......الخ هي المصفوفه وليس نصها واعتقد يتم عمل ذلك في Collection

[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته





شوف هذا المثال (المعذرة غير متفرغ للمتابعة)

PHP كود :

Public Class Form1

    Private txt As New List(Of TextBox)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim tb As New TextBox
        txt.Add(tb)

        txt.Item(0).Text = "AboRead"

        MsgBox(txt.Item(0).Text)

    End Sub

End Class 


السلام عليكم ورحمة الله وبركاته

[3booody]

[COLOR="#800000"]جزاك الله خير استاذي ابو رائد وهو المطلوب
وجزاك الله خير اخوي Aly El-Haddad على المساعده[/COLOR]