ساختن n کنترل با حلقه در زمان اجرای برنامه

[مهدی ایزدی 9,203]

سلام العلیکم جمیعا

خوبید؟

خب یک موضوع بود که کاربر و دوست عزیزمون سوال پرسیده بود که در نهایت و ادامه ی جوابش به ساختن مثلا 10 label یا n تا Label در زمان اجرای برنامه بود

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

Dim top As Int
For i = 0 To 10
Dim lb1 As Label
lb1.Initialize("Basic4Android.Org")
lb1.Tag = "Basic4Android.Org"&i
Activity.AddView(lb1,5%x,top,50%x,10dip)
lb1.Text = "Basic4Android.Org   "&i
top = top + 10dip
Next

یک توضیحی هم بدم به صورت خط به خط:

Dim top As Int : میایم یک int تعریف میکنیم که بعدا این مقدار رو بتونیم زیاد کنیم برای مکان label ای که قرار ساخته بشه

For i = 0 To 10 : حلقه تعریف میکنیم

lb1.Initialize("Basic4Android.Org"&i) : چون label ما از Designer اضافه نکردیم و الان میخواهیم اضافه کنیم و باهاش کار کنیم باید Initialize باشه. i هم فراموش نشه.

lb1.Tag = "Basic4Android.Org"&i : حکم name رو داره . باید حتما tag هر label که میخواد ساخته بشه و عوض کنیم تا label بعدی هم اسم label قبل در نیاد

Activity.AddView(lb1,5%x,10%y + top,50%x,30%y) : میاییم lb1 رو توی Activity اضافه میکنیم.

lb1.Text = "Basic4Android.Org "&i : متنش رو مشخص میکنیم

top = top + 30 : این int رو که در خط اول تعریف کردیم رو زیاد میکنیم که برای ساخته شدن label بعدی،مکان label تغییر کنه و زیر همدیگه قرار بگیرن

next : بره سراغ بعدی تا اینکه به 10 برسیم.

شما میتونین انواع ویژگی ها رو به این label نسبت بدین طبق کارهایی که میخواهین انجام بدین.

مهران داره سورس کد کامل ترش رو آماده میکنه که هر موقع آماده شد ان شالله توی سایت قرار میده.

موفق باشید

[chown 11]

میتونین همین مورد رو با 5 لیبیل کنار هم قرار بدین؟ 5 لیبیل در 6 ردیف ؟

[ارمین رمضانی دلیجانی 381]

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

[sepidpor 19]

یه مثالم من داشتم اضافه می کنم

For n=tedadff To tedadkol-1
                               Dim panv As Panel 
                               panv.Initialize ("")
                               panv.SetBackgroundImage(LoadBitmap(File.DirAssets , "backitem.jpg"))
                               ScrollV1.Panel.AddView (panv,2%x,h3, 96%x, 85dip)

                               Dim lbfn As Label 
                               lbfn.Initialize ("")
                               lbfn.Text =list1.Get(n)
                               lbfn.TextSize = 14 
                               lbfn.TextColor= Colors.White 
                               lbfn.Gravity = Gravity.RIGHT 
                               panv.AddView (lbfn,5dip ,5dip , panv.Width -10dip, 30dip)

                               Dim imgicon As ImageView 
                               imgicon.Initialize ("")
                               imgicon.Bitmap=LoadBitmap(File.DirAssets , Main.tagitem&".jpg")
                               imgicon.Gravity = Gravity.FILL 
                               panv.AddView (imgicon,100%x-70dip,30dip,45dip,45dip)


                               Dim imgplpa As ImageView 
                               imgplpa.Initialize ("imgplpa")
                               imgplpa.Bitmap=LoadBitmap(File.DirAssets , "play.png")
                               imgplpa.Gravity = Gravity.FILL 
                               imgplpa.Tag=n
                               panv.AddView (imgplpa,5dip,10dip,40dip,40dip)

                               Dim imgdownload As ImageView 
                               imgdownload.Initialize ("imgdownload")
                               imgdownload.Bitmap=LoadBitmap(File.DirAssets , "download.png")
                               imgdownload.Gravity = Gravity.FILL 
                               imgdownload.Tag = n
                               panv.AddView (imgdownload,50dip,10dip,40dip,40dip)

                               Dim imgshare As ImageView 
                               imgshare.Initialize ("imgshare")
                               imgshare.Bitmap=LoadBitmap(File.DirAssets , "share.png")
                               imgshare.Gravity = Gravity.FILL
                               imgshare.Tag = n
                               panv.AddView (imgshare,95dip,10dip,40dip,40dip)        

                               h3= h3+85dip
                               Next