这是工作的时候总结的,用的时候,只要传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 myPane.T