مشکل با بخش تنظیمات برنامه

[Assassin-Wolf 13]

سلام

آقا این مشکل ما از خیلی وقت پیش شروع شده حل هم نشده

من وقتی این خط رو

ts.LongText(l,l.Text,File.ReadString(File.DirInternal,"FontSize.txt"),sc,File.ReadString(File.DirInternal,"lineheight.txt"))

به سورس ام اضافه میکنم این مشکل به وجود میاد

http://upir.ir/khordad94/guest/bandicam-2015-07-04-02-14-30-266.jpg

این هم LOg های DEbug

http://upir.ir/khordad94/guest/bandicam-2015-07-08-02-09-59-095.jpg

اگه روشی هست که اطلاعات رو بدون TExtSetting هم در بقیه قسمت ها انجام بده بگید

این هم سورس

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: False
#End Region
 
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
	Dim s As SQL
 
End Sub
 
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
	Dim sc As ScrollView
	Dim ts As TextSetting
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
	'Activity.LoadLayout("InfoJK_Matlab")
	If File.Exists(File.DirInternal,"Joke-db.db") = False Then
	File.Copy(File.DirAssets,"Joke-db.db",File.DirInternal,"Joke-db.db")
	End If
	
	If s.IsInitialized=False Then
	s.Initialize(File.DirInternal,"Joke-db.db",False)
	End If

  	sc.Initialize(800dip)
  
	Dim cur1 As Cursor
	cur1 = s.ExecQuery("SELECT * FROM Mytable where id="&InfoJK.fasl)
	cur1.Position=0
	


	Activity.AddView(sc,0,0,100%x,100%y)
	
 
	Dim l As Label
	l.Initialize("l")
	l.Text=cur1.GetString("matn")
	l.TextColor=Colors.Black
	l.Typeface=Typeface.LoadFromAssets(File.ReadString(File.DirInternal,"FontType.txt") & ".ttf")
	ts.LongText(l,l.Text,File.ReadString(File.DirInternal,"FontSize.txt"),sc,File.ReadString(File.DirInternal,"lineheight.txt"))
	
	sc.Panel.AddView(l,10dip,0,95%x,sc.Height)
	
	sc.Color=Colors.ARGB(255,191, 85, 236)
	
	Dim su As StringUtils
	Dim f As Float
	f=su.MeasureMultilineTextHeight(l,l.Text)
 	l.Height=f
 	sc.Height=sc.Panel.Height
	sc.Panel.Height=f+80%y

 
End Sub
 
Sub Activity_Resume
 
End Sub
 
Sub Activity_Pause (UserClosed As Boolean)
 
End Sub

[Assassin-Wolf 13]

کسی نیست کمک کنه؟

[shahab.es 5,429]

سلام

تکست ستینگ خیلی راحته

من روش دیگه ای رو امتحان نکردم

یه سوال

شما تو فایل های تکست ، عدد دادی قبلا؟

یا خالین...

اگه خالین که عدد بذار توشون و برنامه رو انیستال و دوباره نصب کن

راستی

چک کن که فایل هارو تو دیر اینترنا کپی کرده باشی....

[Assassin-Wolf 13]

داخل فایل های Txt عدد هست

و فایل ها هم داخل دیر اینترنا کپی کرده بودم از اول

مشکلش چیه

[Assassin-Wolf 13]

کسی نیست کمک کنه؟؟

[مهدی ایزدی 9,203]

پیشنهاد میکنم از کتابخانه ای که جناب قبادی به صورت اختصاصی برای انجمن نوشتن استفاده کنید :

http://answercenter.ir/topic/1905-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-%D8%B3%D8%A7%D8%AE%D8%AA-%D8%AA%D9%86%D8%B8%DB%8C%D9%85%D8%A7%D8%AA-%D9%88-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D8%AA%D9%86%D8%B8%DB%8C%D9%85%D8%A7%D8%AA-%D9%86%D8%B3%D8%AE/

 

تست شده و بدون هیچ گونه مشکلی هست !