Dim pnlHdr As Panel
pnlHdr.Initialize("")
pnlHdr.Color = Colors.DarkGray
pnlHdr.Tag = "Header"
Dim MSP1 As MSProfile
Dim PDB1 As BitmapDrawable : PDB1.Initialize(LoadBitmap(File.DirAssets,"profile3.jpg"))
MSP1.withName("Sebastián").withEmail("admin").withIcon(PDB1)
Dim MSP2 As MSProfile
Dim PDB2 As BitmapDrawable : PDB2.Initialize(LoadBitmap(File.DirAssets,"app.png"))
MSP2.withName("Neo").withEmail("[email protected]").withIcon(PDB2)
Dim Profiles(2) As MSProfile
Profiles(0) = MSP1
Profiles(1) = MSP2
Dim msa As MSAccountHeaderBuilder
Dim HeaderBackground As BitmapDrawable
HeaderBackground.Initialize(LoadBitmap(File.DirAssets,"header.jpg"))
msa.Initialize("MSA")
msa.addProfiles(Profiles)
msa.withHeaderBackground(HeaderBackground)
Dim MaterialHeaderResult As Object = msa.build
Dim icon_notification, icon_settings, icon_home, icon_help, icon_security, icon_speak As BitmapDrawable
icon_notification.Initialize(LoadBitmap(File.DirAssets,"notification.png"))
icon_settings.Initialize(LoadBitmap(File.DirAssets,"settings.png"))
icon_home.Initialize(LoadBitmap(File.DirAssets,"home.png"))
icon_help.Initialize(LoadBitmap(File.DirAssets,"help.png"))
icon_security.Initialize(LoadBitmap(File.DirAssets,"lock.png"))
icon_speak.Initialize(LoadBitmap(File.DirAssets,"speak.png"))
MDB.Initialize("MD")
MDB.withAccountHeader(MaterialHeaderResult)
MDB.AddPrimaryDrawerItem ("Inicio" , icon_home , Null ,"" ,True, 1, "")
MDB.AddPrimaryDrawerItem ("Notificaciones" , icon_notification , Null ,"4" ,True, 2, "Ver más...")
MDB.AddPrimaryDrawerItem ("Seguridad" , icon_security , Null ,"Desarmada" ,True, 3, "")
'MDB.AddSectionDrawerItem ("Asistente" ,True)
MDB.AddSecondaryDrawerItem("Configuración" , icon_settings , Null ,"" ,True ,4)
MDB.AddSecondaryDrawerItem("Voz" , icon_speak , Null ,"" ,True ,5)
MDB.AddSecondaryDrawerItem("Ayuda" , icon_help , Null ,"" ,True ,6)
MD = MDB.Build