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

[kavehshahedi 16]

درود

دوستان با عرض پوزش دوباره برای من یه مشکلی پیش اومده... من یه کد برای تنظیمات دارم که در اولین بار اجرای برنامه اکتیویتیش اجرا میشه و تنظیمات رو ذخیره میکنه ولی نمی دونم چرا از دفعات بعدی که اکتیویتیش اجرا نمیشه در یه اکتیویتی دیگه که از متغیر اکتیویتی تنظیمات استفاده میکنه ارور میده و نمی تونه فونت رو پیدا کنه... 

این کد تنظیمات هستش ممنون میشم دوستان بگن مشکلش کجا هستش :

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	Dim FontSize As String
	Dim FontType As String
End Sub

Sub Globals

	Private SeekBar1 As SeekBar
	Private Spinner1 As Spinner
	Private Label3 As Label
	Private ScrollView1 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("scroll")
	Activity.Title = "تنظیمات"
	ScrollView1.Panel.LoadLayout("Setting")
	If File.Exists(File.DirInternal,"FontType.txt") = False Then
		File.Copy(File.DirAssets,"FontType.txt",File.DirInternal,"FontType.txt")
	End If
	If File.Exists(File.DirInternal,"FontSize.txt") = False Then
		File.Copy(File.DirAssets,"FontSize.txt",File.DirInternal,"FontSize.txt")
	End If
	If File.Exists(File.DirInternal,"lineheight.txt") = False Then
		File.Copy(File.DirAssets,"lineheight.txt",File.DirInternal,"lineheight.txt")
	End If
	
	Spinner1.AddAll(Array As String("byekan","bnazanin","Rezvan"))
	FontType = File.ReadString(File.DirInternal,"FontType.txt")
	FontSize = File.ReadString(File.DirInternal,"FontSize.txt")
	SeekBar1.Value = FontSize
	
	Dim ts As TextSetting
	ts.LabelDesign(Label3,SeekBar1.Value,"Null",FontType)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
	Label3.TextSize = Value
	FontSize = Value
End Sub

Sub Spinner1_ItemClick (Position As Int, Value As Object)
	Label3.Typeface = Typeface.LoadFromAssets(Value&".ttf")
	FontType = Value
End Sub
Sub Button1_Click
	File.WriteString(File.DirInternal,"FontType.txt",Spinner1.SelectedItem)
	File.WriteString(File.DirInternal,"FontSize.txt",SeekBar1.Value)
	ToastMessageShow("تنظیمات با موفقیت اعمال شد",False)
	StartActivity(Main)
	Activity.Finish()
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	If KeyCode = KeyCodes.KEYCODE_BACK Then
		StartActivity(Main)
		Activity.Finish
	End If
End Sub

با تشکر

[coco 1,746]

شما باید از نوع int تعریف میکردین متغیر هاتون رو!

و بجای read string از read list.

البته من مطمعن نیستم و دوستان باید بگن.