ZedGraph控件 画饼图 折线图 柱状图 函数
2010-05-18 10:03
381 查看
这是工作的时候总结的,用的时候,只要传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.Title.Text = strTitle
Dim m As Integer = CInt(strValue.Length)
Dim j As Integer = 0
Dim segment(m - 1) As PieItem
For i As Integer = 0 To m - 1
segment(i) = myPane.AddPieSlice(strValue(i), ArColor(j), Color.White, 45.0F, 0, strLabel(i))
segment(i).LabelType = PieLabelType.Name_Value_Percent
segment(i).LabelDetail.FontSpec.Size = 10.0F
segment(i).LabelDetail.FontSpec.FontColor = Color.Blue
segment(i).LabelDetail.FontSpec.IsBold = True
'考虑到分类数可能超过颜色数组的维数
j = j + 1
If j > ArColor.Count - 1 Then
j = 0
End If
Next i
zgc.AxisChange()
zgc.Refresh()
Return True
Catch ex As Exception
Return False
End Try
End Function
''' <summary>
''' 绘制折线图
''' </summary>
''' <param name="zgc">绘图控件</param>
''' <param name="strTitle">图标题</param>
''' <param name="strXTitle">X轴标题</param>
''' <param name="strYTitle">Y轴标题</param>
''' <param name="strValue">值的二维数组</param>
''' <param name="strXLabel">X轴标签数组</param>
''' <param name="strLineLabel">线的标签数组</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function CreateGraph_Line(ByVal zgc As ZedGraphControl, ByVal strTitle As String, ByVal strXTitle As String, ByVal strYTitle As String, ByVal strValue(,) As Double, ByVal strXLabel() As String, ByVal strLineLabel() As String, Optional ByVal strFlag As String = "P") As Boolean
Try
InitColor()
Dim myPane As New GraphPane
myPane = zgc.GraphPane
myPane.CurveList.Clear()
myPane.GraphObjList.Clear()
'设置图例
myPane.Legend.Position = LegendPos.Top
myPane.Legend.FontSpec.Size = 10.0F
myPane.Legend.FontSpec.FontColor = Color.Red
myPane.Legend.IsHStack = True
myPane.Title.FontSpec.IsBold = True
myPane.Title.FontSpec.FontColor = Color.Orange
myPane.Title.Text = strTitle
myPane.XAxis.MajorGrid.IsVisible = True
myPane.YAxis.MajorGrid.IsVisible = True
Dim FLen As Integer = strValue.GetLength(0) '一维的长度
Dim SLen As Integer = strValue.GetLength(1) '二维的长度
'生成随机颜色
Dim rd As New Random
For i As Integer = 0 To SLen - 1
Dim list1 As New PointPairList
For j As Integer = 0 To FLen - 1
list1.Add(j + 1, strValue(j, i))
Next
Dim gy(0) As LineItem
gy(0) = myPane.AddCurve(strLineLabel(i), list1, Color.FromArgb(rd.Next(0, 255), rd.Next(0, 255), rd.Next(0, 255)), SymbolType.Diamond)
'设置线宽
gy(0).Line.Width = 2.0F
gy(0).Line.IsAntiAlias = True
gy(0).Symbol.Fill = New Fill(Color.White)
gy(0).Symbol.Size = 7
'在每个点上显示具体的值
For m As Integer = 0 To FLen - 1
Dim pt As New PointPair
pt = gy(0).Points(m)
Dim txt As New TextObj(pt.Y, pt.X, pt.Y * 1.01, CoordType.AxisXYScale, AlignH.Left, AlignV.Center)
txt.ZOrder = ZOrder.A_InFront
txt.FontSpec.Border.IsVisible = False
txt.FontSpec.Fill.IsVisible = False
myPane.GraphObjList.Add(txt)
Next
Next
'设置背景
myPane.Chart.Fill = New Fill(Color.White, Color.FromArgb(255, Color.ForestGreen), 45.0F)
myPane.XAxis.Type = AxisType.Text
myPane.XAxis.Title.FontSpec.Size = 15.0F
myPane.XAxis.Title.FontSpec.FontColor = Color.Blue
myPane.YAxis.Title.FontSpec.FontColor = Color.Blue
myPane.Fill.IsScaled = True
myPane.XAxis.Title.Text = strXTitle
myPane.YAxis.Title.Text = strYTitle
myPane.XAxis.Scale.IsPreventLabelOverlap = False
myPane.XAxis.Scale.FontSpec.Size = 8.0F
myPane.XAxis.Scale.FontSpec.FontColor = Color.Red
myPane.XAxis.Scale.TextLabels = strXLabel
myPane.XAxis.Scale.FormatAuto = True
zgc.AxisChange()
zgc.Refresh()
Return True
Catch ex As Exception
Return False
End Try
End Function
''' <summary>
''' 绘制柱状图
''' </summary>
''' <param name="zgc">绘图控件</param>
''' <param name="strTitle">图标题</param>
''' <param name="strXTitle">X轴标题</param>
''' <param name="strYTitle">Y轴标题</param>
''' <param name="strValue">值的二维数组</param>
''' <param name="strXLabel">X轴标签数组</param>
''' <param name="strBarLabel">柱的标签数组</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function CreateGraph_Bar(ByVal zgc As ZedGraphControl, ByVal strTitle As String, ByVal strXTitle As String, ByVal strYTitle As String, ByVal strValue(,) As Double, ByVal strXLabel() As String, ByVal strBarLabel() As String) As Boolean
Try
Dim myPane As New GraphPane
myPane = zgc.GraphPane
myPane.CurveList.Clear()
myPane.GraphObjList.Clear()
'设置图例
myPane.Legend.Position = LegendPos.Top
myPane.Legend.FontSpec.Size = 10.0F
myPane.Legend.FontSpec.FontColor = Color.Red
myPane.Legend.IsHStack = True
myPane.Title.FontSpec.IsBold = True
myPane.Title.FontSpec.FontColor = Color.Orange
myPane.Title.Text = strTitle
myPane.XAxis.MajorGrid.IsVisible = True
myPane.YAxis.MajorGrid.IsVisible = True
Dim FLen As Integer = strValue.GetLength(0) '一维的长度
Dim SLen As Integer = strValue.GetLength(1) '二维的长度
For i As Integer = 0 To SLen - 1
Dim list1 As New PointPairList
For j As Integer = 0 To FLen - 1
list1.Add(j + 1, strValue(j, i))
Next
Dim gy(0) As BarItem
gy(0) = myPane.AddBar(strBarLabel(i), list1, ArColor(i))
Next
'设置背景
myPane.Chart.Fill = New Fill(Color.White, Color.FromArgb(255, Color.ForestGreen), 45.0F)
myPane.XAxis.IsAxisSegmentVisible = False
myPane.XAxis.Type = AxisType.Text
myPane.XAxis.Title.Text = strXTitle
myPane.YAxis.Title.Text = strYTitle
myPane.YAxis.IsAxisSegmentVisible = True
myPane.XAxis.Scale.TextLabels = strXLabel
myPane.XAxis.Scale.FontSpec.Size = 9.0F
myPane.XAxis.Scale.FontSpec.FontColor = Color.Blue
myPane.BarSettings.Type = BarType.Cluster
BarItem.CreateBarLabels(myPane, False, "0") '在柱状图顶部显示数值
myPane.Chart.Fill = New Fill(Color.White, Color.FromArgb(255, Color.ForestGreen), 45.0F)
zgc.AxisChange()
zgc.Refresh()
Return True
Catch ex As Exception
Return False
End Try
End Function
#End Region
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- ZedGraph 柱状图、饼图、折线图演示源码
- 画饼图和折线图和柱状图的实现
- 自定义图表控件--同时显示柱状图和折线图
- AE中，用ZedGraph控件画柱状图、饼状图
- 使用DevExpress的WebChartControl控件绘制图表(柱状图、折线图、饼图)
- 使用DevExpress的WebChartControl控件绘制图表(柱状图、折线图、饼图)
- 使用DevExpress的WebChartControl控件绘制图表(柱状图、折线图、饼图)
- 【转】使用DevExpress的WebChartControl控件绘制图表(柱状图、折线图、饼图)
- C# 利用ZedGraph控件画折线图-标注数字
- JfreeChart画饼图，折线图，柱状图
- [置顶] 【python可视化】python 画饼图，柱状图，折线图，条形图
- WinForm"ZedGraph柱状图"控件使用经验分享 之配餐系统的开发
- 使用DevExpress的WebChartControl控件绘制图表(柱状图、折线图、饼图)
- 使用 ZedGraph控件绘制柱状图，饼图
- 使用DevExpress的WebChartControl控件绘制图表(柱状图、折线图、饼图)
- 使用DevExpress的WebChartControl控件绘制图表(柱状图、折线图、饼图)
- WinForm"ZedGraph柱状图"控件使用经验分享 之配餐系统的开发
- WPF、Silverlight项目中使用柱状图、饼状图、折线图
- PB日志-数据窗口控件函数142.Sort()
- 常用 API 函数: 控件与消息函数