من دوتا لیست باکس دارم که یکی شون ورودی از تکست باکس داره یکی دیگشون ورودی از تکس باکس اولی که گفتم داره حالا من میخوام تکست باکسام رو هسیوشون کنم به صورت خدکار وموقع ورود لود بشه باید چی کار کنم.
باتشکر از انجمن.
من دوتا لیست باکس دارم که یکی شون ورودی از تکست باکس داره یکی دیگشون ورودی از تکس باکس اولی که گفتم داره حالا من میخوام تکست باکسام رو هسیوشون کنم به صورت خدکار وموقع ورود لود بشه باید چی کار کنم.
باتشکر از انجمن.
مقادیر داخل TextBox ها رو داخل یک فایل ذخیره کنید و از داخل همون فایل هم بخونید.
برای نوشتن محتویات Text1 و Text2 در یک فایل :
کد:
Open "Texts.txt" For Output As #1
Print #1, Replace(Text1.Text, vbCrLf, "<BR>")
Print #1, Replace(Text2.Text, vbCrLf, "<BR>")
Close #1
و برای خواندن مجدد اونها از فایل :
کد:
Dim Text As String
If Dir("Texts.txt") = "" Then Exit Sub
Open "Texts.txt" For Input As #1
Line Input #1, Text
Text1.Text = Replace(Text, "<BR>", vbCrLf)
Line Input #1, Text
Text2.Text = Replace(Text, "<BR>", vbCrLf)
Close #1
