رفتن به مطلب
بیسیک فور ایکس
  • 0
reza60

عدم نمایش آیکون و نوشته های اسلایدر msmaterialdrawer

سوال

با سلام...من بعد از ساخت  اسلایدر با کتابخانه MSMaterialDrawer   بخاطر اینکه متریال را راست چین کردم  آیکونهای اسلایدر نشون داده نمیشن آیا راه حلی نیست که این مشکل را برطرف کنم؟

#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
#Extends: android.support.v7.app.AppCompatActivity
#AdditionalRes:..\res
#AdditionalRes:..\md-app\res
#AdditionalRes:..\md-lib\res
Sub Process_Globals
	

End Sub

Sub Globals
	Private toolbar As ACToolBarDark
	Dim mdb As MSMaterialDrawerBuilder
	Dim md As MSMaterialDrawer
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("l1")
    toolbar.SetAsActionBar
    ForseRtlSupported
	drawel
	''''''''''''''''''''''''''
	Activity.AddMenuItem2("درباره ما","title1",LoadBitmap(File.DirAssets,"ic_settings_black_36dp.png"))
	Activity.AddMenuItem("تماس با ما","title2")
	Activity.AddMenuItem("آیتم سوم","title3")
	Activity.AddMenuItem("آیتم سوم","title4")
	Activity.AddMenuItem("آیتم سوم","title5")
	Activity.AddMenuItem("آیتم سوم","title6")
	Activity.AddMenuItem("آیتم سوم","title7")
	Activity.AddMenuItem("آیتم سوم","title8")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub drawel
	Dim pnlhdr As Panel
	pnlhdr.Initialize("")
	pnlhdr.Color = Colors.LightGray
	pnlhdr.Tag = "header"
	
	Dim msp1 As MSProfile
	Dim icon1 As BitmapDrawable
	icon1.Initialize(LoadBitmap(File.DirAssets,"myface.png"))
	msp1.withName("میر رضا عطایی").withEmail("reza@gmail.com").withIcon(icon1)
	
	Dim msp2 As MSProfile
	Dim icon2 As BitmapDrawable
	icon2.Initialize(LoadBitmap(File.DirAssets,"1.1 (729).png"))
	msp2.withName("محمدمهدی نهامین").withEmail("mohammad@gmail.com").withIcon(icon2)
	
	Dim profiles(2) As MSProfile
	profiles(0) = msp1
	profiles(1) = msp2
	
	Dim header As MSAccountHeaderBuilder
	Dim headerbg As BitmapDrawable
	headerbg.Initialize(LoadBitmap(File.DirAssets,"header.jpg"))
	header.Initialize("header")
	header.addProfiles(profiles)
	header.withHeaderBackground(headerbg)
	Dim headerobject As Object = header.build
	
	Dim ic1 As MSIconicDrawable
	ic1.Initialize("gmd_home")
	ic1.Color = 0xffff4081
	
	Dim ic2 As MSIconicDrawable
	ic2.Initialize("gmd_drafts")
	ic2.Color = 0xffff4081
	
	Dim ic3 As MSIconicDrawable
	ic3.Initialize("gmd_person")
	ic3.Color = 0xffff4081
	

	Dim sl1 As MSIconicDrawable
	sl1.Initialize("gmd_settings")
	sl1.Color = 0xffff4081
	
	Dim sl2 As MSIconicDrawable
	sl2.Initialize("gmd_help")
	sl2.Color = 0xffff4081
	
	Dim sl3 As MSIconicDrawable
	sl3.Initialize("faw_google_wallet")
	sl3.Color = 0xffff4081
	
	mdb.Initialize("mbd")
	mdb.withAccountHeader(headerobject)
	mdb.AddPrimaryDrawerItem("خانه",ic1.Drawable,Null,"+99",True,1,"صفحه اصلی")
	mdb.AddPrimaryDrawerItem("پیام ها",ic1.Drawable,Null,"+99",True,2,"پیامهای دریافتی")
	mdb.AddPrimaryDrawerItem("اشخاص",ic1.Drawable,Null,"+99",True,3,"")
	mdb.AddSectionDrawerItem("section",True)
	mdb.AddSecondaryDrawerItem("تنظیمات",sl1.Drawable,Null,"",True,4)
	mdb.AddSecondaryDrawerItem("راهنمایی",sl2.Drawable,Null,"",True,5)
	mdb.AddSecondaryDrawerItem("همکاری",sl3.Drawable,Null,"",False,6)
	mdb.AddSecondaryDrawerItem("همکاری",Null,Null,"",False,7)
	'برای آوردن سه خط از کد زیر استفاده میکنیم
	mdb.withToolbar(toolbar)
	mdb.withActionbarToggle(True)
	mdb.withActionbarToggleAnimated(True)
	md = mdb.Build
End Sub

Sub mdb_ItemClick(Position As Int, Identifier As Int)
	ToastMessageShow("Position is : " &Position & "Identifier is :" &Identifier , False)
End Sub
Sub header_ProfileChanged(Profile As MSProfile)
	ToastMessageShow(Profile.Name , False)
End Sub
Sub header_ProfileClicked(Profile As MSProfile)
	ToastMessageShow(Profile.Email , False)
End Sub
	
Sub ForseRtlSupported
	Dim j,jo As JavaObject
	jo.InitializeStatic("android.view.View")
	If j.InitializeStatic("android.os.Build$VERSION").GetField("SDK_INT")>16 Then
		j.InitializeContext.RunMethodJO("getWindow",Null).RunMethodJO("getDecorView",Null).RunMethod("setLayoutDirection",Array(jo.GetField("LAYOUT_DIRECTION_RTL")))
	End If
End Sub


Sub ACButton1_Click
	
End Sub

این کدهای اکتیویتی

اینم لینک تصویر اسلایدر

Screenshot_27_.png

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


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

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

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

  • 0

با سلام

چرا با استفاده از این خط کد 

dim MDB as MSMaterialDrawerBuilder

(MDB.withDrawerGravity(Gravity.RIGHT

نمیایی منو رو راست چین کنی؟

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

×