ممكن عمل كود لحفظ المكتوب داخل اداة TextBox
يعني لو اكتب داخل TextBox واضغط زر حفظ ثم اغلق التطبيق واشغله من جديد اجد المكتوب موجود
وكذلك لو انقل التطبيق لكمبيوتر اخر اجد المكتوب موجود داخل TextBox موجود
ولما اعمل تعديل على المكتوب داخل TextBox من قبل واضغط زر حفظ يحفظ التحديث الجديد الموجود داخل TextBox
عندي في النموذج عدد 12 من اداة TextBox وزر واحد من Button
وما افضل طريقه لحفظ البيانات الموجود داخل TextBox هل تخزينها داخل قاعدة بيانات ولا ايش ؟
اذا شغلة مربع نص فهي لا تستحق أكثر من ملف 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
كمثال تم وضع كل كود ضمن زر أمر ..
أما أين تريد استخدام الأكواد ومتى تسترجعهن .. فأنت أدرى أين تضع كل كود بما يناسبه..
شكرا لك عزيزي
ماهو ملف xml وهل يعمل على نظام ويندوز
اما زر استعاده ما الفائده منه انا ابغى اكتب واحفظ المكتوب فقط ويعمل حتى بعد النقل لكمبيوتر اخر اجد موجود المكتوب داخل TextBox عند تشغيل التطبيق
ولو تقدر لو مش اليوم تعمل ملف للمشروع وترفع المشروع هنا ولا تغير اسم الاداة الافتراضي مثل TextBox و Button
فقط جرب تشتغل بايدك وراح تعرف أنها أ[سط من أن تظل تنتظر حتى يتم حل الأمر وتستلمه ع الجاهز..
لا تعتمد يكون كل شي جاهز(نسخ ولصق)
وإلا أين دورك ك مبرمج..؟؟!!
بعد تطبيق المثال
عند الكتابة داخل اداة TextBox اكتب فيها مثلا هلا ثم اضغط زر للحفظ ثم اغلق التطبيق
وعند تشغيل التطبيق لا اجد كلمة هلا داخل اداة TextBox
وعند الضغط على زر
للاستعادة تظهر الكلمة هلا انا اريد تظهر كلمة هلا بدون الضغط على زر للاستعادة عند تشغيل التطبيق
ضع كود الاستعادة في حدث تحميل النافذة
فيستيعد أثناء ظهور النافذة.
لا ادري لماذا لا يعمل الاقتباس و زر الرد يحيلني الى رابط فارغ و صفحة المنتدى تظهر بشكل غريب كأنها اكواد لينكس وجداول كثيرة.
فقط زر "+رد جديد" هو الذي يعمل
بالنسبة لملفات xml هي ملفات عادية مثل اي ملفات نصية txt او غيره
ادخل مجلد bin للبرنامج وستجد الملف الذي انشاته هناك وتستطيع قراءة ما فيه بسحبه الى برنامج المفكرة notepad
بالنسبة لقراءة الملف او الاسترجاع يوضع الكود في حدث تحميل النافذة load form
اذا كنت لا تعرف كيف تظهر هذا الحدث..انقر مرتين على الفورم وسيظهر الكود الخاص به ..ثم ضع كود الاسترجاع داخله
(( بالنسبة لملفات xml هي ملفات عادية مثل اي ملفات نصية txt او غيره ))
وهل انقل الملف xml مع الملف الجاهز exe لكمبيوتر اخر حتى يظهر المحفوظ بالتطبيق من قبل
بعد البحث عن ملف xml يوجد اكثر من ملف بنفس الامتداد داخل نفس المجلد Debug
اي واحد انقل مع الطبيق exe
لو تصفحت الكود الذي ارفقه الاخ طه لوجدت الاسم بسهولة
dt1.ReadXml("TA.xml")
TA.xml هو اسم الملف
نعم اذا نقلت البرنامج الى جهاز اخر يجب نقل الملف معه
هذا مثال أخر باستعمال ملف نصي
http://vb4arb.com/vb/showthread.php?tid=48456