رفتن به مطلب
  • 0

انتخاب تک به تک در حلقه فور


RoyaPM

سوال

بچه ها مشکلی در مورد حلقه فور دارم اگه ممکنه یکی کمکم کنه

 

مثلا من 9 تا ویو دارم(حالا هر چیزی)

For i = 0 To 8

بعد با کد زیر میام به ویو ها رنگ میدم

pnls(i).Color = Colors.Blue

تا الان مشکلی نیست و اوکیه . فقط مشکل من اینه که وقتی با کد بالا رنگ میدم همه ویو ها آبی میشه و من میخوام بصورت جدا جدا به ویو ها رنگ بدم تا دست خودم باشه

مشکل من تو انتخاب ویو ها تو حلقه فور هستش و تو کد بالا باید چه چیزی به جای i بنویسم که بتونم یک شی رو انتخاب کنم و مشمول همه اجزای فور نباشه

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

12 پاسخ به این سوال تاکنون داده شده است

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

چند تا رنگ مد نظرتون هست ؟

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

چند تا رنگ مد نظرتون هست ؟

اینو بلدم که رنگ ها رو به صورت رندوم بدم تا همشون متغییر باشن ولی من بنا به دلایلی میخوام برا هر پنل بتونم بصورت مجزا خودم رنگ بدم و دست خودم باشه

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

می تونید بعد از اینیشیالایز کردن ویوو خودتون یک شرط if بذارید برای اینکه هر ویوو چه رنگی داشته باشه.

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

دوباره سوالم رو مطرح میکنم:

چند تا رنگ مد نظرتون هست؟  :pardon:

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

سلام.

متغیر pnls چی هست؟ هر پنلی که به اسکرول ویو اد میشه هست؟ یا اینکه کاستوم لیست ویوعه؟

اینو بنویسید:

scrollview1.Panel.GetAllViewsRecursive

یه مثال حلقه فور با Eeach v as View زده.... با اون باید پیش برید.

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

خب واسه وارد کردن دستی شما باید از آرایه استفاده کنید !!!

 

به عنوان مثال :

 

Dim lbl(9) as Label

 

lbl(0).colors = colors.red

lbl(0).colors = colors.Blue

lbl(0).colors = colors.Gray

.

.

.

 

به همین ترتیب

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

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

ولی آقا پژمان با این کدی که دادید متوجه نشدم من

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

خب واسه وارد کردن دستی شما باید از آرایه استفاده کنید !!!

 

به عنوان مثال :

 

Dim lbl(9) as Label

 

lbl(0).colors = colors.red

lbl(0).colors = colors.Blue

lbl(0).colors = colors.Gray

.

.

.

 

به همین ترتیب

نه قبلا این راه رو امتحان کردم و اینجوری خطا نمیده ولی رنگ دیگر پنل ها رو نشون نمیده و فقط آخرین رنگی که انتخاب شده برای یک پنل نشون میده

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

دوباره سوالم رو مطرح میکنم:

چند تا رنگ مد نظرتون هست؟  :pardon:

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

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

نه قبلا این راه رو امتحان کردم و اینجوری خطا نمیده ولی رنگ دیگر پنل ها رو نشون نمیده و فقط آخرین رنگی که انتخاب شده برای یک پنل نشون میده

کد هاتون رو بزارید !

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

Sub Globals
	Dim expPnls(9) As expandablePanel
	Dim pnls(9) As Panel
	
	Dim sv As ScrollView 
	Dim label1 As Label
	Dim label2 As Label

End Sub
Sub Activity_Create(FirstTime As Boolean)	
	Activity.Color = Colors.RGB(232,232,232)

	sv.Initialize(100%y)
	Activity.AddView(sv,0,0,100%x,100%y)
	sv.Color = Colors.Transparent 
	 
	Dim Top As Int = 0 
	For i = 0 To 8

		expPnls(i).Initialize("expPnls" , "Main" )

		pnls(i) = expPnls(i).AsPanel
		sv.Panel.AddView(pnls(i),10dip,Top,100%x-20dip,300dip)
		Top = Top + 300dip + 10dip
        pnls(i).Color = Colors.Blue

		expPnls(i).setSpeed(5,15)
		expPnls(i).maxHeight = 300dip
		expPnls(i).minHeight = 80dip

		expPnls(i).Collapse
		
	Next

End Sub

مشکلم با این خطه چون اینجوری رنگ همه رو یکی میکنه

 pnls(i).Color = Colors.Blue
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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