مشکل با ساخت کلاس

[absolutezero 7]

سلام عرض میکنم به همه ی دوستان . بازم من اومدم با سوالات مربوط به ارک منو و کلاس . 

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

Sub Class_Globals
	Dim m As ArcMenu
End Sub


Public Sub Initialize(arcmenu1 As ArcMenu)
	m=arcmenu1
End Sub
Public Sub arcmenu1 As ArcMenu
	
	arcmenu1.Initialize(Class_Globals,Me,"arc1",LoadBitmap(File.DirAssets,"arrow-up.png"),Null,15%x,90%y)
	
	
	arcmenu1.SetAnimatedButtonDimensions(40dip,40dip)
	arcmenu1.SetStartDegrees(10)
	arcmenu1.SetDegreeSpan(110)
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"home.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"Faivorit.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"rate.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"About-us.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"settings.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"exit.png"))
	Return m
End Sub

بعد از نوشتن کدهای مربوط به کلاس اون رو توی فرمم Initialize کردم و نوشتم 

Sub Globals

dim n13 as myclass
End Sub

n13.Initialize(Activity,Me,"arc1",LoadBitmap(File.DirAssets,"arrow-up.png"),Null,15%x,90%y)

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

[absolutezero 7]

درضمن پروزه اروری نمیده فقط ایتم کلیک کار نیکنه

[مجید آرتا 5,874]

@@mahdikam,

شما به مدت یک هفته بن میشید تا یکم قوانین رو جدی بگیرید.

و شما دوستم از اشکال و یا خطا عکس قرار بدید.و در ضمن این خط ور واسه بنده تشریح کنید :

arcmenu1.Initialize(Class_Globals,Me,"arc1",LoadBitmap(File.DirAssets,"arrow-up.png"),Null,15%x,90%y)

[absolutezero 7]

شما به مدت یک هفته بن میشید تا یکم قوانین رو جدی بگیرید.

و شما دوستم از اشکال و یا خطا عکس قرار بدید.و در ضمن این خط ور واسه بنده تشریح کنید :

arcmenu1.Initialize(Class_Globals,Me,"arc1",LoadBitmap(File.DirAssets,"arrow-up.png"),Null,15%x,90%y)

پرژرو پیوست کزدم ....

http://s6.picofile.com/file/8215701184/prob.zip.html],

[absolutezero 7]

اقا مجید پروژرو دانلود کردید؟ پیوست کردم. در ضمن اون ایدی که بن شد واسه رفیقم بود من نتم قطع شد اون پیام داد

[مجید آرتا 5,874]

اقا مجید پروژرو دانلود کردید؟ پیوست کردم. در ضمن اون ایدی که بن شد واسه رفیقم بود من نتم قطع شد اون پیام داد

در هر صورت کار درستی نکردن. 4 الی 5 اسپم داده بودن و این خلاف قوانین هستش.

به مدت یک هفته در حالت تعلیق میمونن و بعد ازاد میتونن توی انجمن فعالیت داشته باشن.

 

پروژه رو بنده نمیتونم واستون رو تست کنم.شما بگید دقیقا کلاس رو واسه چی ایجاد کردید ؟ میخوام بدونم واقعا نیاز هست به تعریف کلاس واسه کارتون یا نه.

و اگه برنامه خطایی یا اروری هم میده بی زحمت از خطا اسکرین بگیرید.

موفق باشید.

[absolutezero 7]

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

درضمن میخام طریقه کلاس نوشتنو هم یاد بگیرم

[مجید آرتا 5,874]

شما با استفاده از Code Module بیایید اینکارو انجام بدید.این تابع رو توی کد ماژول بنویسید :

Sub createArcMenu(sActivity As Activity , Module As Object , arcmenu1 As ArcMenu)
	arcmenu1.Initialize(sActivity,Module,"arc1",LoadBitmap(File.DirAssets,"arrow-up.png"),Null,15%x,90%y)
	arcmenu1.SetAnimatedButtonDimensions(40dip,40dip)
	arcmenu1.SetStartDegrees(10)
	arcmenu1.SetDegreeSpan(110)
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"home.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"Faivorit.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"rate.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"About-us.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"settings.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"exit.png"))
End Sub

و به این صورت استفاده کنید :

    Dim arc As ArcMenu
    CodeModule.createArcMenu(Activity,Me,arc)

مطمئن نیستم کد کار کنه.تست کنید و باز جواب نکرفتید بنده فردا واستون درستش میکنم.

[absolutezero 7]

اقا این کار نمیکنه

[absolutezero 7]

شما با استفاده از Code Module بیایید اینکارو انجام بدید.این تابع رو توی کد ماژول بنویسید :

Sub createArcMenu(sActivity As Activity , Module As Object , arcmenu1 As ArcMenu)
	arcmenu1.Initialize(sActivity,Module,"arc1",LoadBitmap(File.DirAssets,"arrow-up.png"),Null,15%x,90%y)
	arcmenu1.SetAnimatedButtonDimensions(40dip,40dip)
	arcmenu1.SetStartDegrees(10)
	arcmenu1.SetDegreeSpan(110)
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"home.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"Faivorit.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"rate.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"About-us.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"settings.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"exit.png"))
End Sub

و به این صورت استفاده کنید :

    Dim arc As ArcMenu
    CodeModule.createArcMenu(Activity,Me,arc)

مطمئن نیستم کد کار کنه.تست کنید و باز جواب نکرفتید بنده فردا واستون درستش میکنم.

آقا مجید ممنونم واقعا . خیلی کیف کردم مشکلم حل شد .      

[absolutezero 7]

با عرض سلام خدمت اساتید من قبلا میخاستم یه کلاس بسازم که توش دستورات ارک منو رو بزارم که مشکل داشتم و اقا مجید ارتا زحمت کشیدن و جواب دادن و تونستم به کمک ایشون ارک منو رو با کلاس فراخوانی کنم الان ارک منو درست شده ولی ایتم کلیکش کار نمیکنه نمیدونم چرا

این کد کلاس
public Sub createArcMenu(sactivity As Activity , Module As Object , arcmenu1 As ArcMenu)
	arcmenu1.Initialize(sactivity,Module,"arc1",LoadBitmap(File.DirAssets,"arrow-up.png"),Null,15%x,90%y)
	arcmenu1.SetAnimatedButtonDimensions(40dip,40dip)
	arcmenu1.SetStartDegrees(10)
	arcmenu1.SetDegreeSpan(110)
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"home.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"Faivorit.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"rate.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"About-us.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"settings.png"))
	arcmenu1.AddItem(LoadBitmap(File.DirAssets,"exit.png"))
'	Return sactivity

End Sub
public Sub arc1_Click(mactivity As Activity , module As Object , arcmenu1 As ArcMenu)
Dim result As Int
	Dim position As Int
	If position = 1 Then
		ToastMessageShow("شما در خانه هستید",False)
		'StartActivity(Me)
			Else If position = 2 Then
			
				StartActivity(favorit)
					Else If position = 3 Then 
					
						StartActivity(rate)
							Else If position = 4 Then
							
								StartActivity(about_us)
									Else If position = 5 Then
									
										StartActivity(setting)
											Else If position = 6 Then
												result = Msgbox2("آیا میخواهید از برنامه خارج شوید ؟","پیغام سیستم","بله","خیر","",Null)
													If result = DialogResponse.POSITIVE Then
														ExitApplication
													End If
												End If
End Sub

و اینم کد اکتیویتی برای فراخوانی کلاس

	Dim arc1 As ArcMenu
clasarcmenu.createarcmenu(Activity,Me,arc1)
clasarcmenu.arc1_Click(Activity,Me,arc1)

با تشکر از مجید ارتا