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

[rezamoaser 53]

با عرض سلام منکتابخونه ای درست کردم با مولتیپنل اما اطلاعات دریافتی رو کامل روی صفحه سفید شکل زیر نمیاره میخواتم بدونم کدی که در زیرگذاشتم مشکل داره یا اسکرول ویو البته من تازه بامولتی کار میکنم

 همون طور که تو شکل مشخصه ادامه داره متن اما روی صفحه سفید نمیادش
 

#Region  Activity Attributes
    #FullScreen: True
    #IncludeTitle: False
#End Region

Sub Process_Globals
   
    Dim SQL1 As SQL
    Dim cursur1 As Cursor

End Sub

Sub Globals

    Private Panel1 As Panel
    Private Label1 As Label
    Private btnnumber As Button
    Private btnshare As Button
    Private btncopy As Button
    Private ScrollView1 As ScrollView
    Private Label4 As Label


    Dim myfont As Typeface
    Dim text As String
    Dim ht As Float
    Dim StrUtil As StringUtils
    Dim PanelHeight As Int
   
End Sub

Sub Activity_Create(FirstTime As Boolean)
   
    If File.Exists(File.DirInternal,"sms1.db")=False Then
    File.copy(File.DirAssets,"sms1.db",File.DirInternal,"sms1.db")
    End If
    If SQL1.IsInitialized = False Then
    SQL1.Initialize(File.DirInternal,"sms1.db",True)
    End If
cursur1 = SQL1.ExecQuery("SELECT txt FROM tbl")

    myfont = Typeface.LoadFromAssets("byekan.ttf")
    Activity.LoadLayout("sv")

    For i=0 To cursur1.RowCount-1
    cursur1.Position=i
    text= cursur1.GetString("txt")
    ScrollView1.Panel.Color = Colors.Transparent
   
    Dim p1 As Panel
    p1.Initialize("")
    p1.LoadLayout("NOIS")
    ScrollView1.Panel.AddView(p1,0,PanelHeight,1000%x,1000dip)
   
    Label4.text="بینی گوشتی"
    Label4.Typeface=Typeface.LoadFromAssets("byekan.ttf")

    btnshare.Tag = i
    btncopy.Tag = i
    btnnumber.text = i + 1
    btnnumber.Typeface=Typeface.LoadFromAssets("byekan.ttf")

    ht=art(text,Label1,myfont,20)
    Label1.TextColor=Colors.Black
    p1.Height=ht+70dip
    PanelHeight=PanelHeight+ht+70dip
    Next
    ScrollView1.Panel.Height=PanelHeight
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

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")    'Get the height of line BEFORE you change it
            Obj1.Target = leb
            Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float")  'Change the space between lines
            Obj1.Target = leb
            after = Obj1.RunMethod("getLineHeight")    'Get the height of line AFTER  you change it
            ht = ((after * ht)/before)
        leb.Height = ht
Return  ht

End Sub

Sub btnshare_Click
        Dim cursor3 As Cursor
    cursor3 = SQL1.ExecQuery("SELECT txt FROM tbl")
    Dim btn2 As Button
    btn2=Sender
    cursor3.Position =btn2.Tag
    Dim matnsms As Label
    matnsms.Initialize("")
    matnsms.text=cursor3.GetString("txt")
    cursor3.Close
    Dim share As Intent
    share.Initialize(share.ACTION_SEND,"txt")
    share.SetType("text/plain")
    share.PutExtra("android.intent.extra.TEXT", matnsms.text)
    share.WrapAsIntentChooser("متن خود را به اشتراک بگذارید....")
    StartActivity(share)
End Sub

Sub btncopy_Click
        Dim something As BClipboard
    Dim cursor2 As Cursor
    cursor2 = SQL1.ExecQuery("SELECT txt FROM tbl")

    Dim btn2 As Button
    btn2=Sender
   
    cursor2.Position =btn2.Tag
    something.clrText
    something.settext(cursor2.GetString("txt"))
    ToastMessageShow("متن در کلیپ بورد کپی شد",False)
    cursor2.Close
End Sub

[rezamoaser 53]

s

 

سورست رو بذار ببینم

سلام ممنون اینم کدش

http://s6.picofile.com/file/8251654984/FACE.rar.html

[rezamoaser 53]

سورست رو بذار ببینم

دوست عزیز سرور رو گذاشتم

[MoniSoft 14]

دوست عزیز سرور رو گذاشتم

 بفرما تا جایی که تونستم درستش کردم اگه ایراد داشت ببخش.

سعی کن متن های کوتاه بذاری توپنل متن هات خیلی بزرگه.

دریافت

[rezamoaser 53]

lvsd uc

 

 بفرما تا جایی که تونستم درستش کردم اگه ایراد داشت ببخش.

سعی کن متن های کوتاه بذاری توپنل متن هات خیلی بزرگه.

 

مرسی عزیز ممنون

[rezamoaser 53]

داداش

 

lvsd uc

 

مرسی عزیز ممنون

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

    Panel1.Width = 100%X
    Panel1.Height = 1000%x

[MoniSoft 14]

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

 

در این فسمت از کدها :

    ht=art(text,Label1,myfont,20)
    Label1.TextColor=Colors.Black
    p1.Height=ht+70dip
    PanelHeight=PanelHeight+ht+70dip
    Next
    ScrollView1.Panel.Height=PanelHeight

به شکل زیر تغییر بده امیدوارم مشکلت حل بشه :

ht=art(text,Label1,myfont,20)
Label1.TextColor=Colors.Black
Label1.Top = 9%y
Label1.Left = 3%x
Label1.Width = 86%x
p1.Height=ht+60dip
PanelHeight=PanelHeight+ht+60dip
Next
ScrollView1.Panel.Height=PanelHeight

[rezamoaser 53]

 

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

 

در این فسمت از کدها :

    ht=art(text,Label1,myfont,20)
    Label1.TextColor=Colors.Black
    p1.Height=ht+70dip
    PanelHeight=PanelHeight+ht+70dip
    Next
    ScrollView1.Panel.Height=PanelHeight

به شکل زیر تغییر بده امیدوارم مشکلت حل بشه :

ht=art(text,Label1,myfont,20)
Label1.TextColor=Colors.Black
Label1.Top = 9%y
Label1.Left = 3%x
Label1.Width = 86%x
p1.Height=ht+60dip
PanelHeight=PanelHeight+ht+60dip
Next
ScrollView1.Panel.Height=PanelHeight

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

کد بالا رو زدم اما صفحه نه تنها بزرگ شد بلکه کوچک تر هم شد البته بابت کمک ممنونم

[MoniSoft 14]

سورست رو بذار ببینم