با مولتی پنل حدود 100تا ایتم رو لود کردم توی اکتیویتی در اسکرول ویو گزاشتم و وقتی برنامه رو اجرا میکنم بمدت چند ثانیه هنگ میکنه و بعد صفحه مورد نظر میاد چون طول میکشه تا همه رو لود کنه و عکسهارو جایگزین کنه
یکی از دوستان گفت باید ده تا ده تا لود کنی تا کاربر راحت باشه و هنگ نکنه
ممنون میشم راهنمایی کنید
کدی که نوشتم اینه
If File.Exists(File.DirInternal,"database.db") = False Then
File.Copy(File.DirAssets,"database.db",File.DirInternal,"database.db")
End If
SQL.Initialize(File.DirInternal,"database.db",False)
cur1= SQL.ExecQuery ("SELECT * FROM mytable")
For i = 0 To cur1.RowCount-1
cur1.Position=i
Dim p As Panel
p.Initialize ("p")
ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
stop=stop+18%y
p.LoadLayout ("list")
Label1.Text = (cur1.GetString ("tite"))
ScrollView1.Panel.Height =stop
Next
سوال
dostmobile 329
سلام دوستان گل
با مولتی پنل حدود 100تا ایتم رو لود کردم توی اکتیویتی در اسکرول ویو گزاشتم و وقتی برنامه رو اجرا میکنم بمدت چند ثانیه هنگ میکنه و بعد صفحه مورد نظر میاد چون طول میکشه تا همه رو لود کنه و عکسهارو جایگزین کنه
یکی از دوستان گفت باید ده تا ده تا لود کنی تا کاربر راحت باشه و هنگ نکنه
ممنون میشم راهنمایی کنید
کدی که نوشتم اینه
If File.Exists(File.DirInternal,"database.db") = False Then File.Copy(File.DirAssets,"database.db",File.DirInternal,"database.db") End If SQL.Initialize(File.DirInternal,"database.db",False) cur1= SQL.ExecQuery ("SELECT * FROM mytable") For i = 0 To cur1.RowCount-1 cur1.Position=i Dim p As Panel p.Initialize ("p") ScrollView1.Panel.AddView(p,0,stop,100%x,100%y) stop=stop+18%y p.LoadLayout ("list") Label1.Text = (cur1.GetString ("tite")) ScrollView1.Panel.Height =stop Nextلینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.