مشکل با مولتی پنل

[davood1382 302]

سلام من یک مولتی پنل ساختم اما وقتی مخواهد برنامه بالا بیاد این ارور رو میده و ناقص میشه مولتی پنل

[Elyas Erfani 3,582]

لطفا کدهاتونو قرار بدید 

[davood1382 302]

Activity.LoadLayout("layout")

If File.Exists(File.DirInternal,"multipanel.db") = False Then

File.Copy(File.DirAssets,"multipanel.db",File.DirInternal,"multipanel.db")

End If

sql.Initialize(File.DirInternal,"multipanel.db",False)

cur1 = sql.ExecQuery("SELECT *FROM TBL")

myfont = Typeface.LoadFromAssets("BTraffic.ttf")

For i=0 To cur1.RowCount-1

cur1.Position=i

text= cur1.GetString("SMS")

ScrollView1.Panel.Color = Colors.Transparent

Dim p1 As Panel

p1.Initialize("")

p1.LoadLayout("sms")

ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100dip)

ht=art(text,Label1,myfont,20)

Label1.TextColor=Colors.White

p1.Height=ht+70dip

PanelHeight=PanelHeight+ht+70dip

Next

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 = StrUtil.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

[davood1382 302]

کسی نیست