اضافه کردن مقادیر چندین TextBox در یک آرایه و ذخیره سازی در فایل متنی

در این ویدئوی آموزشی ابتدا مقادیر TextBox ها به عناصر آرایه اختصاص داده شده و سپس مقادیر بصورت متنی (رشته) در فایل متنی ذخیره سازی و با کلید فراخوانی، مقادیر از فایل متنی خوانده شده و به آرایه برمی گردند و سپس در جعبه متنها نمایش داده می شوند....

https://aparat.com/v/9VZNs

ذخیره سازی

 Dim i As Integer = 0

        ReDim Values(Me.Panel1.Controls.Count - 1)

        For Each TextBox As TextBox In Me.Panel1.Controls

            Values(i) = TextBox.Text

            i += 1

        Next

        Dim Expr As String = Join(Values, ";")

        IO.File.WriteAllText(".\Values.txt", Expr)

    Debug.Print(Expr)

فراخوانی

 Dim Expr As String = IO.File.ReadAllText(".\Values.txt")

        Values = Split(Expr, ";")

        For i = 0 To Values.Length - 1

            DirectCast(Me.Panel1.Controls(i), TextBox).Text = Values(i)

        Next

  Debug.Print(Expr)