Html中使用M$控件系列之OWC-数据透视图篇
2006-06-14 16:24
519 查看
<object id=ChartSpace1 classid=CLSID:0002E500-0000-0000-C000-000000000046 style="width:100%;height:350"></object>
<SCRIPT LANGUAGE="VBSCRIPT">
SUB Window_OnLoad()
Dim categories(3), values(3)
'取得已命名的常量对象,在以后的脚本中使用
Set c = ChartSpace1.Constants
'设置图表工作区标题
ChartSpace1.HasChartSpaceTitle = True
ChartSpace1.ChartSpaceTitle.Caption = "Chart Space Title"
'设置图表工作区的图例
ChartSpace1.HasChartSpaceLegend = True
'图例位置,其中c.*为位置枚举值,值列表如下
'chLegendPositionTop :顶端
'chLegendPositionLeft :左边
'chLegendPositionRight :右边
'chLegendPositionBottom :底部
'chLegendPositionAutomatic :自动
ChartSpace1.ChartSpaceLegend.Position = c.chLegendPositionRight
categories(0) = "White"
categories(1) = "Black"
categories(2) = "Asian"
categories(3) = "Latino"
'将图表添加到图表工作区
ChartSpace1.Charts.Add
'将新系列添加到图表工作区的指定图表中,下同
Set a = ChartSpace1.Charts(0).SeriesCollection.Add
'指定新系列的类型,C.*为类型枚举值,列表如下:
'chChartTypeCombo
'chChartTypeColumnClustered
'chChartTypeColumnStacked
'chChartTypeColumnStacked100
'chChartTypeBarClustered
'chChartTypeBarStacked
'chChartTypeBarStacked100
'chChartTypeLine
'chChartTypeLineMarkers
'chChartTypeLineStacked
'chChartTypeLineStackedMarkers
'chChartTypeLineStacked100
'chChartTypeLineStacked100Markers
'chChartTypeSmoothLine
'chChartTypeSmoothLineMarkers
'chChartTypeSmoothLineStacked
'chChartTypeSmoothLineStackedMarkers
'chChartTypeSmoothLineStacked100
'chChartTypeSmoothLineStacked100Markers
'chChartTypePie
'chChartTypePieExploded
'chChartTypePieStacked
'chChartTypeScatterMarkers
'chChartTypeScatterSmoothLineMarkers
'chChartTypeScatterSmoothLine
'chChartTypeScatterLineMarkers
'chChartTypeScatterLine
'chChartTypeScatterLineFilled
'chChartTypeBubble
'chChartTypeBubbleLine
'chChartTypeArea
'chChartTypeAreaStacked
'chChartTypeAreaStacked100
'chChartTypeDoughnut
'chChartTypeDoughnutExploded
'chChartTypeRadarLine
'chChartTypeRadarLineMarkers
'chChartTypeRadarLineFilled
'chChartTypeRadarSmoothLine
'chChartTypeRadarSmoothLineMarkers
'chChartTypeStockHLC
'chChartTypeStockOHLC
'chChartTypePolarMarkers
'chChartTypePolarLine
'chChartTypePolarLineMarkers
'chChartTypePolarSmoothLine
'chChartTypePolarSmoothLineMarkers
'共47个,谁有兴趣谁一一的试吧,我懒。
'类型不同,支持的方法也有所不同,本文针对chChartTypeColumnClustered。
a.Type = c.chChartTypeColumnClustered
ChartSpace1.Charts(0).SeriesCollection.Add
ChartSpace1.Charts(0).SeriesCollection.Add
values(0) = 0.2
values(1) = 0.06
values(2) = 0.17
values(3) = 0.13
'设置系列的名字,将显示于图例当中,下同
ChartSpace1.Charts(0).SeriesCollection(0).Caption = "Perot"
'设定种类名称,下同
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories
'设置系列的值,下同
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values
values(0) = 0.38
values(1) = 0.82
values(2) = 0.28
values(3) = 0.62
ChartSpace1.Charts(0).SeriesCollection(1).Caption = "Clinton"
ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimCategories, c.chDataLiteral, categories
ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimValues, c.chDataLiteral, values
values(0) = 0.42
values(1) = 0.12
values(2) = 0.55
values(3) = 0.25
ChartSpace1.Charts(0).SeriesCollection(2).Caption = "Bush"
ChartSpace1.Charts(0).SeriesCollection(2).SetData c.chDimCategories, c.chDataLiteral, categories
ChartSpace1.Charts(0).SeriesCollection(2).SetData c.chDimValues, c.chDataLiteral, values
'设定指定轴的起点及格式,String类型
'其中,c.*为轴类型的枚举值,值列表如下:
'chAxisPositionLeft
'chAxisPositionCircular
'chAxisPositionRadial
'chAxisPositionRight
'chAxisPositionLeft
'chAxisPositionBottom
'chAxisPositionTop
ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).NumberFormat = "0%"
'设置指定坐标轴的主单位,Double类型
ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).MajorUnit = 0.1
END SUB
</SCRIPT>
<SCRIPT LANGUAGE="VBSCRIPT">
SUB Window_OnLoad()
Dim categories(3), values(3)
'取得已命名的常量对象,在以后的脚本中使用
Set c = ChartSpace1.Constants
'设置图表工作区标题
ChartSpace1.HasChartSpaceTitle = True
ChartSpace1.ChartSpaceTitle.Caption = "Chart Space Title"
'设置图表工作区的图例
ChartSpace1.HasChartSpaceLegend = True
'图例位置,其中c.*为位置枚举值,值列表如下
'chLegendPositionTop :顶端
'chLegendPositionLeft :左边
'chLegendPositionRight :右边
'chLegendPositionBottom :底部
'chLegendPositionAutomatic :自动
ChartSpace1.ChartSpaceLegend.Position = c.chLegendPositionRight
categories(0) = "White"
categories(1) = "Black"
categories(2) = "Asian"
categories(3) = "Latino"
'将图表添加到图表工作区
ChartSpace1.Charts.Add
'将新系列添加到图表工作区的指定图表中,下同
Set a = ChartSpace1.Charts(0).SeriesCollection.Add
'指定新系列的类型,C.*为类型枚举值,列表如下:
'chChartTypeCombo
'chChartTypeColumnClustered
'chChartTypeColumnStacked
'chChartTypeColumnStacked100
'chChartTypeBarClustered
'chChartTypeBarStacked
'chChartTypeBarStacked100
'chChartTypeLine
'chChartTypeLineMarkers
'chChartTypeLineStacked
'chChartTypeLineStackedMarkers
'chChartTypeLineStacked100
'chChartTypeLineStacked100Markers
'chChartTypeSmoothLine
'chChartTypeSmoothLineMarkers
'chChartTypeSmoothLineStacked
'chChartTypeSmoothLineStackedMarkers
'chChartTypeSmoothLineStacked100
'chChartTypeSmoothLineStacked100Markers
'chChartTypePie
'chChartTypePieExploded
'chChartTypePieStacked
'chChartTypeScatterMarkers
'chChartTypeScatterSmoothLineMarkers
'chChartTypeScatterSmoothLine
'chChartTypeScatterLineMarkers
'chChartTypeScatterLine
'chChartTypeScatterLineFilled
'chChartTypeBubble
'chChartTypeBubbleLine
'chChartTypeArea
'chChartTypeAreaStacked
'chChartTypeAreaStacked100
'chChartTypeDoughnut
'chChartTypeDoughnutExploded
'chChartTypeRadarLine
'chChartTypeRadarLineMarkers
'chChartTypeRadarLineFilled
'chChartTypeRadarSmoothLine
'chChartTypeRadarSmoothLineMarkers
'chChartTypeStockHLC
'chChartTypeStockOHLC
'chChartTypePolarMarkers
'chChartTypePolarLine
'chChartTypePolarLineMarkers
'chChartTypePolarSmoothLine
'chChartTypePolarSmoothLineMarkers
'共47个,谁有兴趣谁一一的试吧,我懒。
'类型不同,支持的方法也有所不同,本文针对chChartTypeColumnClustered。
a.Type = c.chChartTypeColumnClustered
ChartSpace1.Charts(0).SeriesCollection.Add
ChartSpace1.Charts(0).SeriesCollection.Add
values(0) = 0.2
values(1) = 0.06
values(2) = 0.17
values(3) = 0.13
'设置系列的名字,将显示于图例当中,下同
ChartSpace1.Charts(0).SeriesCollection(0).Caption = "Perot"
'设定种类名称,下同
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories
'设置系列的值,下同
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values
values(0) = 0.38
values(1) = 0.82
values(2) = 0.28
values(3) = 0.62
ChartSpace1.Charts(0).SeriesCollection(1).Caption = "Clinton"
ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimCategories, c.chDataLiteral, categories
ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimValues, c.chDataLiteral, values
values(0) = 0.42
values(1) = 0.12
values(2) = 0.55
values(3) = 0.25
ChartSpace1.Charts(0).SeriesCollection(2).Caption = "Bush"
ChartSpace1.Charts(0).SeriesCollection(2).SetData c.chDimCategories, c.chDataLiteral, categories
ChartSpace1.Charts(0).SeriesCollection(2).SetData c.chDimValues, c.chDataLiteral, values
'设定指定轴的起点及格式,String类型
'其中,c.*为轴类型的枚举值,值列表如下:
'chAxisPositionLeft
'chAxisPositionCircular
'chAxisPositionRadial
'chAxisPositionRight
'chAxisPositionLeft
'chAxisPositionBottom
'chAxisPositionTop
ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).NumberFormat = "0%"
'设置指定坐标轴的主单位,Double类型
ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).MajorUnit = 0.1
END SUB
</SCRIPT>
相关文章推荐
- Html中使用M$控件系列之OWC-数据透视表篇
- JS使用模板快速填充HTML控件数据 --- 自己写组件(0)
- zw版【转发·台湾nvp系列Delphi例程】Delphi 使用 HALCON库件COM控件数据格式转换
- Android使用webview控件加载本地html,通过Js与后台Java实现数据的传递
- web报表中使用“Html格子数据类型”引入自定义下拉日历控件
- JS使用模板快速填充HTML控件数据
- JS使用模板快速填充HTML控件数据
- ASP.NET 跳转页面数据的获取 (使用html控件)
- JS使用模板快速填充HTML控件数据
- OWC控件使用XML数据源展现数据
- 回发或回调参数无效。在配置中使用 或在页面中使用 启用了事件验证。出于安全目的,此功能验证回发或回调事件的参数是否来源于最初呈现这些事件的服务器控件。如果数据有效并且是预期的,则使用 ClientScriptManager.RegisterForEvent
- Silverlight实用窍门系列:57.Silverlight中的Binding使用(二)-数据验证
- Python使用pandas扩展库DataFrame对象的pivot方法对数据进行透视转换
- 玩转EXCEL系列透视表实现按月份汇总数据
- ASP.NET AJAX入门系列(4):使用UpdatePanel控件(一)
- html 标签与 html 实体转换 与 php html 系列函数的简单使用
- 一步一步学Silverlight 2系列(10):使用用户控件
- 【转】Developer Express 系列控件使用心得-1
- .net使用DotNetCharting控件生成报表统计图总结 (http://www.cnblogs.com/dreamof/archive/2008/07/18/1245887.html)
- ASP.NET AJAX入门系列(5):使用UpdatePanel控件(二)