Public Class OWC
Inherits System.Web.UI.Page
Protected WithEvents ChartHolder As System.Web.UI.WebControls.PlaceHolder
#Region "" Web 窗体设计器生成的代码 ""
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
'创建ChartSpace对象来放置图表
Dim objCSpace As ChartSpace = New ChartSpaceClass()
'在ChartSpace对象中添加图表,Add方法返回chart对象
Dim objChart As WCChart = objCSpace.Charts.Add(0)
'指定图表的类型。类型由OWC.ChartChartTypeEnum枚举值得到
objChart.Type = ChartChartTypeEnum.chChartTypeColumnClustered
'给定值
objChart.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimValues,_
ChartSpecialDataSourcesEnum.chDataLiteral, strValue)
'输出成GIF文件.
Dim strAbsolutePath As String = (Server.MapPath(""."")) + ""\Images\test.gif""
objCSpace.ExportPicture(strAbsolutePath, ""GIF"", 600, 350)
'创建GIF文件的相对路径.
Dim strRelativePath As String = ""Images/test.gif""
'把图片添加到placeholder.
Dim strImageTag As String = ""<IMG SRC='"" + strRelativePath + ""'/>""
ChartHolder.Controls.Add(New LiteralControl(strImageTag))
End Sub
End Class
下面是C#版本的OWC.asp.cs
ublic class owc: System.Web.UI.Page
{
protected System.Web.UI.WebControls.PlaceHolder ChartHolder;