Area Radar

Oct 2, 2013 at 8:53 AM
Sub DhtmlxCharts16()
        Dim dhtmlxChart2 As New dhtmlxChart2
        dhtmlxChart2.Title = "dhtmlxChart: Area Radar"
        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.tooltip = "companyA"
        dhtmlxChart2.RadarChart.alpha = "0.2"
        dhtmlxChart2.RadarChart.line.color = System.Drawing.Color.Green
        dhtmlxChart2.RadarChart.line.width = 1
        dhtmlxChart2.RadarChart.line.visible = True
        dhtmlxChart2.RadarChart.xAxis.template = "month"
        'dhtmlxChart2.RadarChart.yAxis.lineShape = dhtmlxChart2.YAxis.lineShapeEnum.arc
        dhtmlxChart2.RadarChart.fill = System.Drawing.Color.Green
        dhtmlxChart2.RadarChart.color = System.Drawing.Color.Green
        dhtmlxChart2.RadarChart.disableItems = 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")
        Dim nSeries As New dhtmlxChart2.Column
        With nSeries
            .value = "companyB"
            .fill = System.Drawing.Color.Blue
            .line.color = System.Drawing.Color.Blue
            .line.width = 1
            .line.visible = True
            .tooltip.template = dhtmlxChart2.InHash("companyb")
        End With
        dhtmlxChart2.AddSeries(nSeries)
        dhtmlxChart2.RadarChart.legend.width = "110"
        dhtmlxChart2.RadarChart.legend.align = dhtmlxChart2.AlignEnum.right
        dhtmlxChart2.RadarChart.legend.valign = dhtmlxChart2.AlignEnum.middle
        dhtmlxChart2.RadarChart.legend.marker.width = 15
        dhtmlxChart2.RadarChart.legend.marker.radius = 3
        dhtmlxChart2.RadarChart.legend.marker.visible = True
        dhtmlxChart2.RadarChart.legend.visible = True
        dhtmlxChart2.RadarChart.legend.NewLabel("Company A", System.Drawing.Color.Green)
        dhtmlxChart2.RadarChart.legend.AddLabel("Company B", System.Drawing.Color.Blue)


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