كيف حفظ مايكتب بالتيكست سؤال

أخي هل تريد حفظه في قاعدة بيانات ولا ملف نصي؟

اخي المطلوب الحفظ بالتكست بس يعني يمكن قاعدة البيانات مش لازمة

يمكنك إستعمال الحفظ في ملف نصي مع البرنامج الرئيسي وطريقتها التالي :

Dim sString As String
sString = Text1
Open App.Path & "\data.txt" For Binary Access Write As #1
 Put 1, , sString
Close #1

هذا لحفظ النص في ملف ::: والأفضل إستدعاءه عند حدث الفورم أن لود

وعند تشغيل البرنامج وفي حدث الفورم لود (لا تسأل وشو الفورم لود )

تقد تضيف الكود التالي:

If Dir(App.Path & "\data.txt") <> "" Then
	Dim sString As String
	Open App.Path & "\data.txt" For Binary Access Read As #1
	 sString = Space(LOF(1))
	 Get 1, , sString
	Close #1
	Text1 = sString
End If

بكذا يقرأ محتويات الملف ويضعها في تكست ....

أو إذا كان برنامجك صغير ولا تريد إرفاق ملفات معه فعليك بإستخدام الريجستري

وطريقة العمل هي بإستخدام الدالة SaveSettings ودالة GetSettings

لحفظ قيمة :

SaveSetting "MK", "DATA", "TEXT1", Text1.Text

ولقراءة قيمة:

Text1 = GetSetting("MK", "DATA", "TEXT1")

أعذرني على عدم التفصيل ولكن على إفتراض أنك تملك خبرة تقدر بـ 25 % بالفيجوال ...

إذا أردت أن أرفق مثال أو أن أقوم بشرح تفصيلي فأرجو إخباري وسأقوم بالواجب

الله يعطيك الف عافية على المساعدة