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

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

https://aparat.com/v/odBz9

تعریف:

[VB]

Dim Values As New List(Of String)

[/VB]

ذخیره سازی

[VB]

        Values.Clear()

        For Each TextBox As TextBox In Me.Panel1.Controls

            Values.Add(TextBox.Text)

        Next

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

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

[/VB]

فراخوانی:

[VB]

  Values.Clear()

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

        Values.AddRange(Expr.Split(";"))

        For i = 0 To Values.Count - 1

            Me.Panel1.Controls(i).Text = Values(i)

        Next

[/VB]