控件ChartControl的完美示例

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

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

 

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

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

图示:(饼状图2个,柱状图1个)

控件ChartControl的完美示例

控件ChartControl的完美示例

柱状图:(这里设置只显示最后一列)

控件ChartControl的完美示例

 

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

 


    '绘制饼状图
    Public Function 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(New SeriesPoint(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
                  

你可能感兴趣的:(VB)