دوستان من ی سورس برای منوی کشویی پیدا کردم و میخواستم اون رو به یک اکتیویتی از پروژم اضافه کنم فقط یک مشکلی دارم زمانی که پروژه رو کامپایل میکنم صفحه ای که خودم نوشتم بعد از استفاده منو غیر فعال میشه و برنامه درست انجام نمیشه.
سوال من اینه که روش یا نکته ی خاصی رو باید در نظر بگیرم تا بتونم درست این سورس رو به پروژم اضافه کنم؟من درست همون جایی که تو تصویر مشخص کردم اسم اکتیویتی خودم رو وارد میکنم.
اینم بگم که من کد های خودمو (بیشتر مریوط به نمای ظاهری اونا و سایز فونت و ... )با ابسترکت دیزاینر طراحی کردم نه با کد مستقیم.
ببخشید که طولانی شد به احتمال قوی خوب منظورم رو نرسوندم اگر متوجه نشدید بگین توضیح بدم با تشکر
#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 RegionSubProcess_Globals'These global variables will be declared once when the application starts.'These variables can be accessed from all modules.EndSubSubGlobals'These global variables will be redeclared each time the activity is created.'These variables can only be accessed from this module.Dim navi AsAHNavigationDrawerDim pnlcontent AsPanelDim pnlnavi AsPanelDim lblmenu AsLabelDim lblcontent AsLabelDim btnnavi(3)AsButtonEndSubSubActivity_Create(FirstTimeAsBoolean)'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=20For i=0To2
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.BlackNext
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)EndSubSub lblmenu_click
navi.OpenDrawer2(navi.GRAVITY_RIGHT)EndSub
سوال
saimon2 0
سلام.
دوستان من ی سورس برای منوی کشویی پیدا کردم و میخواستم اون رو به یک اکتیویتی از پروژم اضافه کنم فقط یک مشکلی دارم زمانی که پروژه رو کامپایل میکنم صفحه ای که خودم نوشتم بعد از استفاده منو غیر فعال میشه و برنامه درست انجام نمیشه.
سوال من اینه که روش یا نکته ی خاصی رو باید در نظر بگیرم تا بتونم درست این سورس رو به پروژم اضافه کنم؟من درست همون جایی که تو تصویر مشخص کردم اسم اکتیویتی خودم رو وارد میکنم.
اینم بگم که من کد های خودمو (بیشتر مریوط به نمای ظاهری اونا و سایز فونت و ... )با ابسترکت دیزاینر طراحی کردم نه با کد مستقیم.
ببخشید که طولانی شد به احتمال قوی خوب منظورم رو نرسوندم اگر متوجه نشدید بگین توضیح بدم با تشکر
لینک ارسال
به اشتراک گذاری در سایت های دیگر
0 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.