دوستان من یه پروژه ای تموم کردم منتها سرعت لودش افتضاحه
من با کد زیر میام ستون 1 تا 111 رو یه جا میگیرم و لود میکنم
If SQL1.IsInitialized = False Then
SQL1.Initialize(File.DirInternal,"smsha6.db",True)
End If
cursur1 = SQL1.ExecQuery("select * FROM asly WHERE id BETWEEN 1 AND 111")
myfont = Typeface.LoadFromAssets("byekan.ttf")
Activity.LoadLayout("sv")
For i=0 To cursur1.RowCount-1
cursur1.Position=i
text= cursur1.GetString("payamak")
ScrollView1.Panel.Color = Colors.Transparent
Dim p1 As Panel
p1.Initialize("")
p1.LoadLayout("main")
ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100dip)
btnfav.Tag = i
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
حالا کد رو باید چجوری تغییر بدم که این نیاد همشو یه جا بگیره و مثلا هر 10.15 تا رو تو 1 ثانیه لود کنه تا برسه 111
دوستان ممنون میشم با کد بگن یا بگن چجوری کد رو تغییر بدم
سوال
bahman 165
دوستان من یه پروژه ای تموم کردم منتها سرعت لودش افتضاحه
من با کد زیر میام ستون 1 تا 111 رو یه جا میگیرم و لود میکنم
حالا کد رو باید چجوری تغییر بدم که این نیاد همشو یه جا بگیره و مثلا هر 10.15 تا رو تو 1 ثانیه لود کنه تا برسه 111
دوستان ممنون میشم با کد بگن یا بگن چجوری کد رو تغییر بدم
واقعا دیگه کم اوردم
ضمنا با این کار سرعت بر میگرده؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.