ZedGraph图形控件来生成图片,有很多东西需要继续研究。

Imports ZedGraph
Imports System.Drawing

Public Class graph
    Inherits System.Web.UI.Page

    Dim ls_projid As String = ""

    Protected Sub ZedGraphWeb2_RenderGraph(ByVal z 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 = "项目进度报表"
        myPane.XAxis.Title.Text = "日期"
        myPane.YAxis.Title.Text = "进度"
        '进度条0 - 100
        myPane.YAxis.Scale.Min = 0
        myPane.YAxis.Scale.Max = 100
        'myPane.YAxis.Scale.MinGrace = 0.2
        'myPane.YAxis.Scale.MaxGrace = 0.2
        'myPane.Y2Axis.Scale.MinGrace = 0.2
        'myPane.Y2Axis.Scale.MaxGrace = 0.2

        ' 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

        Dim d As Date

        '取得对应的ID号
        Dim ds As DataSet
        ds = Config.GetDs("select AchieveDate,TargetProgress,FactProgress from tbl_projectprogress where Id_InProject='" & ls_projid & "' order by AchieveDate")
        If ds.Tables(0).Rows.Count > 0 Then
            For i = 0 To ds.Tables(0).Rows.Count - 1
                d = ds.Tables(0).Rows(i)("AchieveDate")
                x = New XDate(d)
                y = ds.Tables(0).Rows(i)("TargetProgress")
                y2 = ds.Tables(0).Rows(i)("FactProgress")
                list.Add(x, y)
                list2.Add(x, y2)
            Next i
        End If


        'd = "2008-3-2"
        'x = New XDate(d)
        'y = 10
        'y2 = 5
        'list.Add(x, y)
        'list2.Add(x, y2)


        'For i = 0 To 35
        '    x = New XDate(1995, i + 1, 1)
        '    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("目标进度", 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("实际进度", _
            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

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            Dim sqlstr As String
            Dim ds As DataSet
            Dim i As Integer
            sqlstr = "select id,itemdes from dbo.tbl_project where parentid='0' and status='1'"
            ds = Config.GetDs(sqlstr)

            drpProject.Items.Add("请选择")
            drpProject.Items(0).Value = ""

            If ds.Tables(0).Rows.Count > 0 Then
                For i = 0 To ds.Tables(0).Rows.Count - 1
                    drpProject.Items.Add(ds.Tables(0).Rows(i)("itemdes"))
                    drpProject.Items(i + 1).Value = ds.Tables(0).Rows(i)("id")
                Next i
            End If
        End If
    End Sub

    Protected Sub cmdShow_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdShow.Click
        ls_projid = drpProject.SelectedValue
    End Sub

End Class

posted @ 2008-03-13 14:32  寒天飞雪  阅读(2853)  评论(0编辑  收藏  举报