02-18-2014، 09:29 AM
(02-17-2014، 07:34 PM)'m.gooooolzar' نوشته:سلام(02-17-2014، 05:08 PM)'mojtaba212' نوشته: سلا:م دوستان
اول از همه خواهشا اول این سلا م که میشه درود و تشک ر و مرس ی که میشه سپاسگزارم رو درست کنید تو بعضی جملات درود و بعضی جملات سپاسگزارم معنی خاصی نمیده.
و حالا برای 5 یا 6 مین بار سوال من در مورد یه اسکرول که بیش از 100/000 آیتم داره حالا من میخوام این آیتم ها که درون یک پنل هستن رو در یک اسکرول نمایش بدم و اسکرولم قفل میکنه باید پله پله برم جلو ولی نمیدونم چطوری.
تو سایت بیسیک هم سوالم رو مطرح کردم ولی متاسفانه گفت چون کاربر پولی نیستی جوابتو نمیدم.
امین جان هم جواب داد ولی من متوجه نشدم خواهشا اگه کسی بلده واسم یه سمپل بزاره.
سپاسگزارم دست گلتون درد نکنه.
عزیزم شما نمیتونی پنلی که توش یک آیتم وجود داره رو به اسکرول اضافه کنی (البته با یه کتابخوانه میشه) . اول باید پنل رو اضافه کنی بعد آیتم های داخل پنل رو
تازه ، شما اصلاً نمیگی این آیتم ها چی هستن ! خب عزیزم شما که ننشستی این 100000 آیتم رو تک تک اضافه کنی ،مطمئناً چیدن این آیتم ها توسط یک حلقه تکرار بوده و یه نظمی داره . اجزای سازنده اون رو بگید تا بتونیم کمک کنیم
این کد منه:
کد پیاچپی:
s1.Initialize(1000000)
Activity.AddView(s1,10,10,100%x,100%y)
For i = 0 To 100000
Dim l2,l1,l3 As Label
Dim btnfav,btnread,btndelete,btnshair As Button
l1.Initialize("")
l2.Initialize("")
l3.Initialize("")
btnfav.Initialize("btnfav")
btnread.Initialize("btnread")
btndelete.Initialize("btndelete")
btnshair.Initialize("btnshair")
s1.Panel.AddView(l1,0,stop,100%x,50dip)
s1.Panel.AddView(l2,0,stop,100%x,50dip)
s1.Panel.AddView(l3,0,stop,100%x,50dip)
s1.Panel.AddView(btnfav,0,stop,100%x,50dip)
s1.Panel.AddView(btnread,0,stop,100%x,50dip)
s1.Panel.AddView(btndelete,0,stop,100%x,50dip)
s1.Panel.AddView(btnshair,0,stop,100%x,50dip)
l1.Text=i
l2.Text=i
l3.Text=i
Next
من تا الان بیش از 100 تا کد نوشتم ولی هیچ کدوم کار نکرده.