Sub Process_Globals
Public vuetify As VuetifyApp
Private BANano As BANano
Private vsnackbar As VueElement
Private routerview As VueElement
Private vappbar As VueElement
Private vappbarnavicon As VueElement
Private vmain As VueElement
Private vnavigationdrawer As VueElement
Private vtoolbartitle As VueElement
Private vlogo As VueElement
End Sub
Sub Init
'initialize the app
vuetify.Initialize(Me)
'initialize and import the component
'load v-app to app template
BANano.LoadLayout("#apptemplate", "vbaseline")
vuetify.BindVueElement(vsnackbar)
vuetify.BindVueElement(routerview)
vuetify.BindVueElement(vappbar)
vuetify.BindVueElement(vappbarnavicon)
vuetify.BindVueElement(vmain)
vuetify.BindVueElement(vtoolbartitle)
vuetify.BindVueElement(vnavigationdrawer)
vuetify.BindVueElement(vlogo)
'
vuetify.SetData("apptitle", Main.AppTitle)
vnavigationdrawer.Width = 350
' set up snack bar stuff: depends on the vsnackbar layout
vuetify.SnackBarInitialize
'add a list to the navdrawer
Dim vlist As VueElement = NewList("vnavigationdrawer", "navlist", Null)
vlist.Shaped = True
'add a template to the drawer list
Dim vlistitem As VueElement = NewListItem("navlist", "navlistitem", "page", "iconleft", "pages", 0, CreateMap("inset":False, "avatarclass":"mr-2", "iconclass":"mr-2"))
vuetify.BindVueElement(vlistitem)
AddRouters
PageLinks
'
'show the drawer
vuetify.SetData("appdrawer", True)
'render the ux
vuetify.Serve
End Sub
Sub AddRouters
ViewHome.Initialize
ViewClienti.Initialize
End Sub
Sub PageLinks
Dim pages As List = vuetify.NewList
pages.Add(CreateMap("color":"purple","icon": "mdi-account-multiple", "title":"Clienti", "subtitle":"Archivio clienti","#tag":"/clienti" ))
pages.Add(CreateMap("icon": "mdi-package-variant", "title": "Articoli","subtitle":"Archivio articoli","#tag":"/" ))
pages.Add(CreateMap("icon": "mdi-folder" , "title": "Ordini","subtitle":"Archivo ordini","to":"/clienti" ))
pages.Add(CreateMap("icon": "mdi-email", "title": "Messaggi","subtitle":"Messaggi","to":"/" ))
vuetify.SetData("pages", pages)
End Sub
'this Is linkes To the list
Sub navlist_click(item As String )
vuetify.ShowSnackBarSuccess( item )
End Sub