saeedzx
یک شنبه 07 تیر 1388, 11:41 صبح
روشی جالب برای ذخیره کردن متن بدون استفاده از بانک و یا txt که شما را در بعضی از مراحل کمک می کند تا همیشه یک فایلی رو حتما ذخیره نکنید
:قلب::قلب::قلب::قلب:
روش استفاده :
یک Form می سازید و بعد در این form یک text و یک command اضافه می کنید
خوب حالا این کد را در Form کپی کنید
Private Sub Command1_Click()
SaveSetting App.Title, "Setting", "Value", Text1.Text
End Sub
Private Sub Form_Load()
Text1.Text = GetSetting(App.Title, "Setting", "Value", "Hello")
End Sub
سرزمین برنامه نویسان (http://www.jadougar.ir)
:قلب::قلب::قلب::قلب:
روش استفاده :
یک Form می سازید و بعد در این form یک text و یک command اضافه می کنید
خوب حالا این کد را در Form کپی کنید
Private Sub Command1_Click()
SaveSetting App.Title, "Setting", "Value", Text1.Text
End Sub
Private Sub Form_Load()
Text1.Text = GetSetting(App.Title, "Setting", "Value", "Hello")
End Sub
سرزمین برنامه نویسان (http://www.jadougar.ir)