كمك در مورد لود فايل تكست

[amiralex]

با سلام
من در ضميمه زير ميخوام وقتي كاربر در تكست باكس يه كلمه ايي مثل "Amir" رو نوشت با زدن دكمه OK اون در يك فايل متني از نوع INI ذخيره بشه و اين كار با هر بار باز شدن فرم تكرار بشه. يعني تو همون فايل كه قبلا نوشته شده بود "Amir" دفعه بعد بشه چيز ديگه

و يه مورد ديگه اينكه ميخوام هنگام لود شدن فرم اون كلمه كه در فايل متن بود در تكست باكس ظاهر بشه

در حقيقت اينوبرا فرم لوگين ميخوام كه كاربر مجبور نباشه هر بار يوزرنيمشو وارد كنه
من اين كار رو كردم ولي ارور ميده. ديونم كرد

با تشكر

[m.4.r.m]

اولا فرم لاگین رو با فایل INI درست نمی کنن که امنیتش پایین باشه اینو با دیتابیس باید درست کنی که راحت و بی دردسر می تونه انجام بگیره از فایل های INI برای تنظیمات فرم ها بیشتر استفاده میشه تا کد کاربری و این حرف ها

[vbhamed]

سلام
شما فايل رو مخفي كردين، موقع خوندن هم بايد بگيد ممكنه فايل مخفي باشه
خط اول Form_load رو تغيير بدين
If Dir(Environ("userprofile") + "\Desktop\username.ini", vbHidden Or vbNormal) <> "" Then

[amiralex]

با سلام
خدمت دوست بزرگوارمون عرض كنم من براي فرم لوگين از ديتابيس استفاده كردم هدفم براي استفاده از INI به قولي تنظيمات فرم هست
به عبارتي ميخوام كاربر مجبور نباشه هم در كادر يوزرنيم و هم در كادر پسورد اطلاعاتي رو براي لاگين كردن وارد كنه. ميخوام بلافاصله بعد از باز شدن فرم لاگين نام كاربري كه اون شخص آخرين بار استفاده كرد در اون درج بشه

با تشكر و ارادت

[amiralex]

دوستان خوبم يه مشكلي ديگه هم هست
البته مدير اين قسمت لطف كردن در رويداد Load مشكل و گفتن اما در قسمتي كه ميخوام متني رو در اين فايل تكست بريزم ارور پيدا نكردن مسير رو ميده

كدها رو اين صورت نوشتم


Private Sub Form_Load()


If Dir(Environ("userprofile") + "\Desktop\username.ini", vbHidden Or vbNormal) <> "" Then
Open Environ("userprofile") + "\Desktop\username.ini" For Input As #1
Dim Stri As String
Line Input #1, Stri
txtmasir = txtmasir + Stri
Close #1

End If

End Sub



Private Sub Command_Click()

Dim x As Integer
x = FreeFile
Open Environ("userprofile") + "\Desktop\username.ini" For Output As x
Print #x, txtmasir.Text
Close x
SetAttr Environ("userprofile") + "\Desktop\username.ini", vbHidden

End Sub

ممنون

[محسن واژدی]

سلام علیکم
میتوانیم از توابع WritePrivateProfileString و GetPrivateProfileString برای نوشتن در فایل های INI استفاده کنیم که برای خواندن و نوشتن در این فایلها استفاده میشن

ضمیمه رو بررسی کنید

موفق باشید