Hi Friends,
I am doing a project in asp.net, and I want to show a graph using ZedGraph dll. Now I show the graph in my project corresponding to the data
but now I faced a problem that is that graph is always visible when that page is loaded.
And I want that graph shows only a button click event..
Friends plz help me to show this graph when I clicked a button.
Now am using This Code:
Private Sub OnRenderGraph1(ByVal zgw As ZedGraphWeb, ByVal g As System.Drawing.Graphics, _
ByVal masterPane As ZedGraph.MasterPane) Handles ZedGraphWeb1.RenderGraph
Dim myPane As GraphPane = masterPane(0)
Dim num As Integer
Dim Xcount As Integer
myPane.Title.Text = "LBS Financials – All Practices - April 2011 - November 2010"
myPane.XAxis.Title.Text = "Month/Year"
myPane.YAxis.Title.Text = "Values In ($)"
Xcount = gvFinancialSummaryReport.Rows.Count - 1
Dim y1(Xcount), y2(Xcount), Y3(Xcount), Y4(Xcount), y5(Xcount), y6(Xcount), _
y7(Xcount), y8(Xcount) As Double
Dim Xlabels(Xcount) As String
For num = 0 To Xcount
Xlabels(num) = gvFinancialSummaryReport.Rows(num).Cells(0).Text
y1(num) = gvFinancialSummaryReport.Rows(num).Cells(1).Text
y2(num) = gvFinancialSummaryReport.Rows(num).Cells(2).Text
Y3(num) = gvFinancialSummaryReport.Rows(num).Cells(3).Text
Y4(num) = gvFinancialSummaryReport.Rows(num).Cells(4).Text
y5(num) = gvFinancialSummaryReport.Rows(num).Cells(5).Text
y6(num) = gvFinancialSummaryReport.Rows(num).Cells(6).Text
y7(num) = gvFinancialSummaryReport.Rows(num).Cells(7).Text
If gvFinancialSummaryReport.Rows(num).Cells(8).Text = "" Then
y8(num) = 0
Else
y8(num) = gvFinancialSummaryReport.Rows(num).Cells(8).Text
End If
Next
Dim myBar As BarItem = myPane.AddBar("Charges", Nothing, y1, Color.Red)
myBar.Bar.Fill = New Fill(Color.Red, Color.White, Color.Red)
myBar = myPane.AddBar("Insurance Payments", Nothing, y2, Color.Blue)
myBar.Bar.Fill = New Fill(Color.Blue, Color.White, Color.Blue)
myBar = myPane.AddBar("Patient Payments", Nothing, Y3, Color.Green)
myBar.Bar.Fill = New Fill(Color.Green, Color.White, Color.Green)
myBar = myPane.AddBar("Total Collections", Nothing, Y4, Color.DarkTurquoise)
myBar.Bar.Fill = New Fill(Color.DarkTurquoise, Color.White, Color.DarkTurquoise)
myBar = myPane.AddBar("Insurance Adjustments / Write-offs", Nothing, y5, Color.Black)
myBar.Bar.Fill = New Fill(Color.Black, Color.White, Color.Black)
myBar = myPane.AddBar("Receipt Adjustments", Nothing, y6, Color.DarkSalmon)
myBar.Bar.Fill = New Fill(Color.DarkSalmon, Color.White, Color.DarkSalmon)
myBar = myPane.AddBar("Insurance AR", Nothing, y7, Color.DarkMagenta)
myBar.Bar.Fill = New Fill(Color.DarkMagenta, Color.White, Color.DarkMagenta)
myBar = myPane.AddBar("Insurance A/R Days", Nothing, y8, Color.DarkKhaki)
myBar.Bar.Fill = New Fill(Color.DarkKhaki, Color.White, Color.DarkKhaki)
myPane.XAxis.MajorTic.IsBetweenLabels = True
myPane.XAxis.Scale.TextLabels = Xlabels
myPane.XAxis.Type = AxisType.Text
myPane.Chart.Fill = New Fill(Color.White, _
Color.FromArgb(255, 255, 166), 90.0F)
myPane.Fill = New Fill(Color.FromArgb(250, 250, 255))
masterPane.AxisChange(g)
End Sub
Please help me.
Thanks.