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

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


mahdig502

سوال

سلام خدمت اساتید
من ی دسته پیامک دارم ک وقتی دسته ای لود میشه کلا خیلی کند لود میشه
میخوام لیمیت بدم و با اسکرول چنج 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
 

 

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

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

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

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

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

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

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


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

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

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

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


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

 

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

بایگانی شده

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

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

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