چگونگی لیمیت دادن به مولتی پنل در اسکرول ویو؟

[mr-edris 186]

سلام و خسته نباشید

نماز روزه هاتونم قبول

 

ببخشید باید چی کار کنم که مولتی پنلم تو اسکرول ویو 20 تا 20 تا نمایش داده بشه؟

[behnam_tr 172]

سلام

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

20تا 20تا لود میکنه

 

[alirezakazemizaroomi 437]

سلام از این کدها استفاده کن:

Sub Globals

Private Panel1 As Panel

End Sub



Sub Activity_Create(FirstTime As Boolean)



Activity.LoadLayout("lay1")



File.Copy(File.DirAssets,"sql1.db",File.DirInternal,"sql1.db")



sql2.Initialize(File.DirInternal,"sql1.db",False)

cur1=sql2.ExecQuery("SELECT * From tbltest WHERE id BETWEEN 1 AND 20")

For i=0 To cur1.RowCount-1

cur1.Position=i

Dim ps As Panel

ps.Initialize("ps")

ScrollView2.Panel.AddView(ps,0,Stopint,100%x,100%Y)

Stopint=Stopint+150dip

ps.LoadLayout("nn")



Panel1.Tag=i                            

If (i Mod 2)=1 Then 

Panel1.Color=Colors.Red 

Else 

Panel1.Color=Colors.Blue 

End If 

ScrollView2.Panel.Height=Stopint

Next

End Sub

[mohammad-alone 564]

دوست عزیزی که کد کپی کردید، این کد که مشکل دوستمون رو حل نمیکنه

 

 

 

 

دوست خوبم شما در روال کریت اکتیویتی بیا و 20 تای اول رو لود کن بعد با استفاده از ذخیره مقادر آخرین ورودی یعنی عدد تگ و ارتفاع از بالا ، حالا در روال اسکرول ویو از قابلیت Position اون استفاده کن و با بازی با مقادیر اون 20 تای بعدی رو لود کن

[mjavad 2]

سلام
دوستان 
ی برنامه با مولتی پنل ساختم  هم از طرف انلاین اطلاعات گرفتم هم افلاین 
ولی طرف انلاین هر کاری میکنم ارتفاع تنظیم نمیشه 
در ضمن تو ساب جابدان  تنظیمات انجام دادم 
باتشکر