مشکل در استفاده از مقدار ذخیره شده

[kavehshahedi 16]

درود مجدد

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

این کد لیبل هستش که از مقدار ذخیره شده استفاده میکنه :

Dim Label1 As Label
			Label1.Initialize("")
			Label1.Color=Colors.White 
			Label1.TextColor=Colors.Black
			Label1.Text=line
			Label1.TextSize=Setting.FontSize
			Label1.Typeface=Typeface.LoadFromAssets(Setting.FontType&".ttf")

اینم کد ذخیره ی اطلاعات هستش :

#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

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

با تشکر

[kavehshahedi 16]

دوستان اینم کد اکتیویتی Main هستش گفتم شاید نیاز بشه :

#Region  Project Attributes 
	#ApplicationLabel: Test
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
#End Region

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

Sub Process_Globals
	
	
End Sub

Sub Globals
	Dim slide As SlidingMenu
	Dim List1 As ListView
	Private ImageView3 As ImageView
	Private ImageView1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	'Activity.LoadLayout("Layout1")
	If File.Exists(File.DirInternal,"1.txt")=False Then
	File.WriteString(File.DirInternal,"1.txt","1")
	StartActivity(Setting)
	
	End If
	
	Activity.LoadLayout("MainMenu")
	
	slide.Initialize("slide")
	List1.Initialize("List1")
	Dim meghdar As Int = 60%x
	slide.BehindOffset = meghdar
	slide.Mode = slide.RIGHT	


	slide.Menu.AddView(List1,0,0,100%x - meghdar,100%y)

	List1.AddSingleLine2("درباره",1)
	List1.AddSingleLine2("تماس با ما",2)
	List1.AddSingleLine2("خروج",3)
	
	List1.SingleLineLayout.Label.Gravity=Gravity.CENTER
	List1.SingleLineLayout.Label.Typeface=Typeface.LoadFromAssets("danstevis.otf")

	
	Dim grad(2) As Int
	grad(0) = Colors.RGB(43,148,229)
	grad(1) = Colors.RGB(44,128,211)
	Dim gradiant2 As GradientDrawable
	gradiant2.Initialize("TOP_BOTTOM", grad)
	slide.Menu.Background = gradiant2
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub ImageView3_Click
	StartActivity("SubjectsList")
End Sub
Sub ImageView2_Click
	slide.ShowMenu
End Sub

Sub List1_ItemClick(Position As Int, Value As Object)


	
	If Value=3 Then
	a=Msgbox2("واقعا می خوای بری؟","خروج از برنامه","اره کار دارم","نه بابا دستم خورد","",Null)
	If(a=DialogResponse.POSITIVE) Then
	Activity.Finish()
	End If
	Return False
	Else
	Return False
	End If
	
	
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean
	If KeyCode = KeyCodes.KEYCODE_BACK And slide.Visible Then
		slide.HideMenus
		Return True
	End If

End Sub
Sub ImageView1_Click
	StartActivity("Setting")
End Sub

با تشکر

 

-----------------------------------------

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

[پژمان نیکروان 6,055]

شما سورس رو پیوست کنید حالا......... من میخوام سورس رو ببینم.

[kavehshahedi 16]

چشم براتون پیغام خصوصی کردمش چون پروژه حقیقی نیست مال یه تیم هستش و نمی تونم برای عموم بزارم البته با عرض پوزش ها!

با تشکر

Updated ----------------------------------------

آقا نیکروان الان هر طور میبینم نمی تونم سورس رو بفرستم چون خیلی از تنظیمات کار گروهه و روش کلی زحمت کشیده شده البته میدونم که شما خودتون استادید و این سورس بدرد شما نمی خوره ولی خوب اونطوری که گفتن نمی تونم (یا نمیزارن  ) که براتون بفرستمش با عرض پوزش اگر امکانش هست یه چند تا روش برای این مشکل ارائه بدید که خیلی ممنون میشم.

با تشکر مجدد

[پژمان نیکروان 6,055]

درود.

الان مشکل شما اینه که بار اول لیبل بخوبی کار میکنه؟

اما دفعات بعد که باید به همون صورت بمونه ، نمیمونه؟؟

اگه ممکنه سورس رو پیوست کنید روش کار کنیم شاید به نتیجه رسیدیم.

[kavehshahedi 16]

بله دقیقا مشکل همینه... والا سورسش چیز خاصی نیست همین هستش با یا اکتیویتی Main که یه دکمه هستش که اگه بزنیمش میره توی اکتیویتی همین متن...

با تشکر