SpLine Chart

Coordinator
Oct 2, 2013 at 7:51 AM
Sub DhtmlxCharts7()
        ' spline chart using add series
        ' bug: lines are not color coded
        Dim dhtmlxChart2 As New dhtmlxChart2
        dhtmlxChart2.Title = "dhtmlxChart: SpLine Chart Using AddSeries"
        dhtmlxChart2.Heading = dhtmlxChart2.Title
        dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.spline
        dhtmlxChart2.Width = "500px"
        dhtmlxChart2.Height = "500px"
        dhtmlxChart2.border = "border:1px solid #A4BED4"
        dhtmlxChart2.Value = "sales"
        dhtmlxChart2.LineChart.Line.color = System.Drawing.Color.Blue
        dhtmlxChart2.LineChart.line.width = 2
        dhtmlxChart2.LineChart.line.visible = True
        dhtmlxChart2.LineChart.Item.bordercolor = System.Drawing.Color.Blue
        dhtmlxChart2.LineChart.item.color = dhtmlxChart2.LineChart.item.bordercolor
        dhtmlxChart2.LineChart.item.visible = True
        dhtmlxChart2.LineChart.xAxis.title = "Year"
        dhtmlxChart2.LineChart.xAxis.template = "year"
        dhtmlxChart2.LineChart.yAxis.title = "Sales Per Year"
        ' the first column name should alwways be the x axis column name
        dhtmlxChart2.AddColumns("year", "sales", "sales1", "sales2", "sales3")
        dhtmlxChart2.AddXY("2000", "5.0", "3.4", "2.1", "1.1")
        dhtmlxChart2.AddXY("2001", "2.8", "4.8", "1.3", "1.2")
        dhtmlxChart2.AddXY("2002", "1.1", "4.4", "2.9", "1.3")
        dhtmlxChart2.AddXY("2003", "4.4", "5.5", "2.6", "1.4")
        dhtmlxChart2.AddXY("2004", "2.6", "6.0", "1.4", "1.5")
        dhtmlxChart2.AddXY("2005", "4.1", "5.7", "1.1", "1.6")
        dhtmlxChart2.AddSeries("sales", System.Drawing.Color.Green)
        dhtmlxChart2.AddSeries("sales1", System.Drawing.Color.Red)
        dhtmlxChart2.AddSeries("sales2", System.Drawing.Color.Blue)
        dhtmlxChart2.AddSeries("sales3", System.Drawing.Color.Yellow)
        dhtmlxChart2.LineChart.legend.text = "Spline"
        dhtmlxChart2.LineChart.legend.color = System.Drawing.Color.Transparent
        dhtmlxChart2.LineChart.legend.valign = dhtmlxChart2.AlignEnum.top
        dhtmlxChart2.LineChart.legend.align = dhtmlxChart2.AlignEnum.middle
        dhtmlxChart2.LineChart.legend.visible = True
        WebSite.File_Write("~/dhtmlxChart.html", dhtmlxChart2.Render)
        regLeft.IFrameUrl = "dhtmlxChart.html"
    End Sub