منوی ناوبری (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