ROSTAM2
پنج شنبه 06 مهر 1402, 17:19 عصر
در این ویدئوی آموزشی ابتدا مقادیر TextBox ها به آیتم های یک لیست اختصاص داده شده و سپس مقادیر بصورت متنی (رشته) در فایل متنی ذخیره سازی و با کلید فراخوانی، مقادیر از فایل متنی خوانده شده و به لیست برمی گردند و سپس در جعبه متنها نمایش داده می شوند....
https://aparat.com/v/odBz9
تعریف:
Dim Values As New List(Of String)
ذخیره سازی
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)
فراخوانی:
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
https://aparat.com/v/odBz9
تعریف:
Dim Values As New List(Of String)
ذخیره سازی
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)
فراخوانی:
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