دستور در اسلاید پنل(فوری فوتی)

[mohammade79 127]

سلام دوستان من می خوام توی اسلاید پنل یه حرکتی بزنم و بهش بگم وقتی مثلا اسلاید روی دومی بود این اکتیویتی رو باز کن اینم کد هامه، جون من کمک کنین اگه بلدین

 

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("EM")

PN.Initialize("PN")

PN.Color = Colors.White

 

SL.Initialize("SL" , 100 , Activity , Me , False)

SL.ModeFullScreen(4 , False)

 

SL.Panels(1).LoadLayout("PNLY")

SL.Panels(2).LoadLayout("PNLY")

 

Next

 

SL.Start(0)

 

 

End Sub

[Nemesis 1,846]

اینطوری

Sub SL_Change
	Select SL.GetCurrentPanel
		Case 1
			StartActivity(Activityname1)
		Case 2
			StartActivity(Activityname2)
		Case 3
			StartActivity(Activityname3)
		Case 4
			StartActivity(Activityname4)
		Case 5
			StartActivity(Activityname5)
	End Select
End Sub

[mohammade79 127]

سلام من هر کاری کردم مچ نشد میشه یه نمونه سورس برام بزارین ممنون میشم