控件ChartControl的完美示例

在网上找了很长时间，自己也钻研了挺长时间，终于把ChartControl控件的饼状图和柱状图弄得不错了

现在分享一下代码，如有不明白的可以直接留言，欢迎看完之后，给个评论哦！

 

功能介绍：使用控件ChartControl动态生成饼状图和柱状图，并保存到Word里面

饼状图：使用3D模式，实现了：如果分类过多，也不会造成引线文字相互覆盖的功能 

图示：（饼状图2个，柱状图1个）

柱状图：（这里设置只显示最后一列）

 

注：这是VB的代码，如果使用C#也可以借鉴

 

    '绘制饼状图
    PublicFunction DrawPie(ByVal dt As DataTable)
       Dim count As Integer = dt.Rows.Count

       If count > 0 Then
           InitChartControl1("")
           ChartControl1.Series.Clear()
           Dim i As Integer
           Dim series1 As New Series("股权结构饼状图", ViewType.Pie3D)
           Dim num As Integer = 0
           '为控件循环绑定值
           If count > 5 Then
               Dim newDt As DataTable = ShowOther(dt, num)
               For i = 0 To newDt.Rows.Count - 1
                   series1.Points.Add(NewSeriesPoint(newDt.Rows(i)("股东名称").ToString(), New Double(){newDt.Rows(i)("投资比例")}))
               Next
           Else
               For i = 0 To dt.Rows.Count - 1
                   series1.Points.Add(New SeriesPoint(dt.Rows(i)("股东名称").ToString(),New Double() {dt.Rows(i)("投资比例")}))
                   If (Not dt.Rows(i).IsNull("投资比例")) Then
                       If (dt.Rows(i)("投资比例") < 4) Then
                           num += 1
                       End If
                   End If
               Next

           End If

           If (num > 0) Then
               series1.Label.Visible = False '设置饼状图上的文字是否显示
               series1.LegendPointOptions.PointView = PointView.ArgumentAndValues'设置说明格式
               series1.LegendPointOptions.ValueNumericOptions.Format =NumericFormat.Percent
               'series1.LegendPointOptions.ValueNumericOptions
           Else
               series1.Label.Visible = True
               series1.LegendPointOptions.PointView =PointView.Argument  '设置说明格式
               series1.Label.Font = New Font("宋体", 12.0F,System.Drawing.FontStyle.Bold)
               series1.Label.LineLength = 30
           End If

           series1.Label.Border.Visible = False '设置饼状图上的文字是否加边框
           series1.PointOptions.ValueNumericOptions.Format =NumericFormat.Percent    '设置文字显示格式
       

           'series1.ShowInLegend = True

       
           CType(series1.Label, PieSeriesLabel).Position =PieSeriesLabelPosition.Outside

           ' series1.SeriesPointsSorting = SortingMode.Descending '为饼状图排序

           'CType(series1.View, Pie3DSeriesView).ExplodeMode =PieExplodeMode.All  '设置块与块之间的间隙
           'CType(series1.View, Pie3DSeriesView).ExplodedDistancePercentage =20   '设置块与块之间的间隙：大小

           ChartControl1.Series.Add(series1)
           ChartControl1.ExportToImage("C:\OSF\股权结构饼状图.png",System.Drawing.Imaging.ImageFormat.Jpeg)
           '添加标签，然后向标签处添加图片
           Dim reftrue As Object = True
           Dim reffalse As Object = False
           Dim bmk As Word.Bookmark = odoc.Bookmarks.Item(1)
           Dim rmk As Object = bmk
           Dim start As Object = bmk.Start
           Dim end1 As Object = bmk.End
           odoc.Range(start,end1).InlineShapes.AddPicture("C:\OSF\股权结构饼状图.png", reffalse,reftrue, missing)
       End If
    EndFunction

 

------------------------------------------------------------------------------------------

 

   '绘制柱状图
    PublicFunction DrawBar(ByVal dt As DataTable)
       ChartControl1.Series.Clear()
       InitChartControl2("员工人数")
       Dim i As Integer
       Dim series1 As New Series("员工人数", ViewType.Bar)
       series1.Points.Add(New SeriesPoint(" ", New Double() {0}))
       series1.Points.Add(New SeriesPoint("  ", NewDouble() {0}))
       For i = 0 To dt.Rows.Count - 1
           series1.Points.Add(New SeriesPoint(dt.Rows(i)("实际完成时间").ToString(),New Double() {dt.Rows(i)("员工人数")}))
       Next
       series1.ShowInLegend =False   '设置是否显示说明
       series1.Label.Visible =True   '设置是否显示引线文字
       '((GanttSeriesView)series1.View).BarWidth = 0.3
       CType(series1.View, SideBySideBarSeriesView).BarWidth = 0.4
       ChartControl2.Series.Add(series1)
       ChartControl2.ExportToImage("C:\OSF\员工人数柱状图.png",System.Drawing.Imaging.ImageFormat.Jpeg)
       '添加标签，然后向标签处添加图片
       Dim reftrue As Object = True
       Dim reffalse As Object = False
       Dim bmk As Word.Bookmark = odoc.Bookmarks.Item(2)
       Dim rmk As Object = bmk
       Dim start As Object = bmk.Start
       Dim end1 As Object = bmk.End
       odoc.Range(start,end1).InlineShapes.AddPicture("C:\OSF\员工人数柱状图.png", reffalse,reftrue, missing)

    EndFunction

 

-----------------------------------------------------------------------------------------------

 

   '股东数量超过5个的股东，显示为其他
    FunctionShowOther(ByVal dt As DataTable, ByRef count As Integer)
       Dim newDt As DataTable = New DataTable("newTable")
       newDt = dt.Clone()
       Dim dr As DataRow
       Dim i As Integer
       Dim num As Double = 0
       Dim no As Double = 0
       count = 0
       For i = 0 To dt.Rows.Count - 1
           If (i < 5) Then
               dr = newDt.NewRow()
               dr("股东名称") = dt.Rows(i)("股东名称")
               dr("投资比例") = dt.Rows(i)("投资比例")
               newDt.Rows.Add(dr)
               If (Not dt.Rows(i).IsNull("投资比例")) Then
                   no += CDbl(dr("投资比例"))
                   If (CDbl(dt.Rows(i)("投资比例")) < 4) Then
                       count += 1
                   End If
               EndIf             
           Else
               If (Not dt.Rows(i).IsNull("投资比例")) Then
                   num += dt.Rows(i)("投资比例")
               End If
           End If
       Next
       If (num < 4) Then
           count += 1
       End If
       dr = newDt.NewRow()
       dr("股东名称") = "其他"
       dr("投资比例") = num
       newDt.Rows.Add(dr)
       If (Math.Round(num + no) <> 100)Then
           dr = newDt.NewRow()
           dr("股东名称") = "未知股东"
           dr("投资比例") = 100 - (no + num)
           newDt.Rows.Add(dr)
           If (Math.Round(100 - (num + no)) < 4) Then
               count += 1
           End If
       EndIf     
       Return newDt
    EndFunction

 

------------------------------------------------------------------------------------

 

   '初始化控件ChartControl1
    FunctionInitChartControl1(ByVal title As String)

       ChartControl1.Width = 700
       ChartControl1.Height = 350
       If title <> "" Then
           Dim chartTitle1 As ChartTitle = NewDevExpress.XtraCharts.ChartTitle()
           chartTitle1.Text = title
           chartTitle1.Font = New Font("宋体", 13.0F,System.Drawing.FontStyle.Bold)
           ChartControl1.Titles.Clear()
           ChartControl1.Titles.Add(chartTitle1)
       End If
    EndFunction

 

   '初始化控件ChartControl1
    FunctionInitChartControl1(ByVal title As String)

       ChartControl1.Width = 700
       ChartControl1.Height = 350
       If title <> "" Then
           Dim chartTitle1 As ChartTitle = NewDevExpress.XtraCharts.ChartTitle()
           chartTitle1.Text = title
           chartTitle1.Font = New Font("宋体", 13.0F,System.Drawing.FontStyle.Bold)
           ChartControl1.Titles.Clear()
           ChartControl1.Titles.Add(chartTitle1)
       End If
    EndFunction

 

------------------------------------------------------------------------------------

   '初始化控件ChartControl2
    FunctionInitChartControl2(ByVal title As String)

       ChartControl2.Width = 650
       ChartControl2.Height = 300
       If title <> "" Then
           Dim chartTitle1 As ChartTitle = NewDevExpress.XtraCharts.ChartTitle()
           chartTitle1.Text = title
           chartTitle1.Font = New Font("宋体", 13.0F,System.Drawing.FontStyle.Bold)
           ChartControl2.Titles.Clear()
           ChartControl2.Titles.Add(chartTitle1)
       End If
    EndFunction

   '初始化控件ChartControl2
    FunctionInitChartControl2(ByVal title As String)

       ChartControl2.Width = 650
       ChartControl2.Height = 300
       If title <> "" Then
           Dim chartTitle1 As ChartTitle = NewDevExpress.XtraCharts.ChartTitle()
           chartTitle1.Text = title
           chartTitle1.Font = New Font("宋体", 13.0F,System.Drawing.FontStyle.Bold)
           ChartControl2.Titles.Clear()
           ChartControl2.Titles.Add(chartTitle1)
       End If
    EndFunction

 

 

------------------------------------调用1------------------------------------------------

 

    '添加股权结构饼状图
           Dim sql As String = "select * from CH_股权结构 where CrediteyesNO='"& Trim(CrediteyesNO) & "' order by投资比例 DESC"
           Dim mydt As DataTable = myconnGNZX.dataset(sql).Tables(0)
           If mydt.Rows.Count > 0 Then
               DrawPie(mydt)
           End If

 

 

------------------------------------调用2-------------------------------------------------

  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
           '绘制员工人数柱状图
           mysqi = "select top 1 CH_人员结构.*,国内订单表.实际完成时间 as长时间,convert(varchar,国内订单表.实际完成时间,23) as 实际完成时间 from CH_人员结构 innerjoin 国内订单表 on CH_人员结构.CrediteyesNO=国内订单表.CrediteyesNO "
           mysqi += "where CH_人员结构.CrediteyesNO='" &Trim(CrediteyesNO) & "' order by 国内订单表.实际完成时间desc"
           Dim Bardt As DataTable = myconnGNZX.dataset(mysqi).Tables(0)
           If (Bardt.Rows.Count > 0) Then
               If (Not Bardt.Rows(0).IsNull("员工人数")) Then
                   DrawBar(Bardt)
               End If
           End If