درخواست آموزش اکشن بار

[محمدی 95]

سلام

من یه همچنین اکشن باری میخوام

دقت کنید اکشن بار

((فقط همون تیکه بالایی))

با بقیه عکس کاری ندارم

خواااااااااااااهش میکنم یه همچنین اکشن باری رو راهنمایی کنید درست کنم نمیتونم

یک هفته ست دیوونه کرده منو

خواهش میکنم

[Kazem Forghani 2,928]

با یک :

Panel

5 تا Button

و یک Label تمومه

[محمدی 95]

خیلی ممنون آقا کاظم با پنل و باتون نميشه باتونمو متریال کنم

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

بعدشم اکشن بار یه کار حرفه ای تره

[mohammad002 1]

سلام

من یه همچنین اکشن باری میخوام

دقت کنید اکشن بار

((فقط همون تیکه بالایی))

با بقیه عکس کاری ندارم

خواااااااااااااهش میکنم یه همچنین اکشن باری رو راهنمایی کنید درست کنم نمیتونم

یک هفته ست دیوونه کرده منو

خواهش میکنم

لطا راهنمایی کنید من هم گیر کردم

[pedro 642]

لطا راهنمایی کنید من هم گیر کردم

داداش نباید تاپیک مال 100 قرن پیشو بالا میاوردی، دوستان قفل میکنن احتمالن حالا ک گیر کردی سرچ کن "متریال" کلی نتیجه داره و سورس! راه بندازش اکشن بارشم این طوریه ولی ازین ب بعد تاپیکی ک بیشتر از 1 ماه گذشته از زدنش و دیگه کسی چیزی نمینویسه نباید سوال کنید

[parhamahmadi78 93]

سلام

من یه همچنین اکشن باری میخوام

دقت کنید اکشن بار

((فقط همون تیکه بالایی))

با بقیه عکس کاری ندارم

خواااااااااااااهش میکنم یه همچنین اکشن باری رو راهنمایی کنید درست کنم نمیتونم

یک هفته ست دیوونه کرده منو

خواهش میکنم

انشاءالله اگه شد اموزشش رو میسازم توی این هفته

تولبار مخصوص زبان فارسی

[mohammad3250 206]

خب اول یک کاستم ویو بساز و رو acactionbarlite قرار بده و جنریت کن -->  Private actionbar As ACToolBarLight

 

Dim helper As ACActionBar

 

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

helper.Initialize
	
actionbar.SetAsActionBar
	actionbar.Title="عنوان اکشن بار"
BuildDrawer	

بعد ساب زیر تعریف کن تمام شد...

Sub BuildDrawer
	Dim pnlHdr As Panel 
	pnlHdr.Initialize("")
	pnlHdr.Color = Colors.DarkGray 
	pnlHdr.Tag = "Header"
	
	Dim msa As MSAccountHeaderBuilder 
	Dim HeaderBackground As BitmapDrawable 
	HeaderBackground.Initialize(LoadBitmap(File.DirAssets,"header.jpg"))
	msa.Initialize("MSA")
	msa.withHeaderBackground(HeaderBackground)
	Dim MaterialHeaderResult As Object = msa.build 
	
	Dim p1 As MSIconicDrawable : p1.Initialize("gmd_home")          : p1.Color = 0xffff4081
	Dim p2 As MSIconicDrawable : p2.Initialize("gmd_drafts")        : p2.Color = 0xffff4081
	Dim p3 As MSIconicDrawable : p3.Initialize("gmd_person")        : p3.Color = 0xffff4081
	Dim p4 As MSIconicDrawable : p4.Initialize("gmd_exit_to_app")   : p4.Color = 0xffff4081
	

	
	MDB.Initialize("MD")
	MDB.withAccountHeader(MaterialHeaderResult)
	MDB.AddPrimaryDrawerItem  (" sms" , p1.Drawable ,Null ,"1.0.0.0" ,True,1, "")
	MDB.AddPrimaryDrawerItem  ("References" , p2.Drawable ,Null ,""   ,True,2, "")
	MDB.AddPrimaryDrawerItem  ("About"  , p3.Drawable ,Null ,""    ,True,2, "")
	MDB.AddPrimaryDrawerItem  ("Exit"  , p4.Drawable ,Null ,""    ,True,3, "")
	
	MDB.withToolbar(actionbar)
	MDB.withActionbarToggle(True)
	MDB.withActionbarToggleAnimated(True)
	MD = MDB.Build 
End Sub