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

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


  • 0
saimon2

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

سوال

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

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

0 پاسخ به این سوال تا کنون داده شده است

پست های پیشنهاد شده

هنوز برای این سوال پاسخی ارسال نشده است

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
پاسخ به این سوال ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.


×
×
  • جدید...