arcmenu در صفحه متن با رویداد کلیک متفاوت

[mahdig502 27]

سلام خدمت اساتید 

یه سوال درباره arcmenu دارم 

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

اینم کد پروژه تستیمه:

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("frm")
arc1.Initialize(Activity,Me,"arc",LoadBitmap(File.DirAssets,"b.png"),LoadBitmap(File.DirAssets,"a.png"),50%x,50%y)
arc1.SetAnimatedButtonDimensions(15%x ,15%y)
arc1.SetMenuItemDimensions(20%x ,20%y)
arc1.SetMenuItemRadius(38%x)
arc1.SetStartDegrees(-10%x)
If  Activity.Width >700 Then
arc1.SetDegreeSpan(42%x)
End If
If  Activity.Width <700 Then
arc1.SetDegreeSpan(133%x)
End If
arc1.AddItem(LoadBitmap( File.DirAssets , "a.png"))
arc1.AddItem(LoadBitmap( File.DirAssets , "b.png"))
arc1.AddItem(LoadBitmap( File.DirAssets , "10.png"))
arc1.Toggle




End Sub
Sub Arc_click(position As Int)
If position = 1 Then
ExitApplication
End If
If position = 2 Then
Msgbox("salam","True")
End If
If position = 3 Then
Msgbox("khobi?","True")
End If
End Sub
Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub
Sub Button1_Click
Activity.LoadLayout("s")
label1.Initialize("")
fara.FarakhaniMatn("b.db",sql1,c1,"select * from tbl where id =","1",label1,"txt")
ts.Initialize
ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
ts.LongText(label1,label1.Text,25,ScrollView1,1.2)


End Sub
Sub Button2_Click
Activity.LoadLayout("s")
label1.Initialize("")
fara.FarakhaniMatn("b.db",sql1,c1,"select * from tbl where id =","2",label1,"txt")
ts.Initialize
ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
ts.LongText(label1,label1.Text,25,ScrollView1,1.2)
End Sub

 

[mahdig502 27]

دوستان لطفا میدونید بگید

 

اصلا این کار شدنیه؟

 

اگرهم نمیش بی زحمت بگید توی کد 

arc1.Initialize(Activity,Me,"arc",LoadBitmap(File.DirAssets,"b.png"),LoadBitmap(File.DirAssets,"a.png"),50%x,50%y)

ایا به جای activity  میش اسم یک اکتیویتی دیگر را داد یا فقط باید اکتیویتی جاری باشد؟