مینی سورس Navigation menu در بیسیک فور اندروید

[MR.B4A 220]

منوی ناوبری (Navigation Menu) بخشی از سایت یا اپلیکیشن است که لینک‌های اصلی را نمایش می‌دهد تا کاربر بتواند به‌راحتی بین بخش‌های مختلف حرکت کند.

یک منوی زیبا و بسیار کاربردی در basic4android

بریم سراغ سورس:

در هر اکتیویتی که خواستید، دستورات زیر را برای پیاده سازی منو، بنویسید:

Sub Process_Globals
	Private xui As XUI
End Sub

Sub Globals
	Private tapsellPlus As TapsellPlus
	
	Private MP_NavigationMenu1 As MP_NavigationMenu
	Private lbl_about As Label
	Private img_about As ImageView
	Private w_store As WebView
	Private pnl_adv As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout")
	
	w_store.LoadUrl("https://sourcecity.ir/")
	
	tapsellPlus.Initialize("hcsnfpnlkhobqkcdbhhagiispqghajpdcbqiohaqtdfsqoooilltfemdlftsgqndbmtnti")
	tapsellPlus.RequestAndShowNativeVideoAd("69640a1b190b2c3436e832f5",pnl_adv, True)
	
	MP_NavigationMenu1.AddMenu(Chr(0xF170),Chr(0xF170),Colors.Black,0xFF1EE77B,"About us",Typeface.DEFAULT _
	,xui.CreateFontAwesome(20),13,0xFF097A00)
	
	MP_NavigationMenu1.AddMenu((Chr(0xF0A3)),Chr(0xF0A3),Colors.Black,0xFF1171F9,"day_night",Typeface.DEFAULT _
	,xui.CreateFontAwesome(20),13,0xFF006CB6)
	
	MP_NavigationMenu1.AddMenu(Chr(0xF015),Chr(0xF015),Colors.Black,0xFF5A00B0,"Home",Typeface.DEFAULT_BOLD _
	,xui.CreateFontAwesome(25),13,0xFF1C0082)
	
	MP_NavigationMenu1.AddMenu(Chr(0xF187),Chr(0xF187),Colors.Black,0xFF9DFF00,"Store",Typeface.DEFAULT _
	,xui.CreateFontAwesome(20),13,0xFF106500)
	
	MP_NavigationMenu1.AddMenu(Chr(0xF08E),Chr(0xF08E),Colors.Black,0xFF00A7FF,"Exit",Typeface.DEFAULT _
	,xui.CreateFontAwesome(20),13,0xFF005194)
End Sub

Private Sub MP_NavigationMenu1_Selected(Value As Int)
	If Value=0 Then
		lbl_about.SetVisibleAnimated(500,True)
		img_about.SetVisibleAnimated(500,True)
		lbl_about.TextColor=Colors.Black
		w_store.Visible=False
		Activity.SetBackgroundImage(LoadBitmap(File.DirAssets,"day.jpg"))
	Else If Value=1 Then
		ToastMessageShow("حالت شب",False)
		Activity.SetBackgroundImage(LoadBitmap(File.DirAssets,"night.jpg"))
		lbl_about.TextColor=Colors.White
	Else If Value=2 Then
		Activity.SetBackgroundImage(LoadBitmap(File.DirAssets,"day.jpg"))
		lbl_about.Visible=False
		img_about.Visible=False
		w_store.Visible=False
	Else If Value=3 Then
		lbl_about.Visible=False
		img_about.Visible=False
		w_store.Visible=True
		Activity.SetBackgroundImage(LoadBitmap(File.DirAssets,"day.jpg"))
	Else If Value=4 Then
		Msgbox2Async("آیا میخواهید خارج شوید؟", "خروج", "بله", "", "نه", Null, False)
		Wait For Msgbox_Result (Result As Int)
		If Result = DialogResponse.POSITIVE Then
			ExitApplication
		End If
	End If
End Sub

کانال های MR.B4A
ایتا:

https://eitaa.com/basic4androidlan

تلگرام:

https://t.me/programmingwithb4a