AE中，用ZedGraph控件画柱状图、饼状图

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CreateGraph_GradientByZBars(XXXXXXXX) '折线图
End Sub

Private Sub CreateGraph_GradientByZBars(ByVal z1 As ZedGraphControl)
Dim myPane As GraphPane = z1.GraphPane
myPane.Title.Text = "Demonstration of Multi-Colored Bars with a Single BarItem"
myPane.XAxis.Title.Text = "Bar Number"
myPane.YAxis.Title.Text = "Value"

Dim list As New PointPairList()
Dim rand As New Random()

Dim i As Integer
For i = 0 To 15
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 i

Dim myCurve As BarItem = myPane.AddBar("Multi-Colored Bars", list, Color.Blue)
Dim colors As Color() = {Color.Red, Color.Yellow, Color.Green, Color.Blue, Color.Purple}
myCurve.Bar.Fill = New Fill(colors)
myCurve.Bar.Fill.Type = FillType.GradientByZ

myCurve.Bar.Fill.RangeMin = 0
myCurve.Bar.Fill.RangeMax = 4

myPane.Chart.Fill = New Fill(Color.White, Color.FromArgb(220, 220, 255), 45)
myPane.Fill = New Fill(Color.White, Color.FromArgb(255, 255, 225), 45)
' Tell ZedGraph to calculate the axis ranges
z1.AxisChange()
End Sub 'CreateGraph_GradientByZBars