Bar Grouping

Coordinator
Oct 2, 2013 at 7:52 AM
Sub DhtmlxCharts11()
        ' buggy...
        Dim dhtmlxChart2 As New dhtmlxChart2
        dhtmlxChart2.Title = "dhtmlxChart: Bar Grouping"
        dhtmlxChart2.Heading = dhtmlxChart2.Title
        dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.bar
        dhtmlxChart2.Width = "500px"
        dhtmlxChart2.Height = "500px"
        dhtmlxChart2.border = "border:1px solid #A4BED4"
        dhtmlxChart2.Value = "sales"
        dhtmlxChart2.BarChart.label = "company"
        ' the first column name should alwways be the x axis column name
        dhtmlxChart2.AddColumns("year", "sales", "company")
        dhtmlxChart2.AddXY("2000", "5.0", "Company 1")
        dhtmlxChart2.AddXY("2001", "2.8", "Company 2")
        dhtmlxChart2.AddXY("2002", "1.1", "Company 3")
        dhtmlxChart2.AddXY("2003", "4.4", "Company 3")
        dhtmlxChart2.AddXY("2004", "2.6", "Company 2")
        dhtmlxChart2.AddXY("2005", "4.1", "Company 1")
        dhtmlxChart2.Group("company", dhtmlxChart2.OperatorEnum.sum)
        dhtmlxChart2.BarChart.xAxis.title = "Company"
        dhtmlxChart2.BarChart.xAxis.lines = True
        dhtmlxChart2.BarChart.yAxis.title = "Sales per Company"
        'dhtmlxChart2.Legend.text = "Pie 3D"
        'dhtmlxChart2.Legend.color = System.Drawing.Color.OrangeRed
        'dhtmlxChart2.Legend.valign = dhtmlxChart2.AlignEnum.top
        'dhtmlxChart2.Legend.align = dhtmlxChart2.AlignEnum.middle
        'dhtmlxChart2.Legend.visible = True


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