<script runat="server"> Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) ' Demonstrates Venn chart with icons in point labels. Chart.Type = ChartType.Venn Chart.Size = "530x430" Chart.TempDirectory = "temp" Chart.Debug = False Chart.DefaultElement.ShowValue = True Chart.DefaultElement.SmartLabel.Color = Color.White Chart.DefaultElement.SmartLabel.Text = "js:function(){return ""<icon name=%icon size=50 color=white><br>%name""}" Chart.DefaultElement.ToolTip = "" Chart.Palette = New Color() { } Chart.JS.Enabled = True Chart.JS.Settings.Add("defaultSeries.mouseTracking.enabled", "false") Chart.PaletteName = Palette.FiveColor40 addData() End Sub Sub addData() 'Add a series Dim ser1 As Series = New Series()
Dim el As Element = New Element("Social", 5) el.CustomAttributes.Add("icon", "material/social/group") ser1.Elements.Add(el)
el = New Element("Environment", 5) el.CustomAttributes.Add("icon", "material/image/nature-people") ser1.Elements.Add(el)
el = New Element("Economic", 5) el.CustomAttributes.Add("icon", "material/maps/local-grocery-store") ser1.Elements.Add(el)
el = New Element("Bearable", 2) el.CustomAttributes.Add("icon", "''") Dim sv As SubValue = New SubValue() sv.Name = "Social" el.SubValues.Add(sv) sv = New SubValue() sv.Name = "Environment" el.SubValues.Add(sv) ser1.Elements.Add(el)
el = New Element("Equitable", 2) el.CustomAttributes.Add("icon", "''") sv = New SubValue() sv.Name = "Social" el.SubValues.Add(sv) sv = New SubValue() sv.Name = "Economic" el.SubValues.Add(sv) ser1.Elements.Add(el)
el = New Element("Viable", 2) el.CustomAttributes.Add("icon", "''") sv = New SubValue() sv.Name = "Environment" el.SubValues.Add(sv) sv = New SubValue() sv.Name = "Economic" el.SubValues.Add(sv) ser1.Elements.Add(el)
el = New Element("Sustainable", 2) el.CustomAttributes.Add("icon", "''") sv = New SubValue() sv.Name = "Social" el.SubValues.Add(sv) sv = New SubValue() sv.Name = "Environment" el.SubValues.Add(sv) sv = New SubValue() sv.Name = "Economic" el.SubValues.Add(sv) ser1.Elements.Add(el)
Chart.SeriesCollection.Add(ser1)
End Sub </script> <html xmlns="http://www.w3.org/1999/xhtml"> <head><title>Venn sample</title></head> <body> <div align="center"> <dotnet:Chart ID="Chart" runat="server" /> </div> </body> </html>
Previous