OWC 的应用 - 柱状图(VB.NET)

 '创建ChartSpace对象来放置图表




        Dim myChart As ChartSpaceClass = New ChartSpaceClass




        '在ChartSpace对象中添加图表，Add方法返回chart对象




        Dim Chart1 As ChChart = myChart.Charts.Add(0)




        '指定图表的类型。类型由OWC.ChartChartTypeEnum枚举值得到




        Chart1.Type = OWC10.ChartChartTypeEnum.chChartTypeColumnClustered








        '指定图表是否需要图例




        Chart1.HasLegend = True




        Chart1.Legend.Position = ChartLegendPositionEnum.chLegendPositionTop








        '给定标题




        Chart1.HasTitle = True




        Chart1.Title.Caption = "1-6月数据分布图"








        '计算数据




        'X轴




        Dim strCategory As String = "1" + ControlChars.Tab + "2" + ControlChars.Tab _




                                 + "3" + ControlChars.Tab + "4" + ControlChars.Tab + "5" + ControlChars.Tab _




                                 + "6" + ControlChars.Tab




        'Y轴




        Dim strValue As String = "9" + ControlChars.Tab + "8" + ControlChars.Tab _




                                 + "4" + ControlChars.Tab + "10" + ControlChars.Tab + "12" + ControlChars.Tab _




                                 + "6" + ControlChars.Tab




        'Z轴




        Dim strValue2 As String = "0.3" + ControlChars.Tab + "0.63" + ControlChars.Tab _




                                  + "0.48" + ControlChars.Tab + "0.86" + ControlChars.Tab + "0.95" + ControlChars.Tab _




                                  + "0.18" + ControlChars.Tab












        '1. 添加一个series




        Dim Ser1 As ChSeries = Chart1.SeriesCollection.Add(0)




        '给定series的名字




        Ser1.SetData(ChartDimensionsEnum.chDimSeriesNames, _




                                           ChartSpecialDataSourcesEnum.chDataLiteral, "Product")




        '给定分类




        Ser1.SetData(ChartDimensionsEnum.chDimCategories, _




                                           ChartSpecialDataSourcesEnum.chDataLiteral, strCategory)




        '给定值




        Ser1.SetData(ChartDimensionsEnum.chDimValues, _




                                           ChartSpecialDataSourcesEnum.chDataLiteral, strValue)












        '2. 再添加一个series




        Dim Ser2 As ChSeries = Chart1.SeriesCollection.Add(1)




        '给定series的名字




        Ser2.SetData(ChartDimensionsEnum.chDimSeriesNames, _




                                           ChartSpecialDataSourcesEnum.chDataLiteral, "Ratio")




        '给定分类




        Ser2.SetData(ChartDimensionsEnum.chDimCategories, _




                                           ChartSpecialDataSourcesEnum.chDataLiteral, strCategory)




        '给定值




        Ser2.SetData(ChartDimensionsEnum.chDimValues, _




                                           ChartSpecialDataSourcesEnum.chDataLiteral, strValue2)




        Ser2.Ungroup(True)




        Ser2.Type = ChartChartTypeEnum.chChartTypeLineMarkers




        '添加Z轴




        Dim AxesZ As ChAxis = Chart1.Axes.Add(Ser2.Scalings(ChartDimensionsEnum.chDimValues))




        AxesZ.NumberFormat = "0.00%"




        AxesZ.Position = ChartAxisPositionEnum.chAxisPositionRight












        '给定x,y轴的图示说明




        '默认只有X,Y 两个轴




        Chart1.Axes(-3).HasTitle = True




        Chart1.Axes(-3).Title.Caption = "Y 轴 : 数量"




        Chart1.Axes(-2).HasTitle = True




        Chart1.Axes(-2).Title.Caption = "X 轴： 月份"




        AxesZ.HasTitle = True




        AxesZ.Title.Caption = "Z 轴： Ratio"












        '输出成GIF文件.




        Dim strAbsolutePath As String = "C:Images" & Format(Date.Now, "yyyyMMddhhmmss") & ".gif"




        myChart.ExportPicture(strAbsolutePath, "GIF", 600, 350)




        Me.Image1.ImageUrl = strAbsolutePath