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

于 2006-09-17 21:58:00 发布
阅读量1.6k 收藏
点赞数
CC 4.0 BY-SA版权
分类专栏： ASP.NET 文章标签： vb.net string date c
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/coso/article/details/1233263
 '创建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
 
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值