几个ZedGraph例子

图:






首先,你需要将两个dll引用至你的工程,ZedGraph.dll和ZedGraph.web.dll。

html code

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="ZedGraphSample.aspx.vb" Inherits="ZedGraphSample" %>

<%@ Register Assembly="ZedGraph.Web" Namespace="ZedGraph.Web" TagPrefix="cc1" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    
<title>Untitled Page</title>
</head>
<body>
    
<form id="form1" runat="server">
    
<div>
        
<cc1:ZedGraphWeb ID="ZedGraphWeb1" runat="server">
        
</cc1:ZedGraphWeb>
        
<cc1:ZedGraphWeb ID="ZedGraphWeb2" runat="server">
        
</cc1:ZedGraphWeb>
        
<cc1:ZedGraphWeb ID="ZedGraphWeb3" runat="server">
        
</cc1:ZedGraphWeb>
        
<cc1:ZedGraphWeb ID="ZedGraphWeb4" runat="server">
        
</cc1:ZedGraphWeb>
        
<cc1:ZedGraphWeb ID="ZedGraphWeb5" runat="server">
        
</cc1:ZedGraphWeb>
    
</div>
    
</form>
</body>
</html>


vb.net code

Imports ZedGraph
Imports System.Drawing
Partial Class ZedGraphSample
    
Inherits System.Web.UI.Page
    
''' <summary>
    
''' 横着的柱状图
    
''' </summary>
    
''' <param name="webObject"></param>
    
''' <param name="g"></param>
    
''' <param name="masterPane"></param>
    
''' <remarks></remarks>

    Protected Sub ZedGraphWeb1_RenderGraph(ByVal webObject As ZedGraph.Web.ZedGraphWeb, ByVal g As System.Drawing.Graphics, ByVal masterPane As ZedGraph.MasterPane) Handles ZedGraphWeb1.RenderGraph
        
' Get the GraphPane so we can work with it
        Dim myPane As GraphPane = masterPane(0'

        
' Set the title and axis labels
        myPane.Title.Text = "很黄,很强大的说"
        myPane.YAxis.Title.Text 
= "很黄"
        myPane.XAxis.Title.Text 
= "很强大"

        
' Make up some data points
        Dim labels() As String = {1002304240801075}
        
Dim x() As Double = {4030011575229840}
        
Dim x2() As Double = {1201759557113110}
        
Dim x3() As Double = {20419211980134156}

        
' Generate a red bar with "Curve 1" in the legend
        Dim myCurve As BarItem = myPane.AddBar("Here", x, Nothing, Color.Red)
        
' Fill the bar with a red-white-red color gradient for a 3d look
        myCurve.Bar.Fill = New Fill(Color.Red, Color.White, Color.Red, 90.0F)

        
' Generate a blue bar with "Curve 2" in the legend
        myCurve = myPane.AddBar("There", x2, Nothing, Color.Blue)
        
' Fill the bar with a Blue-white-Blue color gradient for a 3d look
        myCurve.Bar.Fill = New Fill(Color.Blue, Color.White, Color.Blue, 90.0F)

        
' Generate a green bar with "Curve 3" in the legend
        myCurve = myPane.AddBar("Elsewhere", x3, Nothing, Color.Green)
        
' Fill the bar with a Green-white-Green color gradient for a 3d look
        myCurve.Bar.Fill = New Fill(Color.Green, Color.White, Color.Green, 90.0F)

        
' Draw the Y tics between the labels instead of at the labels
        myPane.YAxis.MajorTic.IsBetweenLabels = True

        
' Set the YAxis labels
        myPane.YAxis.Scale.TextLabels = labels
        
' Set the YAxis to Text type
        myPane.YAxis.Type = AxisType.Text

        
' Set the bar type to stack, which stacks the bars by automatically accumulating the values
        myPane.BarSettings.Type = BarType.Stack

        
' Make the bars horizontal by setting the BarBase to "Y"
        myPane.BarSettings.Base = BarBase.Y

        
' Fill the axis background with a color gradient
        myPane.Chart.Fill = New Fill(Color.White, _
            Color.FromArgb(
255255166), 45.0F)

        masterPane.AxisChange(g)
    
End Sub


    
''' <summary>
    
''' 线型的
    
''' </summary>
    
''' <param name="webObject"></param>
    
''' <param name="g"></param>
    
''' <param name="masterPane"></param>
    
''' <remarks></remarks>

    Protected Sub ZedGraphWeb2_RenderGraph(ByVal webObject As ZedGraph.Web.ZedGraphWeb, ByVal g As System.Drawing.Graphics, ByVal masterPane As ZedGraph.MasterPane) Handles ZedGraphWeb2.RenderGraph
        
' Get the GraphPane so we can work with it
        Dim myPane As GraphPane = masterPane(0)

        
' Set the titles and axis labels
        myPane.Title.Text = "My Test Date Graph"
        myPane.XAxis.Title.Text 
= "Date"
        myPane.YAxis.Title.Text 
= "My Y Axis"

        
' Make up some data points from 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 
= New XDate(1995, i + 11)
            y 
= Math.Sin(i * Math.PI / 15.0)
            y2 
= 2 * y

            list.Add(x, y)
            list2.Add(x, y2)
        
Next i

        
' Generate a blue curve with circle symbols, and "My Curve 2" in the legend
        Dim myCurve2 As LineItem = myPane.AddCurve("My Curve 2", list, Color.Blue, _
                                SymbolType.Circle)
        
' Fill the area under the curve with a white-red gradient at 45 degrees
        myCurve2.Line.Fill = New Fill(Color.White, Color.Red, 45.0F)
        
' Make the symbols opaque by filling them with white
        myCurve2.Symbol.Fill = New Fill(Color.White)

        
' Generate a red curve with diamond symbols, and "My Curve" in the legend
        Dim myCurve As LineItem = myPane.AddCurve("My Curve", _
            list2, Color.MediumVioletRed, SymbolType.Diamond)
        
' Fill the area under the curve with a white-green gradient
        myCurve.Line.Fill = New Fill(Color.White, Color.Green)
        
' Make the symbols opaque by filling them with white
        myCurve.Symbol.Fill = New Fill(Color.White)

        
' Set the XAxis to date type
        myPane.XAxis.Type = AxisType.Date
        myPane.XAxis.CrossAuto 
= True

        
' Fill the axis background with a color gradient
        myPane.Chart.Fill = New Fill(Color.White, Color.LightGoldenrodYellow, 45.0F)

        masterPane.AxisChange(g)
    
End Sub


    
''' <summary>
    
''' 比较复杂的线型的
    
''' </summary>
    
''' <param name="webObject"></param>
    
''' <param name="g"></param>
    
''' <param name="Master"></param>
    
''' <remarks></remarks>

    Protected Sub ZedGraphWeb3_RenderGraph(ByVal webObject As ZedGraph.Web.ZedGraphWeb, ByVal g As System.Drawing.Graphics, ByVal Master As ZedGraph.MasterPane) Handles ZedGraphWeb3.RenderGraph

        Master.Fill 
= New Fill(Color.White, Color.MediumSlateBlue, 45.0F)
        Master.PaneList.Clear()

        Master.Title.IsVisible 
= True
        Master.Title.Text 
= "My MasterPane Title"

        Master.Margin.All 
= 10

        
Dim rotator As New ColorSymbolRotator()
        
Dim j As Integer
        
For j = 0 To 5
            
' Create a new graph with topLeft at (40,40) and size 600x400
            Dim myPaneT As New GraphPane(New Rectangle(4040600400), _
                
"Case #" + (j + 1).ToString(), _
                
"Time, Days", _
                
"Rate, m/s")

            myPaneT.Fill 
= New Fill(Color.White, Color.LightYellow, 45.0F)
            myPaneT.BaseDimension 
= 6.0F

            
' Make up some data arrays based on the Sine function
            Dim x As Double, y As Double, i As Integer
            
Dim list As New PointPairList()
            
For i = 0 To 35
                x 
= i + 5
                y 
= 3.0 * (1.5 + Math.Sin(i * 0.2 + j))
                list.Add(x, y)
            
Next i

            
Dim myCurve As LineItem = myPaneT.AddCurve("Type " + j.ToString(), _
                list, rotator.NextColor, rotator.NextSymbol)
            myCurve.Symbol.Fill 
= New Fill(Color.White)

            Master.Add(myPaneT)
        
Next j

        
Dim irows() As Integer = {132}
        
Dim prop() As Single = {213}
        Master.SetLayout(g, 
False, irows, prop)
        Master.AxisChange(g)
    
End Sub


    
''' <summary>
    
''' 大饼子图
    
''' </summary>
    
''' <param name="webObject"></param>
    
''' <param name="g"></param>
    
''' <param name="pane"></param>
    
''' <remarks></remarks>

    Protected Sub ZedGraphWeb4_RenderGraph(ByVal webObject As ZedGraph.Web.ZedGraphWeb, ByVal g As System.Drawing.Graphics, ByVal pane As ZedGraph.MasterPane) Handles ZedGraphWeb4.RenderGraph


        
Dim myPane As GraphPane = pane(0)
        myPane.Title.Text 
= "大饼子"
        myPane.Title.FontSpec.IsItalic 
= True
        myPane.Title.FontSpec.Size 
= 24.0F
        myPane.Title.FontSpec.Family 
= "饼子"

        myPane.Fill 
= New Fill(Color.White, Color.Goldenrod, 45.0F)

        myPane.Chart.Fill.Type 
= FillType.None
        
Dim segment1 As PieItem = myPane.AddPieSlice(20, Color.Navy, Color.White, 45.0F, 0"North")
        
Dim segment3 As PieItem = myPane.AddPieSlice(30, Color.Purple, Color.White, 45.0F, 0.0"East")
        
Dim segment4 As PieItem = myPane.AddPieSlice(20, Color.LimeGreen, Color.White, 45.0F, 0"West")
        
Dim segment2 As PieItem = myPane.AddPieSlice(40, Color.SandyBrown, Color.White, 45.0F, 0.2"South")
        
Dim segment6 As PieItem = myPane.AddPieSlice(250, Color.Red, Color.White, 45.0F, 0"Europe")
        
Dim segment7 As PieItem = myPane.AddPieSlice(50, Color.Blue, Color.White, 45.0F, 0.2"Pac Rim")
        
Dim segment8 As PieItem = myPane.AddPieSlice(400, Color.Green, Color.White, 45.0F, 0"South America")
        
Dim segment9 As PieItem = myPane.AddPieSlice(50, Color.Yellow, Color.White, 45.0F, 0.2"Africa")

        
'segment2.LabelDetail.FontSpec.FontColor = Color.Red

        
' Sum up the pie values                                                               
        Dim curves As CurveList = myPane.CurveList
        
Dim total As Double = 0, i As Integer
        
Dim pie As PieItem
        
For i = 0 To curves.Count - 1
            pie 
= curves(i)
            total 
+= pie.Value
        
Next i

        
' Make a text label to highlight the total value
        Dim text As New TextObj("Total 2004 Sales" + Chr(10+ "$" + total.ToString() + "M", _
                    
0.18F, 0.4F, CoordType.PaneFraction)
        text.Location.AlignH 
= AlignH.Center
        text.Location.AlignV 
= AlignV.Bottom
        text.FontSpec.Border.IsVisible 
= False
        text.FontSpec.Fill 
= New Fill(Color.White, Color.FromArgb(255100100), 45.0F)
        text.FontSpec.StringAlignment 
= StringAlignment.Center
        myPane.GraphObjList.Add(text)

        
'' Create a drop shadow for the total value text item
        Dim text2 As New TextObj(text)
        text2.FontSpec.Fill 
= New Fill(Color.Black)
        text2.Location.X 
+= 0.008F
        text2.Location.Y 
+= 0.01F
        myPane.GraphObjList.Add(text2)

    
End Sub


    
''' <summary>
    
''' 竖着的柱状图
    
''' </summary>
    
''' <param name="webObject"></param>
    
''' <param name="g"></param>
    
''' <param name="pane"></param>
    
''' <remarks></remarks>

    Protected Sub ZedGraphWeb5_RenderGraph(ByVal webObject As ZedGraph.Web.ZedGraphWeb, ByVal g As System.Drawing.Graphics, ByVal pane As ZedGraph.MasterPane) Handles ZedGraphWeb5.RenderGraph
        
Dim myPane As GraphPane = pane(0)
        myPane.Title.Text 
= "火星"
        myPane.XAxis.Title.Text 
= "员工"
        myPane.YAxis.Title.Text 
= "哈哈哈哈"

        
Dim list As New PointPairList
        
Dim rand As New Random

        
For i As Integer = 0 To 10
            
Dim x As Double = CDbl(i) + 1
            
Dim y As Double = rand.NextDouble() * 1000
            
Dim z As Double = i / 4.0
            list.Add(x, y, z)
        
Next
        
Dim mycurve As BarItem = myPane.AddBar("0", list, Color.Black)
        
Dim colors As Color() = {Color.Red, Color.Yellow, Color.Green, Color.Blue, Color.Black}
        mycurve.Bar.Fill 
= New Fill(colors)
        mycurve.Bar.Fill.Type 
= FillType.GradientByZ

        mycurve.Bar.Fill.RangeMin 
= 0
        mycurve.Bar.Fill.RangeMax 
= 3
        
Dim list1 As New PointPairList
        
Dim rand1 As New Random

        
For i As Integer = 0 To 10
            
Dim x As Double = CDbl(i) + 1
            
Dim y As Double = rand1.NextDouble() * 1000
            
Dim z As Double = i / 4.0
            list1.Add(x, y, z)
        
Next
        mycurve 
= myPane.AddBar("1", list1, Color.DarkGreen)

        myPane.BarSettings.Type 
= BarType.Stack

        pane.AxisChange(g)
    
End Sub

End Class



 
posted @ 2008-06-23 11:14  不待人亲灬  阅读(8668)  评论(0编辑  收藏