فيوجوال بيسك

[aljarh94]

السلام عليكم ورحمة الله وبركاته

اريد كود او شفرة
مثال
انا اضفت مربع النص text
واريد لما اسكر البرنامج ينحفظ اللى كتب عليه
يعني لما اسكر البرانامج وافتحه مرة ثانية احصل الكلام اللى كتبته قبل في مربع النص احصل ما متسح

[Dufangoer]

تم تحرير من قبل المشرف العام .....mokhtar1

[CoDe.NeT]

vb6 أم vb.net???

[aljarh94]

vb6 أم vb.net???



visual_basic 6

[CoDe.NeT]

vb6
قراءة ملف نصي معين

Dim k As String
Open "d:\agc\user.txt" For Input As #1
Do While Not EOF(1)
Input #1, k
Text1.Text = Text1.Text + " " + k
Loop
close



---------------
كتابة إلى ملف نصي معين

في أعلى الفورم

Option Explicit

Dim entry As String




وفي الحدث



Open "C:\aaa.txt" For Output As #2 ' WRITE TO FILE
Print #2, Text1
Close #2



-------------------------------------------------------------------------
الآن سنستخدم الأكواد السابقة لعمل ما تريد:
أولا عند تشغيل الفورم يتم القراءة من الملف النصي aaa.txt الموجود في القرص c


Private Sub Form_Load()
Dim k As String
Open "c:\aaa.txt" For Input As #1
Do While Not EOF(1)
Input #1, k
Text1.Text = Text1.Text + " " + k
Loop
Close
End Sub




إذا كنت تعرف حدث اإلاغلاق (بنفس طريقة Form1_Load أو وضعت زر للإغلاق فاكتب فيه التالي:



Open "C:\aaa.txt" For Output As #2 ' WRITE TO FILE
Print #2, Text1
Close #2

المراجع
موقع vb4arab
موقع allexperts

[nosmoking]

اخوي استخدم الريجيستري للحفظ و الاسترجاع
راجع
SaveSetting VBKeyName, Section, Key, Setting
VariantVariable = GetAllSettings(VBKeyName, Section)

شوف الرابط هذا يمكن يساعدك
http://www.codeguru.com/csharp/csharp/cs_network/configurationfilesinis/article.php/c12067

[aljarh94]

مشكوووووووررين