OWC.aspx.vb:
Imports System
Imports OWC
Imports System.Web.UI
Public Class OWC
Inherits System.Web.UI.Page
Protected WithEvents ChartHolder As System.Web.UI.WebControls.PlaceHolder
#Region " Web Form設計器產生的程式碼 "
'該調用是 Web Form設計器所必需的。
<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 Form設計器所必需的
'不要使用代碼編輯器修改它。
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
'指定圖表是否需要圖例