转载： ZedGraph最原版的例子
<%@ Page Language="vb" Inherits="graph" CodeFile="graph.aspx.vb" %>
<%@ Register TagPrefix="zgw" Namespace="ZedGraph.Web" Assembly="ZedGraph.Web" %>
<ZGW:ZEDGRAPHWEB id="ZedGraphWeb1" runat="server" width="500" Height="375" RenderMode="RawImage"></ZGW:ZEDGRAPHWEB>
后台代码
'============================================================================
'ZedGraph Class Library - A Flexible Charting Library for .Net
'Copyright (C) 2005 John Champion and Jerry Vos
'
'This library is free software; you can redistribute it and/or
'modify it under the terms of the GNU Lesser General Public
'License as published by the Free Software Foundation; either
'version 2.1 of the License, or (at your option) any later version.
'
'This library is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
'Lesser General Public License for more details.
'
'You should have received a copy of the GNU Lesser General Public
'License along with this library; if not, write to the Free Software
'Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
'=============================================================================
Imports ZedGraph
Imports ZedGraph.Web
Imports System.Drawing
Public Class graph
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
End Sub
Private Sub OnRenderGraph(ByVal zgw As ZedGraphWeb, ByVal g As System.Drawing.Graphics, _
ByVal masterPane As ZedGraph.MasterPane) Handles ZedGraphWeb1.RenderGraph
' Get a reference to the GraphPane instance in the ZedGraphControl
Dim myPane As GraphPane = masterPane(0)
' Set the titles and axis labels
'X轴， 第一Y轴，第一Y轴
myPane.Title.Text = "Demonstration of Dual Y Graph"
myPane.XAxis.Title.Text = "Time, Days"
myPane.YAxis.Title.Text = "Parameter A"
myPane.Y2Axis.Title.Text = "Parameter B"
' Make up some data points based on the Sine function
'定义数据点， 然后连成曲线
'循环生成两条线
Dim list As New PointPairList
Dim list2 As New PointPairList
Dim i As Integer, x As Double, y As Double, y2 As Double
For i = 0 To 35
x = i * 5.0
y = Math.Sin(i * Math.PI / 15.0) * 16.0
y2 = y * 13.5
list.Add(x, y)
list2.Add(x, y2)
Next i
' Generate a red curve with diamond symbols, and "Alpha" in the legend
'所显示的标识
Dim myCurve As LineItem
myCurve = myPane.AddCurve("Alpha", list, Color.Red, SymbolType.Diamond)
' Fill the symbols with white
myCurve.Symbol.Fill = New Fill(Color.White)
' Generate a blue curve with circle symbols, and "Beta" in the legend
myCurve = myPane.AddCurve("Beta", list2, Color.Blue, SymbolType.Circle)
' Fill the symbols with white
myCurve.Symbol.Fill = New Fill(Color.White)
' Associate this curve with the Y2 axis
'显示第二纵坐标
myCurve.IsY2Axis = True
' Show the x axis grid
myPane.XAxis.MajorGrid.IsVisible = True
myPane.XAxis.CrossAuto = True
' Make the Y axis scale red
'标题和刻度都显示红色
myPane.YAxis.Scale.FontSpec.FontColor = Color.Red
myPane.YAxis.Title.FontSpec.FontColor = Color.Red
' turn off the opposite tics so the Y tics don't show up on the Y2 axis
myPane.YAxis.MajorTic.IsOpposite = False
myPane.YAxis.MinorTic.IsOpposite = False
' Don't display the Y zero line
myPane.YAxis.MajorGrid.IsZeroLine = False
' Align the Y axis labels so they are flush to the axis
myPane.YAxis.Scale.Align = AlignP.Inside
' Manually set the axis range
myPane.YAxis.Scale.Min = -30
myPane.YAxis.Scale.Max = 30
' Enable the Y2 axis display
myPane.Y2Axis.IsVisible = True
' Make the Y2 axis scale blue
myPane.Y2Axis.Scale.FontSpec.FontColor = Color.Blue
myPane.Y2Axis.Title.FontSpec.FontColor = Color.Blue
' turn off the opposite tics so the Y2 tics don't show up on the Y axis
myPane.Y2Axis.MajorTic.IsOpposite = False
myPane.Y2Axis.MinorTic.IsOpposite = False
' Display the Y2 axis grid lines
myPane.Y2Axis.MajorGrid.IsVisible = True
' Align the Y2 axis labels so they are flush to the axis
myPane.Y2Axis.Scale.Align = AlignP.Inside
myPane.Y2Axis.CrossAuto = True
' Fill the axis background with a gradient
myPane.Chart.Fill = New Fill(Color.White, Color.LightGray, 45.0F)
masterPane.AxisChange(g)
End Sub
End Class
