ZedGraph控件画饼图折线图柱状图函数

该博客总结了如何利用ZedGraph控件在VB.NET中创建饼图、折线图和柱状图。通过初始化颜色数组，设置图表的标题、轴标签和图例，然后传入必要的数据，即可生成不同类型的图表。博客提供了详细的代码示例，包括绘制饼图、折线图和柱状图的函数。

这是工作的时候总结的,用的时候,只要传ZedGraph控件的对象、图的标题、点的数组、和标签数组进来就可以了.当然先要添加这个控件和引用.

#Region "三种绘图函数" Dim ArColor As New ArrayList '颜色数组 Private Sub InitColor() '初始化颜色数组 ArColor.Clear() ArColor.Add(Color.Gold) ArColor.Add(Color.Green) ArColor.Add(Color.Red) ArColor.Add(Color.Indigo) ArColor.Add(Color.Blue) ArColor.Add(Color.Brown) ArColor.Add(Color.Yellow) ArColor.Add(Color.Cornsilk) ArColor.Add(Color.Pink) ArColor.Add(Color.YellowGreen) ArColor.Add(Color.Firebrick) ArColor.Add(Color.DimGray) ArColor.Add(Color.Aqua) ArColor.Add(Color.Indigo) ArColor.Add(Color.DarkSeaGreen) End Sub ''' <summary> ''' 绘制饼图 ''' </summary> ''' <param name="zgc">绘图控件</param> ''' <param name="strTitle">图标题</param> ''' <param name="strValue">Y轴值数组</param> ''' <param name="strLabel">X轴标签数组</param> ''' <returns></returns> ''' <remarks></remarks> Public Function CreateGraph_Pie(ByVal zgc As ZedGraphControl, ByVal strTitle As String, ByVal strValue() As Double, ByVal strLabel() As String) As Boolean Try InitColor() Dim myPane As New GraphPane myPane = zgc.GraphPane '清空画布 myPane.CurveList.Clear() myPane.GraphObjList.Clear() '设置图例 myPane.Legend.Position = LegendPos.Right myPane.Legend.FontSpec.Size = 12.0F myPane.Legend.FontSpec.FontColor = Color.Navy myPane.Legend.IsHStack = True '饼图标题 myPane.Title.FontSpec.IsBold = True myPane.Title.FontSpec.FontColor = Color.Navy myP