Radar Scale

Coordinator
Oct 2, 2013 at 7:56 AM
Sub DhtmlxCharts22()
        Dim dhtmlxChart2 As New dhtmlxChart2
        dhtmlxChart2.Title = "dhtmlxChart: Radar Scale"
        dhtmlxChart2.Heading = dhtmlxChart2.Title
        dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.radar
        dhtmlxChart2.Width = "500px"
        dhtmlxChart2.Height = "300px"
        dhtmlxChart2.border = "border:1px solid #A4BED4"
        dhtmlxChart2.value = "companyA"
        dhtmlxChart2.RadarChart.disableLines = True
        ' the first column name should alwways be the x axis column name
        dhtmlxChart2.AddColumns("month", "companyA", "companyB")
        dhtmlxChart2.AddXY("Jan", "4.8", "2.3")
        dhtmlxChart2.AddXY("Feb", "5.0", "2.1")
        dhtmlxChart2.AddXY("Mar", "3.2", "0.1")
        dhtmlxChart2.AddXY("Apr", "3.1", "5.7")
        dhtmlxChart2.AddXY("May", "1.0", "3.0")
        dhtmlxChart2.AddXY("Jun", "1.3", "2.6")
        dhtmlxChart2.RadarChart.item.visible = True
        dhtmlxChart2.RadarChart.item.borderWidth = 0
        dhtmlxChart2.RadarChart.item.radius = 2
        dhtmlxChart2.RadarChart.item.color = System.Drawing.Color.Red
        dhtmlxChart2.RadarChart.xAxis.template = "month"
        dhtmlxChart2.RadarChart.yAxis.lineShape = dhtmlxChart2.LineShapeEnum.arc
        dhtmlxChart2.RadarChart.yAxis.lines = False
        Dim bgCode As New StringBuilder
        bgCode.Append("function(value) {")
        bgCode.Append("return value % 2 ? ").Append(dhtmlxChart2.InQuotes(dhtmlxChart2.ColorHelper(System.Drawing.Color.BlueViolet)))
        bgCode.Append(":").Append(dhtmlxChart2.InQuotes(dhtmlxChart2.ColorHelper(System.Drawing.Color.Chartreuse)))
        bgCode.Append("}")
        'dhtmlxChart2.RadarChart.yAxis.bg = bgCode.ToString
        'dhtmlxChart2.RadarChart.yAxis.template
        WebSite.File_Write("~/dhtmlxChart.html", dhtmlxChart2.Render)
        regLeft.IFrameUrl = "dhtmlxChart.html"
    End Sub