ROSTAM2
پنج شنبه 06 مهر 1402, 14:25 عصر
در این ویدئوی آموزشی ابتدا مقادیر TextBox ها به عناصر آرایه اختصاص داده شده و سپس مقادیر بصورت متنی (رشته) در فایل متنی ذخیره سازی و با کلید فراخوانی، مقادیر از فایل متنی خوانده شده و به آرایه برمی گردند و سپس در جعبه متنها نمایش داده می شوند....
https://aparat.com/v/9VZNs (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)
https://aparat.com/v/9VZNs (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)