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

[mahdig502 27]

سلام خدمت اساتید
من ی دسته پیامک دارم ک وقتی دسته ای لود میشه کلا خیلی کند لود میشه
میخوام لیمیت بدم و با اسکرول چنج 10 تا 10 تا پیامک لود کنم
ممنون میشم راهنمایی کنید
اینم کد لود پیامک ها:
 

Sub sss1
        Dim SQL1 As SQL
    Dim cur1 As Cursor
        Activity.LoadLayout("sv1")
        SetStatusBarColor(Colors.RGB(192,9,70))
  
    If File.Exists(File.DirInternal,"smslove.db")=False Then
    File.copy(File.DirAssets,"smslove.db",File.DirInternal,"smslove.db")
    End If
    
    If SQL1.IsInitialized = False Then
    SQL1.Initialize(File.DirInternal,"smslove.db",True)
    End If
    
    cur1 = SQL1.ExecQuery("SELECT * FROM tbldel")
    
    myfont = Typeface.LoadFromAssets("parastoo.ttf")
    
    For i=0 To cur1.RowCount-1
    cur1.Position=i
    text= cur1.GetString("smsdel")
    
    ScrollView1.Panel.Color = Colors.Transparent    
    Dim p1 As Panel
    p1.Initialize("")
    ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100%y)
    p1.LoadLayout("sms") 
    
    share.Tag = i
    copy.Tag = i
    Btnlike.Tag = cur1.Getint("id")
    ht=art(text,Label1,myfont,3.7*a)
    Label1.TextColor=Colors.Black
    p1.Height=ht+70dip
    PanelHeight=PanelHeight+ht+70dip

    Dim check As Int
    check = cur1.Getint("fav") 
    If check=0 Then
    Btnlike.SetBackgroundImage(LoadBitmap(File.DirAssets,"noheart.png"))
    Else If check=1 Then
    Btnlike.SetBackgroundImage(LoadBitmap(File.DirAssets,"heart.png"))
    End If
    Next
    ScrollView1.Panel.Height=PanelHeight
    Lblcatalog.Text = "تنهایی"
    Lblcatalog.Gravity = Gravity.CENTER
    Lblcatalog.TextColor = Colors.White
    Lblcatalog.TextSize = 4.7 * a
    Lblcatalog.Typeface = Typeface.LoadFromAssets("Yekan.ttf")
End Sub

 

[mehdi.m 158]

سلام دوست عزیز.

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

[mahdig502 27]

من خیلی گشتم دوستان همه یا سوال پرسیدن یا یک هزار خط کد دادن که خیلی سخته پیدا کردن اون چیزایی که میخوام 
اگه میشه بگید چجوری لیمیت بدم 10 تا 10 تا 
و چجوری با اسکرول کردن 10 تای دیگ لود بشه


اگه هم تاپیک مفیدی در این مورد هست معرفی کنید

[mehdi.m 158]

در ۱ ساعت قبل، mahdig502 گفته است :

من خیلی گشتم دوستان همه یا سوال پرسیدن یا یک هزار خط کد دادن که خیلی سخته پیدا کردن اون چیزایی که میخوام 
اگه میشه بگید چجوری لیمیت بدم 10 تا 10 تا 
و چجوری با اسکرول کردن 10 تای دیگ لود بشه


اگه هم تاپیک مفیدی در این مورد هست معرفی کنید