مشکل در تنظیمات

[mahdikam 35]

سلام دوستان من یه صفحه تنطیمات درست کردم میخاستم ببینم چه جوری باید در فرم های دیگه ازش استفاده کنم؟اگه کسی اموزش ساخت تنطیماتی که بشه تو فرم های دیگه هم ازش استفاده کرد داره بی زحمت بده لینکشو

[کاربر ناشناس 2,148]

http://s3.picofile.com/file/8214739034/twilight.zip.html

[mahdikam 35]

اقا دمت گرم ک جواب دادی ولی خدایی کدتو متوجه نشدم من میخام تو ستینگ فقط فونت و سایزش تنظیم بشه و تو بقیه فرمها لیبل ها بر اساس اون فونت و اندازه ست بشن

[مجید آرتا 5,874]

سلام

به دو روش می تونید عمل کنید : 

1- به وسیله دیتابیس

2-به وسیله فایل txt

 

ولی خب به نظر من که بهتره از فایل txt  استفاده کنیم تا دوستان دغدغه مشکل در دیتابیس رو نداشته باشن.

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

ببینید شما یک فایل txt  میسازی و توی این فایل اندازه و نوع فونت رو به طور پیش فرض مشحص می کنید.

برای مثال توی فایل تکست می نویسید :

14
0

خب بعد فایل تکست رو توی پوشه Files  اضافه می کنی.در مرحله بعد باید این پوشه رو جایی کپی کنی.مثلا توی DirInternal.حالا شما توی تنظیمات چه کاری رو می تونید انجام بدید ؟ شما در ابتدا میایید متن لیست رو می خونید(باید فایل کپی شده باشه توی یک مسیری جزء DirAssets ).

عدد 14 اندازه فونت و 0 نوع فونت.شما اگه برای اندازه متن از سیک بار و نوع فونت از Spinner  استفاده کردید با این روش می تونید راحت انجام میدید.فرضا شما 4 مدل فونت دارید و دوست دارید فونت اولی به عنوان پیش فرض باشه و چون اندیس Spinner  از 0 شروع میشه واسه همین 0 گذاشتیم یعنی اولین آیتم.

Sub Globals
 Dim Setting As List
End Sub

If File.Exist(File.DirInternal,"set.txt") Then
 Setting.Initialize
 Setting = File.ReadList(File.DirInternal,"set.txt")     
End If 
 

خب اومدیم متن رو در Activity_Create  خوندیم(این کد رو توی Activity_Create قرار بده).

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

برای نوع فونت شما باید توی رویداد ItemClick مربوط به Spinner  به این شکل عمل کنید :

Sub Spinner1_ItemClick (Position As Int, Value As Object)
 Setting.Set(1,Position)
End If

حالا اندازه فونت رو هم توی دکمه ذخیره میتونیم عمل کنیم :

Sub btnSave_Click
 Setting.Set(0,SeekBar1.Value)
 File.WriteList(File.DirInternal,"set.txt",Setting)
 ToastMessageShow("اطلاعات مورد نظر ذخیره شدند.",False)
End Sub

خب ببین این عدد 0 و 1 که توی متد Set  استفاده کردم منظورم همون تغییر دو عدد 14 و 0 هستش که توی فایل تکست بود.عدد 14 چون اولی هستش اندیسش میشه 0 و اون عدد دوم که نوع فونت هستش میشه 1.

تا اینجای کار ما تونستیم مقادیر رو ذخیره کنیم و برای لود و یا اعمال تغییرات در کل برنامه میتونید از Code Module  و یا بدون این ماژول هم میشه.

Sub Globals 
 Dim getSetting As List
End Sub

If File.Exist(File.DirInternal,"set.txt") Then
 getSetting.Initialize
 getSetting = File.ReadList(File.DirInternal,"set.txt")
End If

اینجا هم مثلا اومدیم توی یکی از اکتیویتیها برای ست تنظیمات.اومدیم لیست رو خوندیم و به این شکل عمل می کنیم:
 

Lable1.TextSize = getSetting.Get(0)
 
Dim value As Int = getSetting.Get(1)
Select value
 Case 0
   Label1.TypeFace = TypeFace.LoadFromAssets("BNazanin.ttf")
 Case 1
   Label1.TypeFace = TypeFace.LoadFromAssets("Bkodak.ttf")
 Case 2
   Label1.TypeFace = TypeFace.LoadFromAssets("Byekan.ttf")
 Case 3
   Label1.TypeFace = TypeFace.LoadFromAssets("BAlaki.ttf")
End Select

کد LoadFromAssets  رو مطمئن نیستم درست نوشته باشم خودتون چک کنید.

کل کار به این شکل هستش.

موفق باشید./