تغییر جای ویوها در Multi Panel

[HS71 78]

سلام دوستان،

چطوری میشه جای ویوها و عکس های یه پنل رو با پنل بعدی متمایز کرد؟

تو حالت معمولی که فقط میایم یه پنل تعریف میکنیم و ویو هارو جا میدیم تو...

اما میخوام پنل اول یه جور باشه و دوم یه جور دیگه و همینجوری یکی در میون ادامه داشته باشه تا آخر ملتی پنل!

اینم نمونه چیزی که میخوام:

یکی سمت چپه تصویرش و دکمه ها سمت راست، و پنل بعدیش تصویرش سمت راسته و دکمه هاش سمت چپ و همینطوری الا آخر...

ممنون.

[AmirGholami 101]

یه کار خیلی ساده موقع لود لایه آیتم اینو بزار 

 

	Dim boolVar As Boolean = False
	For ...
		If boolVar Then
			item.load("frm_item1")
			boolVar=False
		Else
			item.load("frm_item2")	
			boolVar=True
		End If
	Next

 

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

درود

دقیقا کاری که آقای @AmirGholami  گفتند باید انجام بدید

[HS71 78]

در 10 ساعت قبل، AmirGholami گفته است :

یه کار خیلی ساده موقع لود لایه آیتم اینو بزار 

 

	Dim boolVar As Boolean = False
	For ...
		If boolVar Then
			item.load("frm_item1")
			boolVar=False
		Else
			item.load("frm_item2")	
			boolVar=True
		End If
	Next

 

ممنون، اما نفهمیدم چطور و کدوم کدها رو در کجای حلقم استفاده کنم؟!

cur = sql.ExecQuery2("SELECT * FROM data ORDER BY ID LIMIT ?",Array As String(10))

		dim bol as boolean = false

	For i = 0 To cur.RowCount -1	
if bol then ???
			cur.Position = i
			Dim p As Panel
			p.Initialize("p")
			Scroll1.Panel.AddView(p,0,space,100%x,95dip)			
			space = space + 95dip
			p.LoadLayout("Pan")
			Scroll1.Panel.Height = space
			List.Add(clicked)
				droms_button.Tag = cur.GetInt("id")
				droms_button.Text = cur.GetString("my_files")
				play_button.TextSize = 12	
			share.Tag = cur.GetInt("id")	
			apps.Tag = cur.GetInt("id")	
end if	
	Next

 

[AmirGholami 101]

در 12 دقیقه قبل، HS71 گفته است :

ممنون، اما نفهمیدم چطور و کدوم کدها رو در کجای حلقم استفاده کنم؟!

cur = sql.ExecQuery2("SELECT * FROM data ORDER BY ID LIMIT ?",Array As String(10))

		dim bol as boolean = false

	For i = 0 To cur.RowCount -1	
if bol then ???
			cur.Position = i
			Dim p As Panel
			p.Initialize("p")
			Scroll1.Panel.AddView(p,0,space,100%x,95dip)			
			space = space + 95dip
			p.LoadLayout("Pan")
			Scroll1.Panel.Height = space
			List.Add(clicked)
				droms_button.Tag = cur.GetInt("id")
				droms_button.Text = cur.GetString("my_files")
				play_button.TextSize = 12	
			share.Tag = cur.GetInt("id")	
			apps.Tag = cur.GetInt("id")	
end if	
	Next

 

cur = sql.ExecQuery2("SELECT * FROM data ORDER BY ID LIMIT ?",Array As String(10))

Dim bol As Boolean = False

For i = 0 To cur.RowCount -1	
	cur.Position = i
	Dim p As Panel
	p.Initialize("p")
	Scroll1.Panel.AddView(p,0,space,100%x,95dip)			
	space = space + 95dip
	
	If bol Then 
		p.LoadLayout("Pan")
		bol=False
	Else
		p.LoadLayout("Pan2")
		bol=True
	End If
	
	Scroll1.Panel.Height = space
	List.Add(clicked)
		droms_button.Tag = cur.GetInt("id")
		droms_button.Text = cur.GetString("my_files")
		play_button.TextSize = 12	
	share.Tag = cur.GetInt("id")	
	apps.Tag = cur.GetInt("id")	
End If	
Next