رفتن به مطلب

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


مهدی ایزدی

ارسال‌های توصیه شده

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

خوبید؟

خب یک موضوع بود که کاربر و دوست عزیزمون سوال پرسیده بود که در نهایت و ادامه ی جوابش به ساختن مثلا 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 نسبت بدین طبق کارهایی که میخواهین انجام بدین.

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

موفق باشید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 2 ماه بعد...

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...