تغییر اندازه در arc menu

[parham01 82]

سلام خدمت دوستان عزیز

بنده از کد زیر برای ارک منو استفاده میکنم

	#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
 
 Dim arc1 As ArcMenu
 
End Sub

Sub Activity_Create(FirstTime As Boolean)
 
arc1.Initialize( Activity , Me , "arcm1" ,  LoadBitmap( File.DirAssets , "arrow-up.png") , Null , 60%x , 50%y )
arc1.SetAnimatedButtonDimensions(40dip ,40dip)
arc1.AddItem( LoadBitmap( File.DirAssets , "clipboard.png"))
arc1.AddItem( LoadBitmap( File.DirAssets , "compose.png"))
arc1.AddItem( LoadBitmap( File.DirAssets , "compose.png"))

End Sub

Sub arcm1_Click( position As Int )

ToastMessageShow("Item"&position , False )

End Sub 

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

چند تا سوال داشتم

1 - چطوری میتونم اندازه ایتم هارو تغییر بدم

2 - به هر ایتم یک اکتیویتی بدم ممنون

[mohammad002 1]

چه طوری آرک منو  ایتم هاش دورتا دورش باشه؟؟؟؟؟؟؟ ؟؟؟             

[m007moh 181]

چه طوری آرک منو  ایتم هاش دورتا دورش باشه؟؟؟؟؟؟؟ ؟؟؟             

menu.SetAnimatedButtonDimensions(100dip , 100dip)
menu.SetDegreeSpan(300)
menu.SetMenuItemDimensions(100dip , 100dip)

[امین پوراباذری 1,045]

برای تغییر اندازه آیکون ها که کتابخونه خودش یه ایونت داره برای باز کردن اکتیویتی هم همین جوری که خودتون داخل کدها نوشتید فقط کافی این عمل را به هر پوزیشن بدید 

sub arc1_click
select position
case1
start activity1
case2
start activity2

end select
end sub

case1  

ایکون اول از راست هست

case2 

آیکون دوم 

همین جور تا ...