ذخیره تنظیمات و اعمال در صفحه تنظیمات

[علی علایی 161]

سلام 

من میخام تو صفحه تنظیمات تغییراتی که میدم حفظ شود 

مثلا قلم یک و سایز 30و رنگ سبزدادم و به برنامه اعمال شد وقتی برگشتم به صفحه تنطیمات تغییراتی که دادمو ببینم 

نمیدونم خوب منظورو رسوندم یا نه 

من برای ذخیره و اعمال  تنطیمات تو برنامه از کد زیر استفاده میکنم 

fontt=Spinner1.SelectedIndex
	size=SeekBar1.Value
	color2= color1.RGB
		
	Dim list1 As List
	list1.Initialize
	list1.Add(fontt)
	list1.Add(size)
	list1.Add(color2)
	'list1.Add(ass)
	File.WriteList(File.DirInternal,"setting.stg",list1)
	

و تو صفحه مطلبم این کد 

If File.Exists(File.DirInternal,"setting.stg")=True Then
	File.Exists(File.DirInternal,"setting.stg")
	Dim list1 As List
	list1=File.ReadList(File.DirInternal,"setting.stg")
	tanzim.fontt=list1.Get(0)
	tanzim.size=list1.Get(1)
	tanzim.color2=list1.Get(2)

ممنون میشم که راهنمایی بفرمایید

[alireza_hsi 160]

باید تنظیمات رو در یک فایل تکست سیو کنید تا برای همیشه بمونند حتی وقتی برنامه بسه شد و باز شد دوباره بیاد از همون  تنظیمات اتفاده کند

[علی علایی 161]

ممنون 

والا یه نفر بهم گفته بود که همون کدهای که برای صفحه مطلب هست رو تو صفحه تنطیمات بیاری حله ولی نشد 

کسی تا حالا این کار انجام داده؟