تغییر رنگ پنل

[ebraeim 8]

سلام

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim scr As ScrollView
Dim left1 , top1 As Int
left1 =1%x
top1 = 1%x
Dim red As Int
Dim red2 As Int
Dim red3 As Int
End Sub
Sub p_Click
Dim p1 As Panel
p1 = Sender 
ToastMessageShow(p1.Tag,False)
End Sub 
Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	'Activity.LoadLayout("Layout1")
scr.Initialize2(20%y,"scr")
Activity.AddView(scr,0%x,0%y,100%x,100%y)
For i = 1 To 51
Dim p As Panel
p.Initialize("p")
'تعیین رنگ به صورت راندوم از طریق اینت
red=Rnd(0,255)
red2=Rnd(0,255)
red3=Rnd(0,255)
		'''''''''''
p.Color = Colors.RGB(red,red2,red3)
scr.Panel.AddView(p,left1,top1,45%x,30%y)
left1 = left1 + 46%x
p.Tag = i
If i mod 2 = 0 Then
top1 = top1 + 31%y
scr.Panel.Height = top1 + 31%y
left1 = 1%x
End If

Next
End Sub

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

[PooyaDe 73]

سلام

شما میتونید بین Next و For یه شرط بزارید 

اینجوری 

For i = 1 to 51 
Dim p as panel
p.initilize("p")

if i = 3 then 
p.color = colors.green
Else
p.color = color.rgb(red1,red2,red3)
end if

Next

[hosseinkarimian 100]

در 19 ساعت قبل، PooyaDe گفته است :

سلام

شما میتونید بین Next و For یه شرط بزارید 

اینجوری 

For i = 1 to 51 
Dim p as panel
p.initilize("p")

if i = 3 then 
p.color = colors.green
Else
p.color = color.rgb(red1,red2,red3)
end if

Next

سلام ایم کد باید برابر با 4 باشه چون حلقه از یک شروع شده

 

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim scr As ScrollView
	Dim left1 , top1 As Int
	left1 =1%x
	top1 = 1%x
	Dim red As Int
	Dim red2 As Int
	Dim red3 As Int
End Sub
Sub p_Click
	Dim p1 As Panel
	p1 = Sender
	ToastMessageShow(p1.Tag,False)
End Sub
Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	'Activity.LoadLayout("Layout1")
	scr.Initialize2(20%y,"scr")
	Activity.AddView(scr,0%x,0%y,100%x,100%y)
	For i = 1 To 51
		Dim p As Panel
		p.Initialize("p")
		'تعیین رنگ به صورت راندوم از طریق اینت
		red=Rnd(0,255)
		red2=Rnd(0,255)
		red3=Rnd(0,255)
		'''''''''''
	
		p.Color = Colors.RGB(red,red2,red3)
		If i=4 Then 	p.Color = Colors.Green
		scr.Panel.AddView(p,left1,top1,45%x,30%y)
		left1 = left1 + 46%x
		p.Tag = i
		If i Mod 2 = 0 Then
			top1 = top1 + 31%y
			scr.Panel.Height = top1 + 31%y
			left1 = 1%x
		End If

	Next
End Sub

 

[PooyaDe 73]

در 2 ساعت قبل، maxnet13 گفته است :

سلام ایم کد باید برابر با 4 باشه چون حلقه از یک شروع شده

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

در هر حال ممنون بابت راهنمایی