رفتن به مطلب
  • 0

مشکل در برنامه (ErroR)


Assassin-Wolf

سوال

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

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

این هم کدی که اضافه شده

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

این هم سورس اون قسمت

#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
 
لینک ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام یکی راهنماییم کنه که ارور configure paths یعنی چی چطوری حل میشه؟

فایلایی رو که میخوتد چطوری باید گیر بیارم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام یکی راهنماییم کنه که ارور configure paths یعنی چی چطوری حل میشه؟

فایلایی رو که میخوتد چطوری باید گیر بیارم

باسلام

دوست عزیز به انجمن ما خوش اومدی!

1-قبل از اینکه هر سوالی بپرسی یه سرچ کوچیک بکن توی انجمن اگه جواب داده نشده بود اونوقت سوال بپرس

2-هرسوالی که خواستی بپرسی واسش یه تاپیک جداگونه برن الان بحث به چیز دیگس توی این تاپیک و سوال شما یه جیز دیگه

(برای ازسال تاپیک از بخش برنامه نویسی در صفحه اول انجمن ، پاسخگویی به سوالات رو انتخاب کن و از بالا سمت چپ ارسال موضوع جدید رو بزن)

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...