جابجایی اتفاقی اشیا در بیسیک ؟

[vistamobile 1,700]

سلام. من تو دیزاین به چهارتا ایمیج ویو کد دادم. الان به ذهنم رسید که این چهارتا ایمیج ویو جاهاشون باهم عوض بشه، کار زیبا تر میشه. یعنی تو هر اجرا جاهاشون عوض بشه. راهی هست که این اشیا جاشون عوض بشه با هم؟ اینم بگم که یک سایز کد دادم بهشون و دوتا در بالا و دوتا در پایین هستن. هر کدوم بنر تبلیغاتی هستن از بقیه محصولات. حالا اگر جاشون با هم عوض بشه کاربر بیشتر ترغیب میشه کلیک کنه. 

مثلا بگیم که اگر فلان مقدار 1 بود جای img1 و  img2 عوض بشه. 

[reza sabouri 444]

درود

برای جابه جایی کافیه از دستور شرطی استفاده کنیم ، مثل مثال زیر

Sub Process_Globals
	

End Sub

Sub Globals
	


	Private ImageView1 As ImageView
	Private ImageView2 As ImageView
	Private ImageView3 As ImageView
	Private ImageView4 As ImageView
	Private ImageView5 As ImageView
	Private ImageView6 As ImageView
	Private ImageView7 As ImageView
	Private ImageView8 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("Layout1")

	

	
	If File.Exists(File.DirInternal,"01.txt")= False Then
		ImageView1.SetLayoutAnimated(1000,ImageView5.Left,ImageView5.Top,ImageView5.Width,ImageView5.Height)
		ImageView2.SetLayoutAnimated(2000,ImageView6.Left,ImageView6.Top,ImageView6.Width,ImageView6.Height)
		ImageView3.SetLayoutAnimated(3000,ImageView7.Left,ImageView7.Top,ImageView7.Width,ImageView7.Height)
		ImageView4.SetLayoutAnimated(4000,ImageView8.Left,ImageView8.Top,ImageView8.Width,ImageView8.Height)

		File.WriteString(File.DirInternal,"01.txt",True)
		
			
	Else If File.Exists(File.DirInternal,"01.txt")=True Then
	
		File.Delete(File.DirInternal,"01.txt")
		ImageView1.SetLayoutAnimated(1000,ImageView8.Left,ImageView8.Top,ImageView8.Width,ImageView8.Height)
		ImageView2.SetLayoutAnimated(2000,ImageView7.Left,ImageView7.Top,ImageView7.Width,ImageView7.Height)
		ImageView3.SetLayoutAnimated(3000,ImageView6.Left,ImageView6.Top,ImageView6.Width,ImageView6.Height)
		ImageView4.SetLayoutAnimated(4000,ImageView5.Left,ImageView5.Top,ImageView5.Width,ImageView5.Height)
		
	End If
End Sub

Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub

با استفاده از کدهای بالا دو بار تغییر تصاویر رو داریم

در اولین بار باز کردن رضا صبوری و reza644 در بالا و مهدی ایزدی و شهاب اسکندری در پایین

و در دومین بار باز شدن ، رضا صبوری و reza644 در پایین و مهدی ایزدی و شهاب اسکندری در بالا

نمیدونم که منظورتون رو درست متوجه شده بودم یا خیر