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

[est931 6]

سلام

قصد دارم یه پنل دلخواه درست کنم و به تعداد دلخواه از اون پشت سر هم درست کنم مثل یه لیست ویو  و  کم کم توسعه اش بدم

یه قطعه کد پیدا کردم که بصورت ابتدایی این کار رو انجام میده منتهی لیستم اسکرول نشد

تصویر و کدهها رو میزارم ممنون میشم راهنمایی کنید دو لایوت دارم که اولی فقط اسکرول هست بعدی هم برا ساخت پنل استفاده شده که در وسط کدها فراخوانی میشه

 

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout")
	Log( GetDeviceLayoutValues)
	Dim stop As Int = 0
	Dim a1(8) As String
	sv1.Panel.Color= Colors.Blue
	a1 = Array As String("0","1","2","3","4","5","6","7")
	
	For i=0 To a1.Length-1
		Dim p1 As Panel
		p1.Initialize("")
		p1.LoadLayout("pop")
		sv1.Panel.AddView(p1,0,stop,100%x,200dip)
		sv1.FullScroll ( True)
		stop = stop + 220dip
		EditText1.Text=i
		
		
	Next

[est931 6]

ممنون mohammadjava

با گذاشتن این خط کد بعد از حلقه درست شد

sv1.Panel.Height = ( 220dip * i) 

 

این خط هم اضافی بود

sv1.FullScroll ( True)

 

[montazeranmahdi 101]

سلام رفیق ، چرا از ریسایکلر استفاده نمیکنی ؟ خیلی بیشتر بهت دسترسی میده و کارت رو راه میندازه ...

[est931 6]

در 8 ساعت قبل، mohammadjavadmajidi گفته است :

سلام رفیق ، چرا از ریسایکلر استفاده نمیکنی ؟ خیلی بیشتر بهت دسترسی میده و کارت رو راه میندازه ...

ممنون از راهنماییتون

راستش برا  بهتر شدن کد نویسی میخواستم بدون کتابخانه خاص این کار رو انجام بدم

راه که افتادم  سمت کتابخونه ها برم

[montazeranmahdi 101]

در 5 ساعت قبل، est931 گفته است :

ممنون از راهنماییتون

راستش برا  بهتر شدن کد نویسی میخواستم بدون کتابخانه خاص این کار رو انجام بدم

راه که افتادم  سمت کتابخونه ها برم

خواهش . . .

اگر بابت ریسایکلر کمک خواستی درخدمتت هستم