Radar Points

Coordinator
Oct 2, 2013 at 7:54 AM
Sub DhtmlxCharts17()
        Dim dhtmlxChart2 As New dhtmlxChart2
        dhtmlxChart2.Title = "dhtmlxChart: Radar Points"
        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
        dhtmlxChart2.RadarChart.item.borderWidth = 0
        dhtmlxChart2.RadarChart.item.radius = 2
        dhtmlxChart2.RadarChart.item.color = System.Drawing.Color.Green
        dhtmlxChart2.RadarChart.item.visible = True
        dhtmlxChart2.RadarChart.xAxis.template = "month"
        dhtmlxChart2.RadarChart.yAxis.lineShape = dhtmlxChart2.LineShapeEnum.arc
        'dhtmlxChart2.RadarChart.yAxis.template =
        dhtmlxChart2.RadarChart.yAxis.bg = System.Drawing.Color.LightCyan
        ' 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
        '.view = dhtmlxChart2.ChartTypeEnum.lineonly
        '.value = "companyB"
        '.fill = System.Drawing.Color.Blue
        '.line.color = System.Drawing.Color.Blue
        '.line.width = 1
        '.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.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