طلب:"كود يقوم بحفظ ماكتب في التكسيت تلقائيا"

Text1.Text = Mid(CommonDialog1.Path, 1, InStrRev(CommonDialog1.Path, "\"))

Text2.Text = Mid(CommonDialog1.Path, InStrRev(CommonDialog1.Path, "\") + 1)

أما بالنسبة لحفظ قيمة بمربع نص آخر كما يلي :

Open Text1.Text & Text2.Text For Output As #1
Print#1,Text3.Text
Close#1

شكراً

طيب ياخوي وش فايدة الكود التالي واين يوضع

Text1.Text = Mid(CommonDialog1.Path, 1, InStrRev(CommonDialog1.Path, "\"))

Text2.Text = Mid(CommonDialog1.Path, InStrRev(CommonDialog1.Path, "\") + 1)

الأخ الكريم مش أنت بتفتح نافذة Open كما يلي :

CommonDialog1.ShowOpen

بعد عرض الديالوج كما يلي :

CommonDialog1.ShowOpen
If(CommonDialog1.FileName <> "")Then
   Text1.Text = Mid(CommonDialog1.Path, 1, InStrRev(CommonDialog1.Path, "\"))
   Text2.Text = Mid(CommonDialog1.Path, InStrRev(CommonDialog1.Path, "\") + 1)
End If

شكراً

هذة طريق حفظ مايكتب علي التكست دون تخل منك حتي لو اغلق الفورم سحفظ ماكتب

الطريقة ببساطة شديدة تقوم بالكتابة الي الرجستري

Save.rar

مش دايماً مسجل النظام يكون جيد !!!

علي سبيل المثال لديك برنامج يتطلب تخزين معلومات عن برنامجك لحوالي 200 معلومة ، ولكل مستخدم له هذا العدد بحيث أن يختلف التعدادات من مستخدم الي آخر والله أعلم بعدد المستخدمين ( 5 - 6 - 7 - 8 - ... الي آخرة ) !!!

حيث بمجرد وقوع نظام التشغيل يلغي كل شيء ، لذلك أحياناً مسجل النظام يكون غير جيد !!!

لكنه جيد في أمور أخري !!!

شكراً