Radar Lines

Coordinator
Oct 2, 2013 at 8:54 AM
Sub DhtmlxCharts18()
        Dim dhtmlxChart2 As New dhtmlxChart2
        dhtmlxChart2.Title = "dhtmlxChart: Radar Lines"
        dhtmlxChart2.Heading = dhtmlxChart2.Title
        dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.radar
        dhtmlxChart2.Width = "500px"
        dhtmlxChart2.Height = "300px"
        dhtmlxChart2.border = "border:1px solid #A4BED4"
        dhtmlxChart2.value = "companyA"
        ' 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")
        ' define the radar lines
        dhtmlxChart2.RadarChart.tooltip = "companyA"
        dhtmlxChart2.RadarChart.line.visible = True
        dhtmlxChart2.RadarChart.line.color = System.Drawing.Color.Blue
        dhtmlxChart2.RadarChart.line.width = 2
        dhtmlxChart2.RadarChart.item.visible = True
        dhtmlxChart2.RadarChart.item.color = System.Drawing.Color.Blue
        dhtmlxChart2.RadarChart.item.bordercolor = System.Drawing.Color.Blue
        dhtmlxChart2.RadarChart.item.radius = 2
        dhtmlxChart2.RadarChart.item.borderWidth = 2
        dhtmlxChart2.RadarChart.item.type = dhtmlxChart2.ItemTypeEnum.d
        dhtmlxChart2.RadarChart.xAxis.template = "month"
        dhtmlxChart2.RadarChart.yAxis.lineShape = dhtmlxChart2.LineShapeEnum.arc
        dhtmlxChart2.RadarChart.legend.visible = True
        dhtmlxChart2.RadarChart.legend.layout = dhtmlxChart2.LegendLayoutEnum.y
        dhtmlxChart2.RadarChart.legend.width = "110"
        dhtmlxChart2.RadarChart.legend.align = dhtmlxChart2.AlignEnum.right
        dhtmlxChart2.RadarChart.legend.valign = dhtmlxChart2.AlignEnum.middle
        dhtmlxChart2.RadarChart.legend.marker.visible = True
        dhtmlxChart2.RadarChart.legend.marker.type = dhtmlxChart2.MarkerTypeEnum.item
        dhtmlxChart2.RadarChart.legend.NewLabel("Company A", System.Drawing.Color.Blue)
        dhtmlxChart2.RadarChart.legend.AddLabel("Company B", System.Drawing.Color.Green)



        Dim nSeries As New dhtmlxChart2.Column
        With nSeries
            .value = "companyB"
            .tooltip.template = dhtmlxChart2.InHash("companyB")
            .line.visible = True
            .line.color = System.Drawing.Color.Green
            .line.width = 2
            .item.visible = True
            .item.color = System.Drawing.Color.Green
            .item.bordercolor = System.Drawing.Color.Green
            .item.radius = 2
            .item.borderWidth = 2
            .item.type = dhtmlxChart2.ItemTypeEnum.s
        End With
        dhtmlxChart2.AddSeries(nSeries)

        WebSite.File_Write("~/dhtmlxChart.html", dhtmlxChart2.Render)
        regLeft.IFrameUrl = "dhtmlxChart.html"
    End Sub