اضافه کردن مقادیر چندین TextBox در یک آرایه و ذخیره سازی در فایل متنی
در این ویدئوی آموزشی ابتدا مقادیر TextBox ها به عناصر آرایه اختصاص داده شده و سپس مقادیر بصورت متنی (رشته) در فایل متنی ذخیره سازی و با کلید فراخوانی، مقادیر از فایل متنی خوانده شده و به آرایه برمی گردند و سپس در جعبه متنها نمایش داده می شوند....
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://barnamenevis.org/showthread.php?576241-%D8%A7%D8%B6%D8%A7%D9%81%D9%87-%DA%A9%D8%B1%D8%AF%D9%86-%D9%85%D9%82%D8%A7%D8%AF%DB%8C%D8%B1-%DA%86%D9%86%D8%AF%DB%8C%D9%86-TextBox-%D8%AF%D8%B1-%DB%8C%DA%A9-%D8%A2%D8%B1%D8%A7%DB%8C%D9%87-%D9%88-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D8%B3%D8%A7%D8%B2%DB%8C-%D8%AF%D8%B1-%D9%81%D8%A7%DB%8C%D9%84-%D9%85%D8%AA%D9%86%DB%8Cp=2461543viewfull=1#post2461543
همه توضیحات ...