ارور ر کمپایل شدن و اجرای برنامه

[e251 12]

سلام دوستان شرمنده که تاپیک زدم یه سوال داشتم من موقع اجرای برنامه این ارور رو متوجه میشم که عکسشو گذاشتم

 

 

اگه مشکل از کده بگید تا بزارمش

 

[Hamed Sabet Farhadi 707]

کد رو قرار بدید

[amirbeigi 192]

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

[e251 12]

ممنون از انجمن فعال و دوستان خوب
 
اینم کد

 

 

Sub process_Globals

 

 

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 panelheight As Int

Dim text As String

Dim strUtils As StringUtils

Dim ht As Float

Dim mfont As Typeface

Private ScrollView1 As ScrollView

Private Label1 As Label

End Sub

 

Sub Activity_Create(FirstTime As Boolean)

 Activity.LoadLayout("s3")

text= File.ReadString(File.DirAssets,"1.txt")

mfont=Typeface.LoadFromAssets("KGTrueColors.ttf")

scroll

End Sub

 

Sub scroll

ScrollView1.Initialize(500dip)

Activity.AddView(ScrollView1, 0, 17%y, 100%x, 70%y)

panelheight=0

Dim lbltest As Label

lbltest.Initialize("lbltest")

ScrollView1.Panel.AddView(lbltest,2dip, panelheight, 100%x-5dip, 50dip)

lbltest.TextSize=18

lbltest.TextColor=Colors.Green

ht= art (text,lbltest,mfont,20)

panelheight=panelheight+ht+25dip

panelheight=panelheight+80dip

ScrollView1.Panel.Height=panelheight

End Sub

 

Sub art(txt As String,leb As Label,font As Typeface,size As Int) As Float                                 

Dim before,after As Float

Dim Obj1 As Reflector

leb.text=txt

leb.TextSize=size

leb.Gravity=Gravity.CENTER

leb.Left=leb.Left

leb.Typeface=font

ht = strUtils.MeasureMultilineTextHeight(leb , txt)

            Obj1.Target = leb  

            before = Obj1.RunMethod("getLineHeight")   

            Obj1.Target = leb 

            Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float")  

            Obj1.Target = leb 

            after = Obj1.RunMethod("getLineHeight")  

            ht = ((after * ht)/before)

leb.Height = ht

Return  ht

 

End Sub

Sub Activity_Resume

 

End Sub

 

Sub Activity_Pause (UserClosed As Boolean)

 

End Sub

[e251 12]

دوستان ممنون مشکلم حل شد...

توی دیزاینر باید فونتم رو 

ADD FILES

میکردم.

 

 

ممنونم

[amirbeigi 192]

فونت رو توی برنامه اوردی ؟

(1.نیازی نبود کل کدو بدی همون اکتویتی کریت کافی بود 2. از گزینه <> برای کد ها استفاده کن بهتره ...)