Sub Badges_Show
Dim div As ReactElement = BR.div("mybadges")
div.AddElement(BR.CreateElement("p",CreateMap(),"Badges"))
Dim badge1 As MDLItem
badge1.Initialize(BR, "div").SetMaterialIcons("account_box").SetBadge(1).SetBadgeOverlap(True)
'
div.AddElement(badge1.item)
div.AddBR
'
div.AddElement(BR.CreateElement("span",CreateMap("data-badge":"4","className":"mdl-badge"),"Inbox")) '<-----Event
div.AddBR
'
div.AddElement(BR.CreateElement("a", CreateMap("data-badge":"10","href":"#","className":"mdl-badge"),"This link has a badge."))
div.AddBR
'
div.AddElement(BR.CreateElement("a", CreateMap("data-badge":"5","href":"#","className":"mdl-badge mdl-badge--no-background"),"This link has a badge.")) '<---- Event
div.Render("grid")
MDL.upgrade
End Sub