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

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


davood1382

سوال

سلام من یک مولتی پنل ساختم اما وقتی مخواهد برنامه بالا بیاد این ارور رو میده و ناقص میشه مولتی پنلpost-3816-0-34877600-1444487192_thumb.png

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

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

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


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

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

بایگانی شده

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

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

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