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

[RoyaPM 538]

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

 

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

For i = 0 To 8

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

pnls(i).Color = Colors.Blue

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

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

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

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

[RoyaPM 538]

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

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

[razavioo 310]

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

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

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

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

[پژمان نیکروان 6,055]

سلام.

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

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

scrollview1.Panel.GetAllViewsRecursive

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

[ghost94 151]

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

 

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

 

Dim lbl(9) as Label

 

lbl(0).colors = colors.red

lbl(0).colors = colors.Blue

lbl(0).colors = colors.Gray

.

.

.

 

به همین ترتیب

[RoyaPM 538]

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

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

[RoyaPM 538]

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

 

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

 

Dim lbl(9) as Label

 

lbl(0).colors = colors.red

lbl(0).colors = colors.Blue

lbl(0).colors = colors.Gray

.

.

.

 

به همین ترتیب

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

[RoyaPM 538]

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

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

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

[ghost94 151]

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

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

[RoyaPM 538]

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

[Mohsen27 199]

if i=0 then

panel.color=color.red

else if i=1 then

panel.color=colors.blue

end if

\\\\\va Hamintor edame ...