Stacked Horizontal Bar Chart Using addSeries

Coordinator
Oct 2, 2013 at 8:50 AM
Sub DhtmlxCharts6()
        ' bar chart using add series
        Dim dhtmlxChart2 As New dhtmlxChart2
        dhtmlxChart2.Title = "dhtmlxChart: Stacked Horizontal Bar Chart Using AddSeries"
        dhtmlxChart2.Heading = dhtmlxChart2.Title
        dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.stackedhorizontalbar
        dhtmlxChart2.Width = "500px"
        dhtmlxChart2.Height = "500px"
        dhtmlxChart2.border = "border:1px solid #A4BED4"
        dhtmlxChart2.Value = "sales"
        dhtmlxChart2.BarChart.label = "sales"
        dhtmlxChart2.BarChart.width = 30
        dhtmlxChart2.BarChart.xAxis.title = "Sales per Year"
        dhtmlxChart2.BarChart.xAxis.lines = True
        dhtmlxChart2.BarChart.yAxis.template = dhtmlxChart2.InQuotes(dhtmlxChart2.InHash("year"))
        dhtmlxChart2.BarChart.yAxis.title = "Year"
        dhtmlxChart2.BarChart.gradient = dhtmlxChart2.GradientEnum.is3d
        ' 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.Red, "sales")
        dhtmlxChart2.AddSeries("sales1", System.Drawing.Color.Orange, "sales1")
        dhtmlxChart2.AddSeries("sales2", System.Drawing.Color.Green, "sales2")
        dhtmlxChart2.AddSeries("sales3", System.Drawing.Color.Blue, "sales3")
        WebSite.File_Write("~/dhtmlxChart.html", dhtmlxChart2.Render)
        regLeft.IFrameUrl = "dhtmlxChart.html"
    End Sub