[Taha Okla]

اذا شغلة مربع نص  فهي لا تستحق أكثر من ملف xml

للحفظ تستخدم الكود :

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim dt1 As New DataTable("tb1")
       dt1.Columns.Add("text1")

       dt1.Rows.Add(TextBox1.Text)
       dt1.WriteXml("TA.xml")

   End Sub

وللاستعادة الكود :

كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim dt1 As New DataTable("tb1")
       dt1.Columns.Add("text1")
       dt1.ReadXml("TA.xml")

       TextBox1.Text = dt1.Rows(0)(0)
   End Sub

كمثال تم وضع كل كود ضمن زر أمر ..

أما أين تريد استخدام الأكواد ومتى تسترجعهن .. فأنت أدرى أين تضع كل كود بما يناسبه..