یه قسمت فهرست هست که عنوان داستان ها رو توی اسکرول ویو لود میکنه
داستان که تو دیتابیس هستن نزدیک 1500 رکود وجود داره
موقعی که این 1500 تا یکجا لود میشه تو اسکرول ویو اپ هنگ میکنه (در واقع مموری پر میشه)
دوستان راه حلی برای اینکار هست ؟؟
حجم و اندازه عکس ها هم پایینه
راه حلی هست که به تدریج لود بشن ؟؟
مثلا همزمان با اسکرول لود بشه
Sub onvanMatnha(ScroollNeme As ScrollView)
cur=sql1.ExecQuery("select * from dastan")
Dim h As Int=1%y
For i =0 To cur.RowCount-1 'tedad 1500ta record
cur.Position=i
Dim p1 As Panel
p1.Initialize("p1")
p1.LoadLayout("fehrest")
Label2.Text=i+1
Label1.Text=cur.GetString("onvan")
Label1.TextColor=Colors.Black
Label1.TextSize=16
Label1.Gravity=Bit.Or(Gravity.CENTER,Gravity.RIGHT)
Label1.Tag=cur.GetInt("id")
Dim b As Bitmap
b.Initialize(File.DirAssets,"fav"&cur.GetString("fav")& ".png")
ImageView2.Bitmap=b
ImageView2.Tag=cur.GetString("id")
ani.ScaleCenterIn("ani",500)
ani.StartAnim(ImageView2)
Dim aniInt As Int
aniInt=Rnd(0,1)
If aniInt=0 Then
ani.ScaleFromRight("ani",500)
ani.StartAnim(p1)
Else
ani.ScaleFromLeft("ani",500)
ani.StartAnim(p1)
End If
ScroollNeme.Panel.AddView(p1,0,h,100%x,100%y)
h=h+12%y
Next
ScroollNeme.Panel.Height=h+5%y
End Sub
سوال
behnam_tr 172
با سلام
من یه مشکل با اسکرول ویو دارم
در واقع سورس مربوطه به یک کتاب هست
یه قسمت فهرست هست که عنوان داستان ها رو توی اسکرول ویو لود میکنه
داستان که تو دیتابیس هستن نزدیک 1500 رکود وجود داره
موقعی که این 1500 تا یکجا لود میشه تو اسکرول ویو اپ هنگ میکنه (در واقع مموری پر میشه)
دوستان راه حلی برای اینکار هست ؟؟
حجم و اندازه عکس ها هم پایینه
راه حلی هست که به تدریج لود بشن ؟؟
مثلا همزمان با اسکرول لود بشه
Sub onvanMatnha(ScroollNeme As ScrollView) cur=sql1.ExecQuery("select * from dastan") Dim h As Int=1%y For i =0 To cur.RowCount-1 'tedad 1500ta record cur.Position=i Dim p1 As Panel p1.Initialize("p1") p1.LoadLayout("fehrest") Label2.Text=i+1 Label1.Text=cur.GetString("onvan") Label1.TextColor=Colors.Black Label1.TextSize=16 Label1.Gravity=Bit.Or(Gravity.CENTER,Gravity.RIGHT) Label1.Tag=cur.GetInt("id") Dim b As Bitmap b.Initialize(File.DirAssets,"fav"&cur.GetString("fav")& ".png") ImageView2.Bitmap=b ImageView2.Tag=cur.GetString("id") ani.ScaleCenterIn("ani",500) ani.StartAnim(ImageView2) Dim aniInt As Int aniInt=Rnd(0,1) If aniInt=0 Then ani.ScaleFromRight("ani",500) ani.StartAnim(p1) Else ani.ScaleFromLeft("ani",500) ani.StartAnim(p1) End If ScroollNeme.Panel.AddView(p1,0,h,100%x,100%y) h=h+12%y Next ScroollNeme.Panel.Height=h+5%y End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.