B4J Library [BANanoVueMaterial]: The first complete opensource VueJS UX based framework for BANano

Dim lbla1 As VMLabel = vm.CreateLabel("").SetParagraph
    lbla1.SetText(vm.Rand_LoremIpsum(1))
    Dim contbtnaa As VMContainer
    contbtnaa = vm.CreateContainer("contxaa", Me)
    contbtnaa.AddControlS(lbla1.Label, lbla1.tostring, 1, 1, 12, 12, 12, 12)
    '
    Dim lbla2 As VMLabel = vm.CreateLabel("").SetParagraph
    lbla2.SetText(vm.Rand_LoremIpsum(1))
    Dim contbtnba As VMContainer
    contbtnba = vm.CreateContainer("contxba", Me)
    contbtnba.AddControlS(lbla2.Label, lbla2.tostring, 1, 1, 12, 12, 12, 12)
    '
    Dim lbla3 As VMLabel = vm.CreateLabel("").SetParagraph
    lbla3.SetText(vm.Rand_LoremIpsum(1))
    Dim contbtnca As VMContainer
    contbtnca = vm.CreateContainer("contxc", Me)
    contbtnca.AddControlS(lbla3.Label, lbla3.tostring, 1, 1, 12, 12, 12, 12)
    
    Dim b1 As VMTabs = vm.CreateTabs("b1", Me).SetVertical(True).SetIconsAndText(True)
    b1.AddTab("b1", "Item 1", "mdi-phone",contbtnaa)
    b1.AddTab("b2", "Item 2", "mdi-access-point",contbtnba)
    b1.AddTab("b3", "Item 3", "mdi-account-box", contbtnca)
    b1.AddToContainer(cont, 4, 1)

b.AddTabBadge("b2", "Item 2", "mdi-heart", contbtnb, "10")

Sub btnadd_click(e As BANanoEvent)
    vm.SetBadgeContent("b2", "15")
End Sub

Sub btncolor_click(e As BANanoEvent)
    vm.SetBadgeColor("b2", vm.COLOR_RED, vm.INTENSITY_NORMAL)
End Sub

st.Initialize(vue, "st1", "name", Me)
    st.SetFixedHeader(True)
    st.SetHeight("400px")
    st.AddColumn("name", "Name")
    st.AddColumn("calories", "Calories")
    st.SetDark(True)
    st.AddRow(CreateMap("name": "Frozen Yogurt", "calories": 159))
    st.AddRow(CreateMap("name": "Ice cream sandwich", "calories": 237))
    st.AddRow(CreateMap("name": "Eclair", "calories": 262))
    st.AddRow(CreateMap("name": "Cupcake", "calories": 305))
    st.AddRow(CreateMap("name": "Gingerbread", "calories": 356))
    st.AddRow(CreateMap("name": "Jelly bean", "calories": 375))
    st.AddRow(CreateMap("name": "Lollipop", "calories": 392))
    st.AddRow(CreateMap("name": "Honeycomb", "calories": 408))
    st.AddRow(CreateMap("name": "Donut", "calories": 452))
    st.AddRow(CreateMap("name": "KitKat", "calories": 518))
    cont.AddComponent(1,1, st.tostring)

dtButtons = vm.CreateDataTable("dtButtons", "name", Me)
    dtButtons.SetTitle("Button Variants")
    dtButtons.AddColumn("name", "Name")
    dtButtons.AddColumn("calories", "Calories")
    '
    dtButtons.AddButtonColumn("btnwarn", "Warning").SetButtonWarning("btnwarn")
    dtButtons.AddButtonColumn("btnerror", "Errors").SetButtonError("btnerror")
    dtButtons.AddButtonColumn("btnsuccess", "Success").SetButtonSuccess("btnsuccess")
    dtButtons.AddButtonColumn("btnsecondary", "Secondary").SetButtonSecondary("btnsecondary")
    dtButtons.AddButtonColumn("btnprimary", "Primary").SetButtonPrimary("btnprimary")
    dtButtons.AddButtonColumn("btnrounded", "Rounded").SetButtonRounded("btnrounded")
    dtButtons.AddButtonColumn("btnoutlined", "Outlined").SetButtonOutlined("btnoutlined").SetButtonPrimary("btnoutlined")
    '
    dtButtons.AddRow(CreateMap("name": "Frozen Yogurt", "calories": 159))
    dtButtons.AddRow(CreateMap("name": "Ice cream sandwich", "calories": 237))
    dtButtons.AddRow(CreateMap("name": "Eclair", "calories": 262))
    dtButtons.AddRow(CreateMap("name": "Cupcake", "calories": 305))
    dtButtons.AddRow(CreateMap("name": "Gingerbread", "calories": 356))
    dtButtons.AddRow(CreateMap("name": "Jelly bean", "calories": 375))
    dtButtons.AddRow(CreateMap("name": "Lollipop", "calories": 392))
    dtButtons.AddRow(CreateMap("name": "Honeycomb", "calories": 408))
    dtButtons.AddRow(CreateMap("name": "Donut", "calories": 452))
    dtButtons.AddRow(CreateMap("name": "KitKat", "calories": 518))
    dtButtons.AddToContainer(cont, 5, 1)

Sub dtButtons_btnoutlined(item As Map)
    vm.ShowSnackBarPrimary("Outlined...")
End Sub


Sub dtButtons_btnrounded(item As Map)
    vm.ShowSnackBarPrimary("Rounded...")
End Sub


Sub dtButtons_btnprimary(item As Map)
    vm.ShowSnackBarPrimary("Primary...")
End Sub


Sub dtButtons_btnsecondary(item As Map)
    vm.ShowSnackBarSecondary("Secondary...")
End Sub


Sub dtButtons_btnsuccess(item As Map)
    vm.ShowSnackBarSuccess("Success...")
End Sub


Sub dtButtons_btnwarn(item As Map)
    vm.ShowSnackBarWarning("Warning...")
End Sub

Sub dtButtons_btnerror(item As Map)
    vm.ShowSnackBarError("Error...")
End Sub

Dim images As List = vm.newlist
    images.add(CreateMap("image": "./assets/bird.jpg", "sendto":"mashy@gmail.com", "comment":"A bird seen from above", "lat":"16.0", "lng":"20.1", "datetaken":"1973-04-15"))
    images.add(CreateMap("image": "./assets/dark-beach.jpg", "sendto":"ozzie@gmail.com", "comment":"Seen whilst walking", "lat":"36.0", "lng":"24.8", "datetaken":"2003-02-27"))
    images.add(CreateMap("image": "./assets/planet.jpg", "sendto":"orio@gmail.com", "comment":"A need to visit planets", "lat":"1.0", "lng":"1.1", "datetaken":"2009-04-01"))
    images.add(CreateMap("image": "./assets/sky.jpg", "sendto":"ernesto@gmail.com", "comment":"A beautiful skyline", "lat":"0", "lng":"0", "datetaken":"2010-04-24"))
    images.add(CreateMap("image": "./assets/squirrel.jpg", "sendto":"tgifzone.inc@gmail.com", "comment":"Nutting around", "lat":"45", "lng":"30", "datetaken":"2010-09-02"))

....
....
dtImages.AddLink("sendto", "Email To", "_blank")
dtImages.SetColumnPrefix("sendto", "mailto:")
....
....