رفتن به مطلب
  • 0

پایین آمدن تولبار بعد از ساخت اسلاید منو


reza1360

سوال

با سلام.دوستان عزیر من بعد از ساخت اسلاید منو با MSMaterialDrawel تولبارم پایین میاد و از بالای صفحه جدا میشه و از حالت 100%x خارج میشه میشه راهنمایی بفرمایید؟

 

Sub Activity_Create(FirstTime As Boolean)
	
	''''''''''''''''''''''''''''''''''''''مراحل ساخت اسلاید منو
	Dim pnlheader As Panel
	pnlheader.Initialize("pnlheader")
	pnlheader.Tag ="header"
	   
	Dim msp As MSProfile
	Dim bmd As BitmapDrawable
	bmd.Initialize(LoadBitmap(File.DirAssets,"myface.png"))
	msp.withName("میر رضا عطایی").withEmail("info@sunsimkart").withIcon(bmd)
		
	Dim profilse(1) As MSProfile
	profilse(0) = msp
		
	Dim msa As MSAccountHeaderBuilder
	Dim bmd1 As BitmapDrawable
	bmd1.Initialize(LoadBitmap(File.DirAssets,"header.jpg"))
	msa.Initialize("")
	msa.addProfiles(profilse)
	msa.withHeaderBackground(bmd1)
	Dim obj As Object = msa.build
		
	Dim p1,p2,p3 As MSIconicDrawable
	p1.Initialize("gmd_home")
	p1.Color = Colors.Red
	p2.Initialize("gmd_drafts")
	p2.Color = Colors.Red
	p3.Initialize("gmd_person")
	p3.Color = Colors.Red
		
	Dim x1,x2,x3 As MSIconicDrawable
	x1.Initialize("gmd_settings")
	x1.Color = Colors.Red
	x2.Initialize("gmd_help")
	x2.Color = Colors.Red
	x3.Initialize("faw_google_wallet")
	x3.Color = Colors.Red
		
	MDB.Initialize("")
	MDB.withAccountHeader(obj)
	MDB.AddPrimaryDrawerItem("خانه",p1.Drawable,Null,300,True,1,"صفحه اصلی برنامه")
	MDB.AddPrimaryDrawerItem("پیام ها",p2.Drawable,Null,80,True,2,"پیامهای دریافتی")
	MDB.AddPrimaryDrawerItem("اشخاص",p3.Drawable,Null,"",True,3,"اشخاص را دنبال کنید")
	MDB.AddSectionDrawerItem("",True)
		 
	MDB.AddSecondaryDrawerItem("تنظیمات",x1.Drawable,Null,"",True,4)
	MDB.AddSecondaryDrawerItem("راهنمایی",x2.Drawable,Null,"",True,5)
	MDB.AddSecondaryDrawerItem("همکاری",x3.Drawable,Null,"",True,6)
	MDB.withDrawerGravity(Gravity.LEFT)
	MD = MDB.Build
	'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	Activity.LoadLayout("main")
	ForseRtlSupported
	toolbar.SetAsActionBar
	Dim pnl_tool As Panel = toolbar
	For Each v As View In pnl_tool
		If v Is Label Then
			Dim lbl As Label = v
			Select lbl.Text
				Case toolbar.Title
					lbl.Typeface = Typeface.LoadFromAssets("B Yekan.TTF")
					lbl.TextSize = 20
			End Select
		End If
	Next
		Dim bmd , bmd1 As BitmapDrawable
		Dim xm , xm1 As XmlLayoutBuilder
		bmd = xm.GetDrawable("ic_account_outline_white_24dp")
		Activity.AddMenuItem3("user","menu1",bmd.Bitmap,True)
		bmd1 = xm1.GetDrawable("ic_bookmark_white_24dp")
	   Activity.AddMenuItem3("bookmark","menu2",bmd1.Bitmap,True)
End Sub

اینم لینک تصویر  http://s9.picofile.com/file/8341445634/Screenshot_26_.png

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

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

ارسال‌های توصیه شده

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...