اضافه کردن سورس کد به پروژه ها

[saimon2 0]

سلام.

دوستان من ی سورس برای منوی کشویی پیدا کردم و میخواستم اون رو به یک اکتیویتی از پروژم اضافه کنم فقط یک مشکلی دارم زمانی که پروژه رو کامپایل میکنم صفحه ای که خودم نوشتم بعد از استفاده منو غیر فعال میشه و برنامه درست انجام نمیشه.

سوال من اینه که روش یا نکته ی خاصی رو باید در نظر بگیرم تا بتونم درست این سورس رو به پروژم اضافه کنم؟من  درست همون جایی که تو تصویر  مشخص کردم اسم اکتیویتی خودم رو وارد میکنم.

اینم بگم که من کد های خودمو (بیشتر مریوط به نمای ظاهری اونا و سایز فونت و ... )با ابسترکت دیزاینر طراحی کردم نه با کد مستقیم.

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

#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
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim navi As AHNavigationDrawer
Dim pnlcontent As Panel
Dim pnlnavi As Panel
Dim lblmenu As Label
Dim lblcontent As Label
Dim btnnavi(3) As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("1")                                                                         .منظورم این خط هست.
navi.Initialize2("navi",Activity,70%x,navi.GRAVITY_RIGHT)
pnlcontent.Initialize("")
pnlnavi.Initialize("")
lblcontent.Initialize("")
lblmenu.Initialize("lblmenu")
pnlcontent.Color=Colors.White
pnlcontent.AddView(lblmenu,85%x,0%y,15%x,15%y)  ' (left, top, width. height)
lblmenu.Typeface=Typeface.MATERIALICONS
	lblmenu.Text=Chr(0xE5D2) 
	lblmenu.TextSize=30        
	lblmenu.TextColor=Colors.Black
	lblmenu.Gravity=Gravity.RIGHT
	pnlcontent.AddView(lblcontent,0%x,10%y,100%x,90%y)
	lblcontent.Text="این قسمت مربوط به صفحه اصلی و اکتیویتی برنامه است"
	lblcontent.TextSize=20
	For i=0 To 2
		btnnavi(i).Initialize("btn"&i)
		pnlnavi.AddView(btnnavi(i),5%x,i*15%y + 5%y,60%x,10%y)
		btnnavi(i).TextSize=20
		btnnavi(i).Gravity=Gravity.CENTER
		btnnavi(i).Color=Colors.White
		btnnavi(i).Text="باتون شماره "&i
		btnnavi(i).TextColor=Colors.Black
	Next
	navi.ContentPanel.AddView(pnlcontent,0%x,0%y,100%x,100%y)
	navi.NavigationPanel.AddView(pnlnavi,0%x,0%y,70%x,100%y)
	navi.NavigationPanel.Color=Colors.RGB(220,220,220)

End Sub

Sub lblmenu_click
	navi.OpenDrawer2(navi.GRAVITY_RIGHT)
End Sub