This is the source code for all the working examples.


Sub DhtmlxCharts1()
' bar chart
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Bar Chart"
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.Color = dhtmlxChart2.HTMLColorTranslate("#66cc33")
dhtmlxChart2.BarChart.width = 30
dhtmlxChart2.BarChart.tooltip = "sales"
dhtmlxChart2.BarChart.gradient = dhtmlxChart2.GradientEnum.falling
dhtmlxChart2.BarChart.border = True
dhtmlxChart2.BarChart.alpha = "0.5"
dhtmlxChart2.xAxis.title = "Sales per year"
dhtmlxChart2.xAxis.template = dhtmlxChart2.InQuoteHash("year")
dhtmlxChart2.legend.Assign("year")
'dhtmlxChart2.BarChart.yAxis.scale_start = 0
'dhtmlxChart2.BarChart.yAxis.scale_end = 9
'dhtmlxChart2.BarChart.yAxis.scale_step = 3
'dhtmlxChart2.BarChart.yAxis.SetScales = True
dhtmlxChart2.yAxis.template = dhtmlxChart2.InQuotes("{obj}")
dhtmlxChart2.yAxis.title = "Sales, Millions"
' the first column name should alwways be the x axis column name
dhtmlxChart2.AddColumns("year", "sales")
dhtmlxChart2.AddXY("2000", "2.9")
dhtmlxChart2.AddXY("2001", "3.8")
dhtmlxChart2.AddXY("2002", "3.4")
dhtmlxChart2.AddXY("2003", "3.1")
dhtmlxChart2.AddXY("2004", "4.4")
dhtmlxChart2.AddXY("2005", "4.7")
dhtmlxChart2.AddXY("2006", "7.4")
dhtmlxChart2.AddXY("2007", "9.0")
dhtmlxChart2.AddXY("2008", "7.3")
dhtmlxChart2.AddXY("2009", "4.8")
WebSite.File_Write("~/dhtmlxChart1.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart1.html"
End Sub

Sub DhtmlxCharts13()
' bar chart
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Combination Chart (Bar & Line)"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.bar
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "300px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
' the first column name should alwways be the x axis column name
dhtmlxChart2.AddColumns("year", "sales", "sales1")
dhtmlxChart2.AddXY("2001", "3.8", "3.0")
dhtmlxChart2.AddXY("2002", "3.4", "2.0")
dhtmlxChart2.AddXY("2003", "3.1", "1.5")
dhtmlxChart2.AddXY("2004", "4.4", "2.5")
dhtmlxChart2.AddXY("2005", "4.7", "4.8")
dhtmlxChart2.AddXY("2009", "4.8", "5.0")
dhtmlxChart2.AddSeries("sales", System.Drawing.Color.Blue, "sales", dhtmlxChart2.ChartTypeEnum.none, True, "Sales")
dhtmlxChart2.AddSeries("sales1", System.Drawing.Color.Red, "sales1", dhtmlxChart2.ChartTypeEnum.line, True, "Sales 1")
dhtmlxChart2.xAxis.Assign("Year", dhtmlxChart2.InQuoteHash("year"))
'dhtmlxChart2.yAxis.Assign("Sales")
dhtmlxChart2.legend.position = dhtmlxChart2.PositionEnum.rightmiddle
WebSite.File_Write("~/dhtmlxChart13.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart13.html"
End Sub

Sub DhtmlxCharts14()
' bar chart
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Grouped Bars"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.bar
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "500px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
dhtmlxChart2.xAxis.template = dhtmlxChart2.InQuoteHash("year")
' the first column name should alwways be the x axis column name
dhtmlxChart2.AddColumns("year", "sales", "sales1")
dhtmlxChart2.AddXY("2001", "3.8", "3.0")
dhtmlxChart2.AddXY("2002", "3.4", "2.0")
dhtmlxChart2.AddXY("2003", "3.1", "1.5")
dhtmlxChart2.AddXY("2004", "4.4", "2.5")
dhtmlxChart2.AddXY("2005", "4.7", "4.8")
dhtmlxChart2.AddXY("2009", "4.8", "5.0")
' add line series
dhtmlxChart2.AddSeries("sales", System.Drawing.Color.Green)
dhtmlxChart2.AddSeries("sales1", System.Drawing.Color.Red)
WebSite.File_Write("~/dhtmlxChart14.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart14.html"
End Sub

Sub DhtmlxCharts2()
' area chart
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Area Chart"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.area
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "500px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
dhtmlxChart2.value = "sales"
dhtmlxChart2.AreaChart.alpha = "0.6"
'dhtmlxChart2.AreaChart.color = dhtmlxChart2.HTMLColorTranslate("#66cc33")
dhtmlxChart2.xAxis.title = "Year"
dhtmlxChart2.xAxis.template = dhtmlxChart2.InQuoteHash("year")
dhtmlxChart2.yAxis.title = "Sales per Year"
' the first column name should alwways be the x axis column name
dhtmlxChart2.AddColumns("year", "sales", "sales1", "sales2")
dhtmlxChart2.AddXY("2000", "5.0", "3.4", "2.1")
dhtmlxChart2.AddXY("2001", "2.8", "4.8", "1.3")
dhtmlxChart2.AddXY("2002", "1.1", "4.4", "2.9")
dhtmlxChart2.AddXY("2003", "4.4", "5.5", "2.6")
dhtmlxChart2.AddXY("2004", "2.6", "6.0", "1.4")
dhtmlxChart2.AddXY("2005", "4.1", "5.7", "1.1")
dhtmlxChart2.AddSeries("sales", System.Drawing.Color.Red, "sales")
dhtmlxChart2.AddSeries("sales1", System.Drawing.Color.Orange, "sales1")
dhtmlxChart2.AddSeries("sales2", System.Drawing.Color.Green, "sales2")
WebSite.File_Write("~/dhtmlxChart2.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart2.html"
End Sub

Sub DhtmlxCharts3()
' stacked area chart
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Stacked Area Chart"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.stackedarea
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "500px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
dhtmlxChart2.Value = "sales"
dhtmlxChart2.AreaChart.alpha = "0.6"
'dhtmlxChart2.AreaChart.color = dhtmlxChart2.HTMLColorTranslate("#66cc33")
dhtmlxChart2.xAxis.title = "Year"
dhtmlxChart2.xAxis.template = dhtmlxChart2.InQuoteHash("year")
dhtmlxChart2.yAxis.title = "Sales per Year"
' the first column name should alwways be the x axis column name
dhtmlxChart2.AddColumns("year", "sales", "sales1", "sales2")
dhtmlxChart2.AddXY("2000", "5.0", "3.4", "2.1")
dhtmlxChart2.AddXY("2001", "2.8", "4.8", "1.3")
dhtmlxChart2.AddXY("2002", "1.1", "4.4", "2.9")
dhtmlxChart2.AddXY("2003", "4.4", "5.5", "2.6")
dhtmlxChart2.AddXY("2004", "2.6", "6.0", "1.4")
dhtmlxChart2.AddXY("2005", "4.1", "5.7", "1.1")
dhtmlxChart2.AddSeries("sales", System.Drawing.Color.Red, "sales")
dhtmlxChart2.AddSeries("sales1", System.Drawing.Color.Orange, "sales1")
dhtmlxChart2.AddSeries("sales2", System.Drawing.Color.Green, "sales2")
WebSite.File_Write("~/dhtmlxChart3.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart3.html"
End Sub

Sub DhtmlxCharts4()
' bar chart using add series
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Bar Chart Using AddSeries"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.barhorizontal
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "500px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
dhtmlxChart2.Value = "sales"
dhtmlxChart2.BarChart.label = "sales"
dhtmlxChart2.BarChart.width = 30
dhtmlxChart2.xAxis.title = "Sales per year"
dhtmlxChart2.xAxis.scale.Assign(1, 5, 1)
dhtmlxChart2.yAxis.template = dhtmlxChart2.InQuotes(dhtmlxChart2.InHash("year"))
dhtmlxChart2.yAxis.title = "Year"
dhtmlxChart2.BarChart.border = True
' 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("~/dhtmlxChart4.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart4.html"
End Sub

Sub DhtmlxCharts5()
' bar chart using add series
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Stacked Bar Chart Using AddSeries"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.stackedbar
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "500px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
dhtmlxChart2.value = "sales"
dhtmlxChart2.BarChart.label = "sales"
dhtmlxChart2.BarChart.width = 30
dhtmlxChart2.xAxis.title = "Year"
dhtmlxChart2.xAxis.template = dhtmlxChart2.InQuoteHash("year")
dhtmlxChart2.yAxis.title = "Saled per 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("~/dhtmlxChart5.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart5.html"
End Sub

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.xAxis.title = "Sales per Year"
dhtmlxChart2.xAxis.lines = True
dhtmlxChart2.yAxis.template = dhtmlxChart2.InQuotes(dhtmlxChart2.InHash("year"))
dhtmlxChart2.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("~/dhtmlxChart6.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart6.html"
End Sub

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.xAxis.title = "Year"
dhtmlxChart2.xAxis.template = dhtmlxChart2.InQuoteHash("year")
dhtmlxChart2.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)
WebSite.File_Write("~/dhtmlxChart7.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart7.html"
End Sub

Sub DhtmlxCharts8()
' line chart using add series
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Line Chart"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.line
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "500px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
dhtmlxChart2.Value = "sales"
dhtmlxChart2.LineChart.label = "sales"
dhtmlxChart2.LineChart.tooltip = "year"
dhtmlxChart2.xAxis.title = "Year"
dhtmlxChart2.xAxis.template = dhtmlxChart2.InQuoteHash("year")
dhtmlxChart2.xAxis.lines = True
dhtmlxChart2.yAxis.title = "Sales Per Year"
' the first column name should alwways be the x axis column name
dhtmlxChart2.AddColumns("year", "sales")
dhtmlxChart2.AddXY("2000", "5.0")
dhtmlxChart2.AddXY("2001", "2.8")
dhtmlxChart2.AddXY("2002", "1.1")
dhtmlxChart2.AddXY("2003", "4.4")
dhtmlxChart2.AddXY("2004", "2.6")
dhtmlxChart2.AddXY("2005", "4.1")
dhtmlxChart2.AddSeries("sales", System.Drawing.Color.Blue)
WebSite.File_Write("~/dhtmlxChart8.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart8.html"
End Sub

Sub DhtmlxCharts9()
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Pie Chart"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.pie
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "500px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
dhtmlxChart2.value = "sales"
dhtmlxChart2.PieChart.PieLabelStyle = dhtmlxChart2.PieLabelStyleEnum.own
dhtmlxChart2.PieChart.pieInnerText = "<b>#sales#</b>"
' the first column name should alwways be the x axis column name
dhtmlxChart2.AddColumns("year", "sales")
dhtmlxChart2.AddXY("2000", "5.0")
dhtmlxChart2.AddXY("2001", "2.8")
dhtmlxChart2.AddXY("2002", "1.1")
dhtmlxChart2.AddXY("2003", "4.4")
dhtmlxChart2.AddXY("2004", "2.6")
dhtmlxChart2.AddXY("2005", "4.1")
dhtmlxChart2.PieChart.shadow = True
dhtmlxChart2.PieChart.gradient = True
dhtmlxChart2.legend.width = 65
'dhtmlxChart2.legend.valign = dhtmlxChart2.valignEnum.top
'dhtmlxChart2.legend.align = dhtmlxChart2.AlignEnum.right
dhtmlxChart2.legend.marker.type = dhtmlxChart2.MarkerTypeEnum.round
dhtmlxChart2.legend.marker.width = 15
dhtmlxChart2.legend.template = "year"
dhtmlxChart2.legend.marker.visible = True
dhtmlxChart2.legend.visible = True
WebSite.File_Write("~/dhtmlxChart9.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart9.html"
End Sub

Sub DhtmlxCharts10()
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Pie Chart Own Colors"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.pie3D
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "500px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
dhtmlxChart2.value = "sales"
dhtmlxChart2.PieChart.label = "year"
dhtmlxChart2.PieChart.PieLabelStyle = dhtmlxChart2.PieLabelStyleEnum.value
' the first column name should alwways be the x axis column name
dhtmlxChart2.AddColumns("year", "sales", "color")
dhtmlxChart2.AddXY("2000", "5.0", dhtmlxChart2.ColorHelper(System.Drawing.Color.Red))
dhtmlxChart2.AddXY("2001", "2.8", dhtmlxChart2.ColorHelper(System.Drawing.Color.Yellow))
dhtmlxChart2.AddXY("2002", "1.1", dhtmlxChart2.ColorHelper(System.Drawing.Color.Green))
dhtmlxChart2.AddXY("2003", "4.4", dhtmlxChart2.ColorHelper(System.Drawing.Color.Blue))
dhtmlxChart2.AddXY("2004", "2.6", dhtmlxChart2.ColorHelper(System.Drawing.Color.Orange))
dhtmlxChart2.AddXY("2005", "4.1", dhtmlxChart2.ColorHelper(System.Drawing.Color.Magenta))
dhtmlxChart2.PieChart.colorcolumn = "color"
dhtmlxChart2.legend.marker.Assign(dhtmlxChart2.MarkerTypeEnum.round)
dhtmlxChart2.legend.template = "year"
dhtmlxChart2.legend.visible = True
WebSite.File_Write("~/dhtmlxChart10.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart10.html"
End Sub

Sub DhtmlxCharts27()
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Pie Chart At Location"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.pie
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "500px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
dhtmlxChart2.value = "sales"
' the first column name should alwways be the x axis column name
dhtmlxChart2.AddColumns("year", "sales")
dhtmlxChart2.AddXY("2000", "5.0")
dhtmlxChart2.AddXY("2001", "2.8")
dhtmlxChart2.AddXY("2002", "1.1")
dhtmlxChart2.AddXY("2003", "4.4")
dhtmlxChart2.AddXY("2004", "2.6")
dhtmlxChart2.AddXY("2005", "4.1")
dhtmlxChart2.PieChart.radius = 65
dhtmlxChart2.PieChart.label = "year"
dhtmlxChart2.PieChart.tooltip = "year"
dhtmlxChart2.PieChart.shadow = False
dhtmlxChart2.PieChart.cant = ""
dhtmlxChart2.legend.Assign("year")
dhtmlxChart2.PieChart.x = 280
dhtmlxChart2.PieChart.y = 120
dhtmlxChart2.PieChart.PieLabelStyle = dhtmlxChart2.PieLabelStyleEnum.none
WebSite.File_Write("~/dhtmlxChart27.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart27.html"
End Sub

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 = "id"
' the first column name should alwways be the x axis column name
dhtmlxChart2.AddColumns("id", "year", "sales", "company")
dhtmlxChart2.AddXY("1", "2000", "5.0", "Company 1")
dhtmlxChart2.AddXY("2", "2001", "2.8", "Company 2")
dhtmlxChart2.AddXY("3", "2002", "1.1", "Company 3")
dhtmlxChart2.AddXY("4", "2003", "4.4", "Company 3")
dhtmlxChart2.AddXY("5", "2004", "2.6", "Company 2")
dhtmlxChart2.AddXY("6", "2005", "4.1", "Company 1")
dhtmlxChart2.Group("company", dhtmlxChart2.OperatorEnum.sum)
dhtmlxChart2.xAxis.visible = False
dhtmlxChart2.yAxis.visible = False
WebSite.File_Write("~/dhtmlxChart11.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart11.html"
End Sub

Sub DhtmlxCharts12()
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Bar Sorting"
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 = "sales"
' the first column name should alwways be the x axis column name
dhtmlxChart2.AddColumns("year", "sales")
dhtmlxChart2.AddXY("2000", "5.0")
dhtmlxChart2.AddXY("2001", "2.8")
dhtmlxChart2.AddXY("2002", "1.1")
dhtmlxChart2.AddXY("2003", "4.4")
dhtmlxChart2.AddXY("2004", "2.6")
dhtmlxChart2.AddXY("2005", "4.1")
dhtmlxChart2.xAxis.Assign("Year", dhtmlxChart2.InQuoteHash("year"))
dhtmlxChart2.yAxis.title = "Sales per Year"
dhtmlxChart2.legend.Assign("sales")
dhtmlxChart2.Sort("sales", dhtmlxChart2.SortDirectionEnum.dsc, dhtmlxChart2.SortMethodEnum.int)
WebSite.File_Write("~/dhtmlxChart12.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart12.html"
End Sub

Sub DhtmlxCharts15()
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Donut"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.donut
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "500px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
dhtmlxChart2.value = "sales"
dhtmlxChart2.PieChart.label = "year"
dhtmlxChart2.PieChart.PieLabelStyle = dhtmlxChart2.PieLabelStyleEnum.value
' the first column name should alwways be the x axis column name
dhtmlxChart2.AddColumns("year", "sales", "color")
dhtmlxChart2.AddXY("2000", "5.0", dhtmlxChart2.ColorHelper(System.Drawing.Color.Red))
dhtmlxChart2.AddXY("2001", "2.8", dhtmlxChart2.ColorHelper(System.Drawing.Color.Yellow))
dhtmlxChart2.AddXY("2002", "1.1", dhtmlxChart2.ColorHelper(System.Drawing.Color.Green))
dhtmlxChart2.AddXY("2003", "4.4", dhtmlxChart2.ColorHelper(System.Drawing.Color.Blue))
dhtmlxChart2.AddXY("2004", "2.6", dhtmlxChart2.ColorHelper(System.Drawing.Color.Orange))
dhtmlxChart2.AddXY("2005", "4.1", dhtmlxChart2.ColorHelper(System.Drawing.Color.Magenta))
dhtmlxChart2.PieChart.colorcolumn = "color"
'dhtmlxChart2.legend.valign = dhtmlxChart2.AlignEnum.right
'dhtmlxChart2.legend.align = dhtmlxChart2.AlignEnum.right
dhtmlxChart2.legend.marker.type = dhtmlxChart2.MarkerTypeEnum.square
dhtmlxChart2.legend.marker.width = 15
dhtmlxChart2.legend.template = "year"
dhtmlxChart2.legend.marker.visible = True
dhtmlxChart2.legend.visible = True


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

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.RadarChart.alpha = "0.2"
dhtmlxChart2.xAxis.template = dhtmlxChart2.InQuoteHash("month")
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")
dhtmlxChart2.AddArea("companya", System.Drawing.Color.Green)
dhtmlxChart2.AddArea("companyb", System.Drawing.Color.Blue)
dhtmlxChart2.legend.width = "110"
dhtmlxChart2.legend.marker.width = 15
dhtmlxChart2.legend.marker.radius = 3
dhtmlxChart2.legend.marker.visible = True
dhtmlxChart2.legend.visible = True
WebSite.File_Write("~/dhtmlxChart16.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart16.html"
End Sub

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.Assign(0, 2, System.Drawing.Color.Green, Nothing, dhtmlxChart2.ItemTypeEnum.none, False)
dhtmlxChart2.xAxis.template = dhtmlxChart2.InQuoteHash("month")
dhtmlxChart2.yAxis.lineShape = dhtmlxChart2.LineShapeEnum.arc
'dhtmlxChart2.RadarChart.yAxis.template =
dhtmlxChart2.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")
WebSite.File_Write("~/dhtmlxChart17.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart17.html"
End Sub

Sub DhtmlxCharts18()
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Radar Lines"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.radar
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "300px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
'dhtmlxChart2.value = "companyA"
' 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")
dhtmlxChart2.xAxis.template = dhtmlxChart2.InQuoteHash("month")
dhtmlxChart2.yAxis.lineShape = dhtmlxChart2.LineShapeEnum.arc

Dim nSeriesA As New dhtmlxChart2.Series
With nSeriesA
.value = "companyA"
.color = System.Drawing.Color.Green
.caption = "Company A"
.tooltip.template = dhtmlxChart2.InHash("companyA")
.line.Assign(2, System.Drawing.Color.Green)
.item.Assign(2, 2, System.Drawing.Color.Transparent, System.Drawing.Color.Green, dhtmlxChart2.ItemTypeEnum.s, False)
End With
dhtmlxChart2.AddSeries(nSeriesA)

Dim nSeries As New dhtmlxChart2.Series
With nSeries
.value = "companyB"
.color = System.Drawing.Color.Blue
.caption = "Company B"
.tooltip.template = dhtmlxChart2.InHash("companyB")
.line.Assign(2, System.Drawing.Color.Blue)
.item.Assign(2, 2, System.Drawing.Color.Transparent, System.Drawing.Color.Blue, dhtmlxChart2.ItemTypeEnum.d, False)
End With
dhtmlxChart2.AddSeries(nSeries)
dhtmlxChart2.legend.width = "110"
dhtmlxChart2.legend.marker.visible = True
dhtmlxChart2.legend.marker.type = dhtmlxChart2.MarkerTypeEnum.item

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

Sub DhtmlxCharts19()
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Preset 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"
' 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")
dhtmlxChart2.preset = dhtmlxChart2.PresetEnum.area
dhtmlxChart2.xAxis.template = dhtmlxChart2.InQuoteHash("month")
dhtmlxChart2.xAxis.lineColor = System.Drawing.Color.LightBlue
WebSite.File_Write("~/dhtmlxChart19.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart19.html"
End Sub

Sub DhtmlxCharts20()
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Preset Line Radar"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.radar
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "300px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
' 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")
dhtmlxChart2.preset = dhtmlxChart2.PresetEnum.line
dhtmlxChart2.xAxis.template = dhtmlxChart2.InQuoteHash("month")

Dim nSeriesA As New dhtmlxChart2.Series
With nSeriesA
.value = "companya"
.color = System.Drawing.Color.Blue
.line.Assign(System.Drawing.Color.Blue)
.item.Assign(System.Drawing.Color.Blue, System.Drawing.Color.Transparent)
End With
dhtmlxChart2.AddSeries(nSeriesA)
Dim nSeriesB As New dhtmlxChart2.Series
With nSeriesB
.value = "companyb"
.color = System.Drawing.Color.Red
.line.Assign(System.Drawing.Color.Red)
.item.Assign(System.Drawing.Color.Red, System.Drawing.Color.Transparent)
End With
dhtmlxChart2.AddSeries(nSeriesB)
WebSite.File_Write("~/dhtmlxChart20.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart20.html"
End Sub

Sub DhtmlxCharts21()
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Preset Point Radar"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.radar
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "300px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
' 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")
dhtmlxChart2.preset = dhtmlxChart2.PresetEnum.point
dhtmlxChart2.xAxis.template = dhtmlxChart2.InQuoteHash("month")
dhtmlxChart2.xAxis.lineColor = System.Drawing.Color.LightBlue
dhtmlxChart2.yAxis.lineShape = dhtmlxChart2.LineShapeEnum.arc
dhtmlxChart2.AddSeries("companya", System.Drawing.Color.Blue)
dhtmlxChart2.AddSeries("companyb", System.Drawing.Color.Red)
WebSite.File_Write("~/dhtmlxChart21.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart21.html"
End Sub

Sub DhtmlxCharts22()
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Radar Scale"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.radar
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "300px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
dhtmlxChart2.RadarChart.disableLines = 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")
dhtmlxChart2.xAxis.template = dhtmlxChart2.InQuoteHash("month")
dhtmlxChart2.yAxis.lineShape = dhtmlxChart2.LineShapeEnum.arc
dhtmlxChart2.yAxis.lines = False
Dim bgCode As New StringBuilder
bgCode.Append("function(value) )
bgCode.Append("return value % 2 ? ").Append(dhtmlxChart2.InQuotes(dhtmlxChart2.ColorHelper(System.Drawing.Color.BlueViolet)))
bgCode.Append(":").Append(dhtmlxChart2.InQuotes(dhtmlxChart2.ColorHelper(System.Drawing.Color.Chartreuse)))
bgCode.Append(")
Dim sa As New dhtmlxChart2.Series
With sa
.value = "companya"
.color = System.Drawing.Color.Red
.item.Assign(0, 2, System.Drawing.Color.Red)
.line.Assign(System.Drawing.Color.Red)
End With
dhtmlxChart2.AddSeries(sa)
Dim sb As New dhtmlxChart2.Series
With sb
.value = "companyb"
.color = System.Drawing.Color.Green
.item.Assign(0, 2, System.Drawing.Color.Green)
.line.Assign(System.Drawing.Color.Green)
End With
dhtmlxChart2.AddSeries(sb)
'dhtmlxChart2.RadarChart.yAxis.bg = bgCode.ToString
'dhtmlxChart2.RadarChart.yAxis.template
WebSite.File_Write("~/dhtmlxChart22.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart22.html"
End Sub

Sub DhtmlxCharts23()
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.SaveAllColors()
dhtmlxChart2.Title = "dhtmlxChart: Scatter Chart"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.scatter
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "300px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
dhtmlxChart2.value = "b"
dhtmlxChart2.ScatterChart.xValue = "a"
dhtmlxChart2.yAxis.title = "Value B"
dhtmlxChart2.xAxis.title = "Value A"
dhtmlxChart2.ScatterChart.tooltip.template = "#a# - #b#"
dhtmlxChart2.ScatterChart.item.visible = True
dhtmlxChart2.ScatterChart.item.radius = 5
'dhtmlxChart2.ScatterChart.item.borderColor = dhtmlxChart2.ColorFromHTML("#f38f00")
dhtmlxChart2.ScatterChart.item.borderWidth = 1
'dhtmlxChart2.ScatterChart.item.color = dhtmlxChart2.ColorFromHTML("#ff9600")
dhtmlxChart2.ScatterChart.item.type = dhtmlxChart2.ItemTypeEnum.d
dhtmlxChart2.ScatterChart.item.shadow = True
' the first column name should alwways be the x axis column name
dhtmlxChart2.AddColumns("a", "b", "type")
dhtmlxChart2.ParseXY("b:4,a:4.7, type:Type A")
dhtmlxChart2.ParseXY("b:3.5,a:0.8, type:Type B")
dhtmlxChart2.ParseXY("b:2.4,a:1.1, type:Type C")
dhtmlxChart2.ParseXY("b:5.1,a:10.5, type:Type A")
dhtmlxChart2.ParseXY("b:4.8,a:9.1, type:Type B")
dhtmlxChart2.ParseXY("b:5.9,a:8.5, type:Type A")
dhtmlxChart2.ParseXY("b:3.1,a:7.7, type:Type B")
dhtmlxChart2.ParseXY("b:4.5,a:7.2, type:Type B")
dhtmlxChart2.ParseXY("b:5.9,a:12.9, type:Type C")
dhtmlxChart2.ParseXY("b:2.8,a:5.8, type:Type B")
dhtmlxChart2.ParseXY("b:3.7,a:8.1, type:Type C")
dhtmlxChart2.ParseXY("b:5.5,a:14.0, type:Type A")
dhtmlxChart2.ParseXY("b:4.1,a:1.5, type:Type A")
dhtmlxChart2.ParseXY("b:4.2,a:6.1, type:Type B")
dhtmlxChart2.ParseXY("b:2.7,a:1.9, type:Type C")
dhtmlxChart2.ParseXY("b:3.1,a:5.5, type:Type A")
dhtmlxChart2.ParseXY("b:6.3,a:12.1, type:Type B")
dhtmlxChart2.ParseXY("b:4.9,a:11.5, type:Type C")
dhtmlxChart2.ParseXY("b:2.8,a:2.7, type:Type A")
dhtmlxChart2.ParseXY("b:5.5,a:10.2, type:Type B")
dhtmlxChart2.ParseXY("b:8.2,a:21.5, type:Type C")
dhtmlxChart2.ParseXY("b:7.2,a:15.8, type:Type A")
dhtmlxChart2.ParseXY("b:3.9,a:11.1, type:Type B")
dhtmlxChart2.ParseXY("b:6.5,a:15.0 , type:Type C")
dhtmlxChart2.ParseXY("b:7.0,a:16.1, type:Type A")
dhtmlxChart2.ParseXY("b:2.9,a:5.2, type:Type C")
dhtmlxChart2.ParseXY("b:7.4,a:18.5, type:Type C")
dhtmlxChart2.ParseXY("b:6.5,a:17.8, type:Type A")
dhtmlxChart2.ParseXY("b:4.7,a:7.1, type:Type C")
dhtmlxChart2.ParseXY("b:7.7,a:17.0 , type:Type B")
dhtmlxChart2.ParseXY("b:8.3,a:16.5, type:Type C")
dhtmlxChart2.ParseXY("b:3.9,a:9.6, type:Type A")
dhtmlxChart2.ParseXY("b:8.4,a:23.0 , type:Type B")
dhtmlxChart2.ParseXY("b:7.7,a:18.1, type:Type A")
dhtmlxChart2.ParseXY("b:3.9,a:7.2, type:Type A")
dhtmlxChart2.ParseXY("b:7.4,a:20.5, type:Type B")
dhtmlxChart2.ParseXY("b:6.2,a:15.8, type:Type C")
dhtmlxChart2.ParseXY("b:4.2,a:9.1, type:Type B")
dhtmlxChart2.ParseXY("b:8.7,a:19.2 , type:Type A")
WebSite.File_Write("~/dhtmlxChart23.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart23.html"
End Sub

Sub DhtmlxCharts24()
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.SaveAllColors()
dhtmlxChart2.Title = "dhtmlxChart: Scatter Chart XY Values"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.scatter
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "300px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
dhtmlxChart2.ScatterChart.xValue = "a"
dhtmlxChart2.ScatterChart.yValue = "b"
dhtmlxChart2.ScatterChart.tooltip.template = dhtmlxChart2.InHash("type")
dhtmlxChart2.ScatterChart.item.visible = True
dhtmlxChart2.ScatterChart.item.borderColor = System.Drawing.Color.Blue
dhtmlxChart2.ScatterChart.item.color = System.Drawing.Color.Brown
dhtmlxChart2.ScatterChart.item.type = dhtmlxChart2.ItemTypeEnum.s
dhtmlxChart2.yAxis.title = "Value Y"
dhtmlxChart2.xAxis.title = "Value X"
' the first column name should alwways be the x axis column name
dhtmlxChart2.AddColumns("a", "b", "type")
dhtmlxChart2.ParseXY("b:4,a:4.7, type:Type A")
dhtmlxChart2.ParseXY("b:3.5,a:0.8, type:Type B")
dhtmlxChart2.ParseXY("b:2.4,a:1.1, type:Type C")
dhtmlxChart2.ParseXY("b:5.1,a:10.5, type:Type A")
dhtmlxChart2.ParseXY("b:4.8,a:9.1, type:Type B")
dhtmlxChart2.ParseXY("b:5.9,a:8.5, type:Type A")
dhtmlxChart2.ParseXY("b:3.1,a:7.7, type:Type B")
dhtmlxChart2.ParseXY("b:4.5,a:7.2, type:Type B")
dhtmlxChart2.ParseXY("b:5.9,a:12.9, type:Type C")
dhtmlxChart2.ParseXY("b:2.8,a:5.8, type:Type B")
dhtmlxChart2.ParseXY("b:3.7,a:8.1, type:Type C")
dhtmlxChart2.ParseXY("b:5.5,a:14.0, type:Type A")
dhtmlxChart2.ParseXY("b:4.1,a:1.5, type:Type A")
dhtmlxChart2.ParseXY("b:4.2,a:6.1, type:Type B")
dhtmlxChart2.ParseXY("b:2.7,a:1.9, type:Type C")
dhtmlxChart2.ParseXY("b:3.1,a:5.5, type:Type A")
dhtmlxChart2.ParseXY("b:6.3,a:12.1, type:Type B")
dhtmlxChart2.ParseXY("b:4.9,a:11.5, type:Type C")
dhtmlxChart2.ParseXY("b:2.8,a:2.7, type:Type A")
dhtmlxChart2.ParseXY("b:5.5,a:10.2, type:Type B")
dhtmlxChart2.ParseXY("b:8.2,a:21.5, type:Type C")
dhtmlxChart2.ParseXY("b:7.2,a:15.8, type:Type A")
dhtmlxChart2.ParseXY("b:3.9,a:11.1, type:Type B")
dhtmlxChart2.ParseXY("b:6.5,a:15.0 , type:Type C")
dhtmlxChart2.ParseXY("b:7.0,a:16.1, type:Type A")
dhtmlxChart2.ParseXY("b:2.9,a:5.2, type:Type C")
dhtmlxChart2.ParseXY("b:7.4,a:18.5, type:Type C")
dhtmlxChart2.ParseXY("b:6.5,a:17.8, type:Type A")
dhtmlxChart2.ParseXY("b:4.7,a:7.1, type:Type C")
dhtmlxChart2.ParseXY("b:7.7,a:17.0 , type:Type B")
dhtmlxChart2.ParseXY("b:8.3,a:16.5, type:Type C")
dhtmlxChart2.ParseXY("b:3.9,a:9.6, type:Type A")
dhtmlxChart2.ParseXY("b:8.4,a:23.0 , type:Type B")
dhtmlxChart2.ParseXY("b:7.7,a:18.1, type:Type A")
dhtmlxChart2.ParseXY("b:3.9,a:7.2, type:Type A")
dhtmlxChart2.ParseXY("b:7.4,a:20.5, type:Type B")
dhtmlxChart2.ParseXY("b:6.2,a:15.8, type:Type C")
dhtmlxChart2.ParseXY("b:4.2,a:9.1, type:Type B")
dhtmlxChart2.ParseXY("b:8.7,a:19.2 , type:Type A")
WebSite.File_Write("~/dhtmlxChart24.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart24.html"
End Sub

Sub DhtmlxCharts25()
' bar chart
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Bar Chart Own Color"
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.tooltip = "sales"
dhtmlxChart2.xAxis.title = "Year"
dhtmlxChart2.xAxis.template = dhtmlxChart2.InQuoteHash("year")
dhtmlxChart2.yAxis.title = "Sales"
dhtmlxChart2.BarChart.colorcolumn = "color"
dhtmlxChart2.AddColumns("id", "year", "sales", "color")
dhtmlxChart2.ParseXY("id:1, sales:55, year:2002, color: " & dhtmlxChart2.ColorToString(System.Drawing.Color.Orange))
dhtmlxChart2.ParseXY("id:2, sales:61, year:2003, color: " & dhtmlxChart2.ColorToString(System.Drawing.Color.Green))
dhtmlxChart2.ParseXY("id:3, sales:35, year:2006, color: " & dhtmlxChart2.ColorToString(System.Drawing.Color.CadetBlue))
dhtmlxChart2.ParseXY("id:4, sales:50, year:2007, color: " & dhtmlxChart2.ColorToString(System.Drawing.Color.Chocolate))
dhtmlxChart2.ParseXY("id:5, sales:59, year:2009, color: " & dhtmlxChart2.ColorToString(System.Drawing.Color.Purple))
WebSite.File_Write("~/dhtmlxChart25.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart25.html"
End Sub

Sub DhtmlxCharts26()
' bar chart
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Bar Chart Units"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.bar
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "500px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
dhtmlxChart2.BarChart.tooltip = "sales"
dhtmlxChart2.xAxis.title = "Year"
dhtmlxChart2.xAxis.template = "function(item){return item.$unit;}"
dhtmlxChart2.xAxis.value = "function(item){return item.year;}"
dhtmlxChart2.xAxis.units.visible = True
dhtmlxChart2.xAxis.units.start = 2000
dhtmlxChart2.xAxis.units.finish = 2010
dhtmlxChart2.xAxis.units.nextitem = "function(value){return value+1;}"
dhtmlxChart2.yAxis.title = "Sales"
dhtmlxChart2.BarChart.colorcolumn = "color"
dhtmlxChart2.AddColumns("id", "year", "sales", "sales1")
dhtmlxChart2.ParseXY("id:1, sales:55, sales1:60, year:2002")
dhtmlxChart2.ParseXY("id:2, sales:61, sales1:45, year:2003")
dhtmlxChart2.ParseXY("id:3, sales:35, sales1:20, year:2006")
dhtmlxChart2.ParseXY("id:4, sales:50, sales1:25, year:2007")
dhtmlxChart2.ParseXY("id:5, sales:59, sales1:40, year:2009")
dhtmlxChart2.AddSeries("sales", System.Drawing.Color.Orange)
dhtmlxChart2.AddSeries("sales1", System.Drawing.Color.Cyan)
WebSite.File_Write("~/dhtmlxChart26.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart26.html"
End Sub

Sub DhtmlxCharts28()
' bar chart
Dim dhtmlxChart2 As New dhtmlxChart2
dhtmlxChart2.Title = "dhtmlxChart: Line Markers"
dhtmlxChart2.Heading = dhtmlxChart2.Title
dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.line
dhtmlxChart2.Width = "500px"
dhtmlxChart2.Height = "500px"
dhtmlxChart2.border = "border:1px solid #A4BED4"
dhtmlxChart2.AddColumns("id", "sales", "year")
dhtmlxChart2.ParseXY("id:1, sales:20, year:02")
dhtmlxChart2.ParseXY("id:2, sales:55, year:03")
dhtmlxChart2.ParseXY("id:3, sales:40, year:04")
dhtmlxChart2.ParseXY("id:4, sales:78, year:05")
dhtmlxChart2.ParseXY("id:5, sales:61, year:06")
dhtmlxChart2.ParseXY("id:6, sales:35, year:07")
dhtmlxChart2.ParseXY("id:7, sales:80, year:08")
dhtmlxChart2.ParseXY("id:8, sales:50, year:09")
dhtmlxChart2.ParseXY("id:9, sales:65, year:10")
dhtmlxChart2.ParseXY("id:10, sales:59, year:11")
dhtmlxChart2.LineChart.offset = 0
dhtmlxChart2.AddSeries("sales", System.Drawing.Color.Blue, "sales", dhtmlxChart2.ChartTypeEnum.none, True, "Sales")
dhtmlxChart2.xAxis.Assign("Year", dhtmlxChart2.InQuoteHash("year"))
dhtmlxChart2.yAxis.Assign("Sales")
dhtmlxChart2.legend.position = dhtmlxChart2.PositionEnum.leftbottom
WebSite.File_Write("~/dhtmlxChart28.html", dhtmlxChart2.Render)
regLeft.IFrameUrl = "dhtmlxChart28.html"
End Sub

Last edited Oct 3, 2013 at 9:12 PM by anelembanga, version 1